%
'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
%>
<%call clearLanguage()%>