<% '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 if session("idcustomer")="" then session("idPCStore")= scID session("idCustomer")=Cint(0) session("idAffiliate")=Cint(1) session("language")=Cstr("english") session("pcCartIndex")=Cint(0) dim pcCartArray(100,35) session("pcCartSession")=pcCartArray end if if session("idPCStore")<>scID then session.Abandon() session("idPCStore")= scID session("idCustomer")=Cint(0) session("idAffiliate")=Cint(1) session("language")=Cstr("english") session("pcCartIndex")=Cint(0) redim pcCartArray(100,35) session("pcCartSession")=pcCartArray end if If scStoreOff="1" then response.redirect "msg.asp?message=31" End If %> <% prequest=getUserInput(request("redirectUrl"),250) if (request.form("SubmitCO.y")<>"") or (request("SubmitCO")="autologin") then ErrCnt=0 EP=0 if request("SubmitCO")="autologin" then Session("store_adminre")="1" Session("store_num")="123456" Session("store_postnum")="123456" else Session("store_adminre")="" if (scSecurity=1) and (scUserLogin=1) and (scUseImgs=1) then Session("store_postnum")=replace(request("postnum"),"'","''") else Session("store_postnum")="" end if end if 'form is submitted Email=replace(request("Email"),"'","''") session("Email")=Email if Email="" then ErrCnt=ErrCnt+1 End if password=request.form("password") if password="" then if request("password")<>"" then password=Decrypt(request("password"), 9286803311968) else ErrCnt=ErrCnt+1 EP=1 end if else password=replace(password,"'","''") End if if (scSecurity=1) and (scUserLogin=1) and (scUseImgs=1) then If Session("store_num") & ""<>Session("store_postnum") & "" then If scAlarmMsg=1 then if session("AttackCount")="" then session("AttackCount")=0 end if session("AttackCount")=session("AttackCount")+1 if session("AttackCount")>=scAttackCount then session("AttackCount")=0%> <%end if End if Session("store_postnum")="" response.redirect "custva.asp?EP="&EP&"&msg="& Server.Urlencode(dictLanguage.Item(Session("language")&"_security_3")) End if End if If ErrCnt>0 then If (scSecurity=1) and (scUserLogin=1) and (scAlarmMsg=1) then if session("AttackCount")="" then session("AttackCount")=0 end if session("AttackCount")=session("AttackCount")+1 if session("AttackCount")>=scAttackCount then session("AttackCount")=0%> <%end if End if response.redirect "custva.asp?EP="&EP&"&msg="& Server.Urlencode(dictLanguage.Item(Session("language")&"_Custmoda_18")) Else erypassword=encrypt(password, 9286803311968) session("erypassword")=erypassword session("redirectUrlLI")=prequest response.redirect "custvb.asp" End if end if %> <% ' if customer already login if Session("idCustomer")<>0 then response.redirect "CustPref.asp" end if ' Start switch to SSL if feature is turned on dim strRedirectSSL, strRedSSL strRedSSL = request.QueryString("redSSL") if strRedSSL <> "1" then if scSSL="1" AND scIntSSLPage="1" then strRedirectSSL=replace((scSslURL&"/"&scPcFolder&"/pc/Custva.asp"),"//","/") strRedirectSSL=replace(strRedirectSSL,"https:/","https://") strRedirectSSL=replace(strRedirectSSL,"http:/","http://") response.redirect strRedirectSSL & "?redSSL=1" & "&redirectUrl="&Server.URLEncode(request("redirectUrl")) end if end if ' End switch to SSL %>
<%=prequest%><%else%><%=session("redirectUrlLI")%><%end if%>"> <% msg=server.HTMLEncode(request.querystring("msg")) If msg<>"" then %> <% end if %>
"> <%=msg%>

<% Session("store_userlogin")="1" Session("store_postnum")="" session("store_num")=" "%> <%if (scSecurity=1) and (scUserLogin=1) and (scUseImgs=1) then%> <%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 request("EP")="1" then %> "> <% end if %> <% end if %> <%if scSendPass=-1 then%> <%response.write dictLanguage.Item(Session("language")&"_checkout_7")%> <%end if%>
<%response.write dictLanguage.Item(Session("language")&"_security_1")%>

<%For k=1 to 6%><%Next%>

" border="0" name="SubmitCO" value="Submit">

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


<%=Server.URLEnCode(prequest)%><%else%><%=Server.URLEncode(session("redirectUrlLI"))%><%end if%>">" 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")%> <%=Server.URLEnCode(prequest)%><%else%><%=Server.URLEncode(session("redirectUrlLI"))%><%end if%>&frURL=Custva.asp"> <%response.write dictLanguage.Item(Session("language")&"_Custva_8")%>
<%call clearLanguage()%>