<%@ Language=VBScript %>
<%Response.Buffer=True%>
Wades - Customer Login
<%
error=""
If Request.QueryString("CNC")<>"" then
error="In order to log in to the Wades Bindery On-Line ordering area, your browser must have 'Cookies' enabled. "
error=error & "This Site uses 'Cookies' to prevent unauthorized use of your account. "
error=error & "Enabling 'Cookies' will not allow access to your hard-drive and this site can only access 'Cookies' that it creates.
"
error=error & "For more information, please refer to the 'Help' information provided by your browser.
"
End If
txtUsername="Hi"
If Request.Form("hidLog")="true" then
If Trim(Request.Form("txtUsername"))<>"" And Trim(Request.Form("txtPassword"))<>"" then
OpenConnection1
Set rs=Server.CreateObject("ADODB.Recordset")
lsql="SELECT CustomerID,txtUserName,txtPassword,nCountry FROM Customers WHERE txtUserName='" & Trim(Request.Form("txtUsername")) & "'"
rs.Open lsql,DB,1,3
If rs.EOF then
rs.Close
error="Sorry, the username " & Request.Form("txtUsername") & " does not exist. Please try again or email our System Administrator if the problem continues."
Else
If rs("txtPassword")<>Trim(Request.Form("txtPassword")) then
rs.Close
error="Sorry, the password as entered is incorrect. Please try again or click here to have it emailed to you."
Else
CID=rs("CustomerID")
If rs("nCountry")=1 then
curopt=1
Else
curopt=2
End If
rs.Close
Response.Cookies("wades")("logged")="TRUE"
Response.Cookies("wades")("cid")= CID
Response.Cookies("curopt")= curopt
Response.Cookies("wades").Expires = Now() + 365
Response.Redirect("cookiecheck.asp?vCID=" & CID)
End If
End If
Else
error="A Username and a Password are required to login. Don't have an account? Click here"
End If
End If
%>
Your authorization has expired. Please login below to continue shopping.
