<%@ Language=VBScript %><%
'************************************************************
'* *
'* By Downloading or using this software, you agree to *
'* the terms and conditions as stated in the Software *
'* License Agreement. An updated copy of this agreement *
'* can be seen at http://www.pagedowntech.com/terms. *
'* *
'* NOTICE: We do not recommend changing the code below *
'* as it may interfere with future updates/upgrades. *
'* *
'* PageDown Technology, LLC., Copyright 2004. *
'* www.pagedowntech.com *
'* *
'************************************************************
%>
[an error occurred while processing this directive]
[an error occurred while processing this directive]
[an error occurred while processing this directive]<%
task=request("task")
'Force password & email to Lowercase, as RC4 encryption causes case sensitivity.
email=Lcase(request("email"))
password=Lcase(request("password"))
errormessage=request("errormessage")
refer=request("refer")
'If no referring page was detected, then send to orderstatus after signin.
if refer="" then
refer="orderstatus.asp"
end if
'Sign Out User if task is desired.
if task="signout" then
email=""
Response.Cookies("customerid")= ""
end if
'Sign in user and place security cookie on users PC.
if email="" or email=NULL then
else
'Compare user information to customer table.
set rs=opendb("SELECT * FROM customer WHERE email='" & fixAP(email) & "'")
if rs.eof then
errormessage="Your email address was not found! "
else
if rs("password")=rc4(password, rc4code) then
customerid=rs("id")
Response.Cookies("customerid")= customerid
Response.Redirect(refer)
else
errormessage="Your password is incorrect! "
end if
end if
rs.close
set rs=nothing
end if
%>
[an error occurred while processing this directive]
[an error occurred while processing this directive]
[an error occurred while processing this directive]