<% 'This file is part of ProductCart, an ecommerce application developed and sold by Early Impact LLC. ProductCart, its source code, the ProductCart name and logo are property of Early Impact, LLC. Copyright 2001-2003. All rights reserved. You are not allowed to use, alter, distribute and/or resell any parts of ProductCart's source code without the written consent of Early Impact. To contact Early Impact, please visit www.earlyimpact.com. %> <% response.Buffer=true %> <% 'on error resume next session("availableShipStr")="" session("provider")="" dim pcCartArray, ppcCartIndex, f, cont pcCartArray=Session("pcCartSession") ppcCartIndex=Session("pcCartIndex") if countCartRows(pcCartArray, ppcCartIndex)=0 then response.redirect "msg.asp?message=9" end if if session("ExpressCheckoutPayment")="YES" then if calculateCartTotal(pcCartArray, ppcCartIndex)>session("pcPay_PayPalExp_OrderTotal") then session("ExpressCheckoutPayment")="" session("idCustomer")=0 end if end if session("pcPay_PayPalExp_OrderTotal")=calculateCartTotal(pcCartArray, ppcCartIndex) If session("customerType")=1 Then if calculateCartTotal(pcCartArray, ppcCartIndex)
Back") end if Else if calculateCartTotal(pcCartArray, ppcCartIndex)
Back") end if End If ' check if user already logged in if session("idCustomer")<>0 and session("idCustomer")<>"" then 'see if customer is allowed to purchase dim query, conntemp, rs call opendb() query="SELECT suspend FROM customers WHERE idCustomer="&session("idCustomer")&";" set rs=server.CreateObject("ADODB.RecordSet") set rs=conntemp.execute(query) if rs("suspend")="1" then set rs=nothing call closedb() response.redirect "msg.asp?message=131" response.end else set rs=nothing call closedb() if session("ExpressCheckoutPayment")="YES" then response.redirect "pcPay_ExpressPay_Login.asp" else response.redirect "login.asp" end if end if end if if request.form("SubmitCO.y")<>"" then Err=0 'form is submitted Email=replace(request.form("Email"),"'","''") session("Email")=Email if Email="" then Err=Err+1 End if password=request.form("password") session("password")=password if password="" then Err=Err+1 End if If Err>0 then response.redirect "checkout.asp?msg="& Server.Urlencode(dictLanguage.Item(Session("language")&"_Custmoda_18")) Else erypassword=encrypt((session("password")), 9286803311968) session("erypassword")=erypassword response.redirect "login.asp" End if end if %>

<%response.write dictLanguage.Item(Session("language")&"_checkout_3")%>
<% msg=server.HTMLEncode(request.querystring("msg")) If msg<>"" then %> "> <%=msg%> <% end if %>
<%response.write dictLanguage.Item(Session("language")&"_checkout_10")%> <%response.write dictLanguage.Item(Session("language")&"_checkout_4")%> <%response.write dictLanguage.Item(Session("language")&"_checkout_5")%>: "> <% if msg="" then %> "> <% else if session("Email")="" then %> "> <% end if %> <% end if %> <%response.write dictLanguage.Item(Session("language")&"_checkout_6")%>: <% if msg="" then %> "> <% else if session("password")="" then %> "> <% end if session("password")="" %> <% end if %> <%if scSendPass=-1 then%> <%response.write dictLanguage.Item(Session("language")&"_checkout_7")%> <%end if%> " border="0" name="SubmitCO" value="Submit">		<%response.write dictLanguage.Item(Session("language")&"_checkout_9")%> <%response.write dictLanguage.Item(Session("language")&"_checkout_8")%> " border="0">

<% if request.querystring("s")="1" then %> <% else %> <% end if %>

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

" width="18" height="18"> <%response.write dictLanguage.Item(Session("language")&"_checkout_11")%>

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

<% session("Email")="" session("password")="" call clearLanguage()%>