<% msgMode=getUserInput(request.querystring("msgmode"),1) select case msgMode case "2" msg=dictLanguage.Item(Session("language")&"_validate_2") case "3" msg=dictLanguage.Item(Session("language")&"_validate_3") case "4" msg=dictLanguage.Item(Session("language")&"_security_2") case "5" msg=dictLanguage.Item(Session("language")&"_validate_4") case else msg="" end select if msg="" then msg=getUserInput(request.querystring("msg"),0) end if If msg<>"" then %>

<%=msg%>

<% end if %> <% if pcPageMode=0 then %> <% end if if pcPageMode=2 then pcPageTitle=dictLanguage.Item(Session("language")&"_checkout_22") else pcPageTitle=dictLanguage.Item(Session("language")&"_checkout_23") end if %>

<%=pcPageTitle%>

<% '// Check if only PayPal Express is enabled if session("customerType")=1 then query="SELECT gwcode FROM paytypes WHERE active=-1;" else query="SELECT gwcode FROM paytypes WHERE active=-1 and Cbtob=0;" end if call opendb() set rsPPObj=server.CreateObject("ADODB.RecordSet") set rsPPObj=conntemp.execute(query) dim intPPECheck, intPPECnt, intPPEOnly intPPECheck=0 intPPECnt=0 intPPEOnly=0 do until rsPPObj.eof PPE_GwCode=rsPPObj("gwcode") if PPE_GwCode="999999" then intPPECheck=1 end if intPPECnt=intPPECnt+1 rsPPObj.movenext loop set rsPPObj=nothing if intPPECnt=1 AND intPPECheck=1 then intPPEOnly=1 end if call closedb() if intPPEOnly=0 then %> <% if session("ErrLoginEmail")<>"" then %> <% end if %> <% end if if pcPageMode=2 then %> <% else if intPPEOnly=0 then %> <% if scSecurity=1 AND scUserReg=1 then pcShowStyle="" else pcShowStyle="none" end if if scSecurity=1 AND scUserLogin=1 then pcShowLoginStyle="" else pcShowLoginStyle="none" end if %> <% if scAllowCheckoutWR <> 0 and pcPageMode = 0 then %> <% end if %> <% 'If Advanced Security is turned on if scSecurity=1 then Session("store_userlogin")="1" session("store_adminre")="1" Session("store_postnum")="" session("store_num")=" " if (scUserLogin=1 OR scUserReg=1) and (scUseImgs=1) then %> <% else response.write " " end if %> <% else response.write " " end if %> <% end if call opendb() if session("customerType")=1 then query="SELECT idPayment, paymentDesc, priceToAdd, percentageToAdd, gwcode, type, paymentNickName FROM paytypes WHERE active=-1 AND (gwCode=999999 OR gwCode=46 OR gwCode=53) ORDER by paymentPriority;" else query="SELECT idPayment, paymentDesc, priceToAdd, percentageToAdd, gwcode, type, paymentNickName FROM paytypes WHERE active=-1 and Cbtob=0 AND (gwCode=999999 OR gwCode=46 OR gwCode=53) ORDER by paymentPriority;" end if set rs=server.CreateObject("ADODB.RecordSet") set rs=conntemp.execute(query) If NOT rs.eof Then intPayPalExp=1 '// Determine which API to use (US or UK) query="SELECT pcPay_PayPal.pcPay_PayPal_Partner, pcPay_PayPal.pcPay_PayPal_Vendor FROM pcPay_PayPal WHERE (((pcPay_PayPal.pcPay_PayPal_ID)=1));" set rsPayPalType=Server.CreateObject("ADODB.Recordset") set rsPayPalType=conntemp.execute(query) pcPay_PayPal_Partner=rsPayPalType("pcPay_PayPal_Partner") pcPay_PayPal_Vendor=rsPayPalType("pcPay_PayPal_Vendor") if pcPay_PayPal_Partner<>"" AND pcPay_PayPal_Vendor<>"" then pcPay_PayPal_Version = "UK" else pcPay_PayPal_Version = "US" end if set rsPayPalType=nothing Else intPayPalExp=0 End If set rs=nothing '==================================== ' START: PayPal Express '==================================== if intPayPalExp=1 AND pcPageMode<>1 then %> <% end if '==================================== ' END: PayPal Express '==================================== %> <% end if %> <%=dictLanguage.Item(Session("language")&"_checkout_24")%>   <%=dictLanguage.Item(Session("language")&"_Custmoda_16")%> <%=dictLanguage.Item(Session("language")&"_Custmoda_4")%> " size="20"><%pcs_RequiredImageTag "LoginEmail", true%> " name="SubmitPM" id="SubmitPM" class="submit">  " alt="<%=dictLanguage.Item(Session("language")&"_altTag_15")%>"> <%=dictLanguage.Item(Session("language")&"_checkout_25")%> onClick="document.getElementById('show_security').style.display='<%=pcShowLoginStyle%>'"<% end if%> class="clearBorder"> <%=dictLanguage.Item(Session("language")&"_checkout_26")%> onClick="document.getElementById('show_security').style.display='<%=pcShowStyle%>'"<% end if %> class="clearBorder"> <%=dictLanguage.Item(Session("language")&"_checkout_27")%> onClick="document.getElementById('show_security').style.display='<%=pcShowStyle%>'"<% end if %> class="clearBorder"> <%=dictLanguage.Item(Session("language")&"_checkout_28")%> <%response.write dictLanguage.Item(Session("language")&"_security_1")%> <%For k=1 to 6%><%Next%> <% if pcPageMode=1 OR pcPageMode=3 then %> " name="SubmitCO" id="submit"> <% else %> " name="SubmitCO" id="submit"> <% end if %> Fast, Secure Checkout with PayPal <% '// Display the API Button Code if pcPay_PayPal_Version = "US" then %> <% else %> <% end if %> Save time, Checkout securely. Pay without sharing your financial information.

<% if pcPageMode<>2 then pcIntEmailNotFound=getUserInput(request("EmailNotFound"),1) if Not ValidNum(pcIntEmailNotFound) then pcIntEmailNotFound="" end if '------------------------------ ' START: password reminder '------------------------------ %>

---

<% if pcIntEmailNotFound<>"" then %> <% else %> <% end if %>

<% if pcIntEmailNotFound=1 then %> <% response.write dictLanguage.Item(Session("language")&"_forgotpassworderror") %> <% else %> <%response.write dictLanguage.Item(Session("language")&"_checkout_11")%> <% end if %>

<%response.write dictLanguage.Item(Session("language")&"_Custva_3")%> <%response.write dictLanguage.Item(Session("language")&"_Custva_8")%>

<% end if '------------------------------ ' END: password reminder '------------------------------ %>