<%option explicit%> <% Dim dbc, oid Dim ssl dim slash, action, tmpstr, rc '******************************************************************* ' Version 5.00 Feb 4, 2003 ' this is the final chance to cancel before order is created ' uses xssl and xshopchecout to determine where to go. Fix slash problem Septe 21 '******************************************************************** ssl=getconfig("xssl") if ssl<>"" then slash=right(ssl,1) if slash="/" or slash="\" then else ssl=ssl & "/" end if end if if GetSess("CartCount")=0 or GetSess("CartCount")="" then Response.Redirect "shoperror.asp?msg=" & Server.URLEncode (getlang("langError01")) end if if GetSess("AffID")="" and getconfig("xaffiliateUseCookies")="Yes" then tmpStr=Request.Cookies("affid") If tmpStr<>"" then SetSess "AffID", tmpStr ShopOpenOtherDB dbc, getconfig("xAffiliateDB") UpdateAffiliatelog tmpstr,"","1",dbc shopclosedatabase dbc end if end if action = request("Cancel") if action="" then action=request("cancel.x") end if If action<>"" then ShopCancelOrder Response.Redirect "shoperror.asp?msg=" & Server.URLEncode (getlang("langCheckoutCancelled")) end if action = request.form("action") if action="" then action = request.form("action.x") end if ' no action so display final form in this session SetSess "CurrentURL","shopcreateorder.asp" if Action="" then if getconfig("Xbypasscreateorderpage")="Yes" then dim remove remove="NO" CartFormat remove Savethisorder else ShopPageHeader DisplayForm ShopPageTrailer end if else SaveThisOrder end if Sub SaveThisOrder ShopAddOrder ' add order to database oid=GetSess( "orderId") HandleGiftRegistry HandleGiftPurchase HandleGiftCertificate if Getsess("ordertotal")= 0 then updatepaymentinfo getlang("langpaymentNone") response.redirect "shopthanks.asp" end if if getconfig("xframes")="Yes" and getconfig("xframessl")<>"" then response.redirect getconfig("xframeSSL") end if If getconfig("xIncludeOidOnLink")="Yes" then Response.Redirect ssl & getconfig("xcheckout") & "?oid=" & oid else Response.Redirect ssl & getconfig("xcheckout") end if end sub ' Sub DisplayForm If Getconfig("xgiftregistry")="Yes" and getsess(REGISTRANTID)<>"" Then DisplayGiftregForm exit sub end if if getconfig("xFrames")="Yes" then response.write "" end if shopwriteheader getlang("LangCreate01") shopwriteheader getlang("LangCreate02") If getconfig("xssl")<>"" Then shopwriteheader getLang("langCreate03") end if response.write "" response.write "

" if getconfig("xAllowOrderReview")="Yes" Then %> <%=getlang("langCreate05")%> <% End if if getconfig("xAllowSaveCart")="Yes" Then %>

<%=getlang("langSaveCart")%> <% End if End Sub ' Sub UpdatepaymentInfo (paymenttype) Dim rstemp OpenOrderDB dbc Dim sqltemp sqltemp="update orders set ocardtype='" & paymenttype &"'" & " where orderid=" & getsess("oid") dbc.execute(sqltemp) ShopcloseDatabase dbc end sub Sub HandleGiftCertificate dim certificate, amountused, msg if getconfig("xGiftCertificates")<>"Yes" then exit sub Certificate=Getsess("Giftcertificate") If certificate="" then exit sub amountused=Getsess("giftamountused") msg="" If amountUsed<>"" then GiftDecrementAmountUsed certificate,amountused,msg If msg<>"" then Shoperror msg end if end if if Getsess("ordertotal")= 0 then UpdatepaymentInfo getlang("langgiftcertificate") response.redirect "shopthanks.asp" end if end sub Sub HandleGiftPurchase ' has someone purchased a gift certificate if getconfig("xGiftCertificates")<>"Yes" then exit sub If Getsess("Giftcount")="" then exit sub GiftAddtoDatabase ' add to Gift table oid=GetSess("orderId") SetSess "Giftid",oid end sub Sub HandleGiftRegistry If getconfig("xgiftregistry")<>"Yes" then exit sub If GetSess(REGISTRANTID) <> "" then ProcessGiftRegistry oid 'in shopgiftregsubs Setsess "ordertotal",0 response.redirect "shopthanks.asp" Else If GetSess(REGISTRY) <> "" Then debugwrite "updating registry" UpdateRegistry oid 'in shopgiftregsubs End If end if end sub ' Sub DisplayGiftRegForm Response.write Largeinfofont Response.write "

" %>