% 'WA eCart PayPal Quick Check Out if (cStr(Request.Form("WA_eCart1_Checkout")) <> "" OR cStr(Request.Form("WA_eCart1_Checkout.x")) <> "") then PPQCO_Business = "8270"'PPQCO_Business PPQCO_ItemName = "512 broadband"'PPQCO_ItemName PPQCO_Success = "http://thanks.asp"'PPQCO_Success PPQCO_Decline = "http://problem.asp"'PPQCO_Decline PPQCO_Shipping = false'PPQCO_Shipping PPQCO_Currency = "GBP"'PPQCO_Currency PPQCO_redirStr = "https://www.paypal.com/cgi-bin/webscr"'PPQCO_redirStr totalAmount = WA_eCart_FormatNumber(WA_eCart_GrandTotal(WA_eCart1), true, 2) PPQCO_redirStr = PPQCO_redirStr & "?cmd=" & Server.URLEncode("_xclick") PPQCO_redirStr = PPQCO_redirStr & "&business=" & Server.URLEncode(PPQCO_Business) PPQCO_redirStr = PPQCO_redirStr & "&item_name=" & Server.URLEncode(PPQCO_ItemName) PPQCO_redirStr = PPQCO_redirStr & "&return=" & Server.URLEncode(PPQCO_Success) PPQCO_redirStr = PPQCO_redirStr & "&cancel_return=" & Server.URLEncode(PPQCO_Decline) PPQCO_redirStr = PPQCO_redirStr & "¤cy_code=" & Server.URLEncode(PPQCO_Currency) PPQCO_redirStr = PPQCO_redirStr & "&item_number=" PPQCO_redirStr = PPQCO_redirStr & "&amount=" & Server.URLEncode(totalAmount) PPQCO_redirStr = PPQCO_redirStr & "&shipping=0" PPQCO_redirStr = PPQCO_redirStr & "&shipping2=0" PPQCO_redirStr = PPQCO_redirStr & "&handling=0" PPQCO_redirStr = PPQCO_redirStr & "&undefined_quantity=0" if (PPQCO_Shipping) then PPQCO_redirStr = PPQCO_redirStr & "&no_shipping=0" else PPQCO_redirStr = PPQCO_redirStr & "&no_shipping=1" end if PPQCO_redirStr = PPQCO_redirStr & "&no_note=0" PPQCO_redirStr = PPQCO_redirStr & "&bn=" & Server.URLEncode("WA.EC.100") PPQCO_redirStr = PPQCO_redirStr & "&submit=submit" WA_eCart1_redirStr = PPQCO_redirStr WA_eCart1_cartAction = "PPQCO" end if %> <% ' WA eCart Redirect if (WA_eCart1_redirStr <> "") then Response.Redirect(WA_eCart1_redirStr) end if %>
|
|||||||||||||||||||||||
|
|
||||||||||||||||||||||
|
|||||||||||||||||||||||