<% ' Comersus Shopping Cart ' Comersus Open Technologies ' United States ' Software License can be found at License.txt ' http://www.comersus.com ' Details: PayPal Gateway secure form %> <% on error resume next dim connTemp, rsTemp ' get settings pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pCompanySlogan = getSettingKey("pCompanySlogan") pMoneyDontRound = getSettingKey("pMoneyDontRound") pAuctions = getSettingKey("pAuctions") pListBestSellers = getSettingKey("pListBestSellers") pNewsLetter = getSettingKey("pNewsLetter") pPriceList = getSettingKey("pPriceList") pStoreNews = getSettingKey("pStoreNews") pEncryptionPassword = getSettingKey("pEncryptionPassword") pUseEncryptedTotal = getSettingKey("pUseEncryptedTotal") pStoreLocation = getSettingKey("pStoreLocation") pEncryptionMethod = getSettingKey("pEncryptionMethod") pShowNews = getSettingKey("pShowNews") pPayPalMerchantEmail = getSettingKey("pPayPalMerchantEmail") pIdCustomer = getSessionVariable("idCustomer",0) pIdCustomerType = getSessionVariable("idCustomerType",1) pAmount = 0 if pUseEncryptedTotal="-1" then pAmount=money(DeCrypt(getUserInput(request.querystring("ordertotal"),30),pEncryptionPassword)) else pAmount=money(getUserInput(request.querystring("orderTotal"),30)) end if pAmount = formatNumberForDb(pAmount) %>
<%=getMsg(676,"Paypal payment")%>
<%if pStoreFrontDemoMode = "-1" then %>

<%else%> <%end if%> "> "> "> ">
<%=getMsg(677,"click 2 pay")%>

<%call closeDb()%>