<%
Dim Uname
Dim Password
Dim strError
Dim strDestURL
Dim bLoginOK
bLoginOK = False
strDestURL = "agency.asp"
'====== Check if user entered Username/Password
If Request("validator").count > 0 then
strError = ""
Uname = Trim(Request.form("username") & "")
Password = Replace(Trim(Request.form("pwd") & "")," ","")
'====== Show error message if no Username/Password entered
If (Uname = "" or Password = "") then
strError = "You haven't entered valid login credentials." & " "
strError = strError & "Please enter your valid Agent ID and Password."
'====== Check Login Credentials
Else
'======= Check if Agent account
If (StrComp(LCase(Uname),"agent", vbBinaryCompare)=0 and StrComp(LCase(Password),"commission", vbBinaryCompare)=0) Then
'======= Create session entry if User valid
bLoginOK = True
strError = ""
'======= Member Accounts
Else
'====== Wrong Username/Password or User doesn't exist
'====== Show error message
strError = "Invalid Agent ID or Password, please try again."
strError = strError & " If you forgot your Agent ID and/or Password please contact us."
End If
End If
If bLoginOK Then
'Response.Write "LOGGED IN NOW!" & " "
Session("01232004_lh_voShol_xsWas")="OK"
'====== Redirect
Response.Redirect (strDestURL)
Else
'Response.Write "SOCKED NOW!" & " "
Session("01232004_lh_voShol_xsWas")="Bad"
End If
'Response.Write "Session: " & Session("04182003_voShol_xsWas") & " "
End If
%>
Group Lockhart Inc.
