<%option explicit%> <% '************************************************************************** ' Close a gateway order when customer did not return to our site shopcheckadmin "shopa_displayorders.asp" dim ptype,oid,followon,here,orderid,ordernumber,deeddone Serror="" here=getconfig("xmysite") & "shopa_formatorder.asp?oid=" & oid deeddone=request("pass") oid=request("oid") 'if oid="" then ' AdminPageHeader ' Write admin header ' showform ' AdminPageTrailer ' Write admin trailer 'else if deeddone = "" then adminpageheader showform adminpagetrailer elseIf deeddone<>2 then ValidateData() 'will set ptype to current ocardtype value UpdatePaymentType if sError <> "" Then 'bad order data, rewrite form AdminPageHeader ' Write admin header showform AdminPageTrailer ' Write admin trailer else if Isnull(ptype) then ptype="PayPal" end if SetSess "oid",oid UpdatepaymentInfo ptype followon=getconfig("xmysite") & "shopthanks2.asp?oid=" & oid responseredirect followon end if else 'the deed was done serror="Order " & oid & " was closed" AdminPageHeader ' Write admin header showform AdminPageTrailer ' Write admin trailer end if 'end if Sub ValidateData '****************************************************************** ' make sure we have a valid order number '***************************************************************** dim rc orderid=oid ordernumber=orderid if orderid<>"" then if not isnumeric(orderid) then serror=getlang("LangStatusError01") & "
" else CheckexistingOrder rc 'make sure it's in the orders table if rc=3 then 'already processed serror=getlang("langShopThanks03") & " " & ordernumber 'report error end if if rc=4 then 'not in order table serror= getlang("LangFormatNone") & " " & ordernumber 'report error end if end if else serror=getlang("LangStatusOrderNumber") & " " & getlang("langcustrequired") end if End Sub Sub DisplayErrors if sError<> "" then shopwriteerror SError Serror="" end if end Sub Sub showform 'create a form to enter order number %> <%if oid > "" then%> <%else%> <%end if%>

<%shopwriteheader "Finalize Order"%>

Back To Order

Order List

<% Displayerrors GenerateDisplayHeader "Finalize Order" GenerateDisplayBodyHeader %>

<% dim validtypes,ii if getconfig("xendofordervalidpayments") > "" then response.write "" response.write "" else response.write "" end if %>

Order ID:
Payment Type:	- Select -" if instr(getconfig("xendofordervalidpayments"), ",") > 0 then validtypes = split(getconfig("xendofordervalidpayments"), ",") for ii = 0 to ubound(validtypes) response.write "" & validtypes(ii) & "" next else response.write "" & getconfig("xendofordervalidpayments") & "" end if response.write " *This will change the Payment Type in the Order Record. Don't select a value if you don't want to change this.	You have no entries in your xendofordervalidpayments - if you want to select a payment type for this order, you must enter the names of your valid payments in the xendofordervalidpayments configuration option first.

<% response.write "" response.write("

") GenerateDisplayBodyFooter end sub Sub UpdatepaymentInfo (paymenttype) 'set order field ocardtype to paymenttype Dim sqltemp,dbc OpenOrderDB dbc sqltemp="update orders set ocardtype='" & paymenttype &"'" & " where orderid=" & oid dbc.execute(sqltemp) ShopcloseDatabase dbc end sub '*********************************************************************** ' Make sure order exists and oprocessed is not true ' if yes rc=0 else if not present rc=4 else if processed rc=3 '******************************************************************** Sub CheckexistingOrder (rc) dim rs, sql, dbc openorderdb dbc sql ="select * from orders where orderid=" & ordernumber set rs=dbc.execute(sql) if rs.eof then 'does not exist rc=4 else If ucase(rs("oprocessed")) ="TRUE" then 'order has been processed rc=3 else rc=0 end if end if 'get current value for ocardtype ptype=rs("ocardtype") rs.close set rs=nothing shopclosedatabase dbc end sub Sub UpdatePaymentType dim dbc if request.form("ocardtype") > "" then ptype= request.form("ocardtype") openorderdb dbc dbc.execute("update orders set ocardtype = '" & ptype & "' where orderid=" & ordernumber) shopclosedatabase dbc end if End Sub '==================================== %>