% 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
'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 ErrCnt>0 then
response.redirect "index.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/index.asp"),"//","/")
strRedirectSSL=replace(strRedirectSSL,"https:/","https://")
strRedirectSSL=replace(strRedirectSSL,"http:/","http://")
response.redirect strRedirectSSL & "?redSSL=1"
end if
end if
' End switch to SSL
%>
Inexpensive Chandeliers - Lighting Expo - A Lamp Warehouse Company - Wayne New Jersey 07470 1-888-565-3976