<% '*************************************************************** ' Result from 2checkout transaction ' Either updated that is was successful or return to shopcheckout ' VP-ASP 4.0 '************************************************************ Dim Pauthcode Dim Result Dim PReference Dim pError dim RESPMsg result = Request("Credit_Card_Processed") Perror="" ' no errors PAuthCode=Request("order_number") ' null authorization code Session("PaymentError")="" ' no payment error BackUrl="2checkoutshopcheckout.asp" 'go back if authorization error forwardurl="shopthanks.asp" 'go forward when finished Poid=Session("oid") ' if not session, get from eway return if poid="" then Poid=Request("cart_id") ' get our invoice from Signio back again if poid="" then Poid=Request("cart_order_id") ' get our invoice from Signio back again end if Session("oid")=pOid end if if Result<>"Y" then PError=LangCheckoutError02 &"
" end if If Perror="" then ' no error UpdateAuthorization ' add authorization to database response.redirect ForwardURL ' go to shopthanks else Session("PaymentError")=PError response.redirect BackURL & "?oid=" & Poid end if '*************************************************************** ' Updates Authorization field in order ' PAuthcode has authorization value ' Proably no chnage required here '************************************************************** Sub UpdateAuthorization 'on error resume next Dim sqltemp Dim rstemp Openorderdb dbc sql="Update orders set " sql=sql & " oauthorization='" & PAuthCode &"'" sql=sql & " ,ocardtype='" & "2checkout" &"'" sql=sql & " where orderid=" & poid dbc.execute(sql) ShopCloseDatabase dbc end sub %>