<%Option explicit%> <% '******************************************************* ' Version 6.50 ' Display all RMS for a customer ' Nov 18, 2006 HK Support RMA '******************************************************* dim customerid, rmaid CustCheckAdmin customerid dim myconn SetSess "CurrentUrl","shopstatus.asp" Customerid=Getsess("Customerlogincid") if getconfig("xrmaAllowed")<>"Yes" then shoperror getlang("LangCustNotAllowed") end if shoppageheader if getconfig("xbreadcrumbs") = "Yes" then response.write "
" & getlang("langcommonhome") & " " &_ SubCatSeparator & "" & getlang("langCustAdmin01") & "" &_ SubCatSeparator & getlang("langrma") & "
" & vbCrLf end if Response.Write "

" & getlang("langrma") & "

" & vbCrLf Openorderdb myconn rmaid=request("rmaid") if not isnumeric(rmaid) then rmaid = "" end if If rmaid<>"" then FormatSingleRMA rmaid else ShopRMAformat myconn,customerid Response.write "

" & getlang("langcommoncontinue") & "

" end if shopclosedatabase myconn ShopPagetrailer sub FormatSingleRMA (rmaid) dim mysql, rmars If not isnumeric(rmaid) then shopwriteerror getlang("langrmainvalid") exit sub end if mysql="SELECT orders.*, shoprma.* FROM orders INNER JOIN shoprma ON orders.orderid = shoprma.rmaorderid" mysql= mysql & " WHERE shoprma.rmaid=" & rmaid & " and rmacustomerid=" & customerid set rmars=myconn.execute(mysql) if rmars.eof then shopwriteError getlang("langrmanotfound") closerecordset rmars exit sub end if Response.Write "
" FormatRmaCustomer rmars Response.Write "
" closerecordset rmars Response.write "

" & getlang("langcommoncontinue") & "

" end sub %>