<%
Sub GetFormItem(sItemName, sAliasName, iMinLength, iMaxLength, fRequired)
varItem = TRIM(Request.Form(sItemName))
If sAliasName = "" Then sAliasName = sItemName
If fRequired Then
If varItem = "" Then
Session("CustomError") = Session("CustomError") _
& "Please enter at least "&iMinLength&" characters in the
""" _
& sAliasName & """ field.
"
Else
If Len(varItem) < iMinLength Then Session("CustomError") = _
Session("CustomError") & "Please enter at least " _
& iMinLength &" characters in the
""" _
& sAliasName & """ field.
"
If Len(varItem) > iMaxLength Then Session("CustomError") = _
Session("CustomError") & "Please enter at most " _
& iMaxLength &" characters in the
""" _
& sAliasName & """ field.
"
End If
Else
varItem = TRIM(Request.Form(sItemName))
End If
Session(sItemName) = varItem
End Sub
Sub ServerSideEmailValidation _
(sItemName, sAliasName, iMinLength, iMaxLength, bRequired)
Call GetFormItem (sItemName, sAliasName, iMinLength, iMaxLength, bRequired)
If (InStr(session(sItemName),"@") < 2) Then
Session("CustomError") = Session("CustomError") _
& "Not a valid
Email address (missing '@')
"
Else
If ( InStr(InStr(session(sItemName),"@"),session(sItemName),".") < _
InStr(session(sItemName),"@")+2 ) Then Session("CustomError") = _
Session("CustomError") _
& "Not a valid
Email address (missing '.')
"
End If
End Sub
If Request.Form("Login") <> "" Then
Call ServerSideEmailValidation ("email", "E-Mail", 3, 50, True)
If Request.Form("Pass") = "Pass" Then
strSQL = "SELECT * FROM Customer WHERE Email LIKE '" & Request.Form("email") & "' AND Password LIKE '" & Request.Form("Password") & "'"
Set CartCart = CartsConn.Execute(strSQL)
If NOT CartCart.EOF Then
'Session("CCType") = CartCart("CCType")
'Session("CCNumber") = CartCart("CCNumber")
'Session("CCDate") = CartCart("CCDate")
Session("Password") = CartCart("Password")
Session("HearUs") = CartCart("HearUs")
Session("PasswordSet") = "True"
Session("BFirstName") = CartCart("BFirstName")
Session("BLastName") = CartCart("BLastName")
Session("BBusiness") = CartCart("BBusiness")
Session("BAddress1") = CartCart("BAddress1")
Session("BAddress2") = CartCart("BAddress2")
Session("BCity") = CartCart("BCity")
Session("BState") = CartCart("BState")
Session("BFirstName") = CartCart("BFirstName")
Session("BZip") = CartCart("BZip")
Session("BPhone") = CartCart("BPhone")
Session("CartID") = CartCart("CartID")
Session("Email") = CartCart("Email")
Session("SFirstName") = CartCart("SFirstName")
Session("SLastName") = CartCart("SLastName")
Session("Shipto") = CartCart("Shipto")
Session("SBusiness") = CartCart("SBusiness")
Session("SAddress1") = CartCart("SAddress1")
Session("SAddress2") = CartCart("SAddress2")
Session("SCity") = CartCart("SCity")
Session("SState") = CartCart("SState")
Session("SFirstName") = CartCart("SFirstName")
Session("SZip") = CartCart("SZip")
Session("SPhone") = CartCart("SPhone")
Else
Session("CustomError") = Session("CustomError") + "
We either have no record for you yet, or your e-mail or password may be incorrect.
Please try again or sign in without a password."
End If
CartCart.Close
Set CartCart = Nothing
End If
End If
If Session("CustomError") <> "" Then
Response.Write "
Error: " & Session("CustomError") & ""
Response.Write "
Click here to go back and fix your errors"
Session("CustomError") = ""
Else
%>
<%
End If
CartsConn.Close
Set CartsConn = Nothing
%>
