<%@ Language=VBScript %>
<%
'modified to include accttype in session
On Error Resume Next
Dim LogInMessage 'Status message
Dim LogIn 'validateCustomer return Value
Dim objRegistration 'AldaT Registration Object
Dim ErrorFlag 'Flag if string error occurs
Dim ErrorNumber 'Err.number to error.asp
Dim ErrorDescription 'Err.description to error.asp
Dim ErrorSource 'Err.source to error.asp
Dim ErrorPage 'Error source page
Dim ErrorUser 'Error source user
Dim CPUserID 'Required
Dim LogInCount 'count number of attamped log ins before redirecting
If Session("CustomerID") <> "" Then
'If Session("CurrentPage") <> "" Then
' Response.Redirect(Session("CurrentPage") & "?urlmessage=" & Server.URLEncode("You are already logged in"))
'Else
Response.Redirect("menu.asp" & "?urlmessage=" & Server.URLEncode("You are already logged in"))
'End If
End if
Session("EmployeeID") = ""
Session("EmployeePower") = 0
Session("EmployeePowerName") = ""
Session("AcctType") = ""
ErrorFlag = false
LogInCount = CInt(Request("login_count")) + 1
'redirect if 3 unsuccessful attempts have been made to log in
If LogInCount >= 4 Then
Response.Redirect("register.asp?urlmessage=" & Server.URLEncode("Log-In Failed"))
End if
If Request("status")="submit" then
CPUserID = Request("userid")
Set objRegistration = Server.CreateObject("aldatRegistration.Customer")
LogIn = objRegistration.validateCustomer(Application("Company"), Request("userid"), Request("pwd"))
'error check when string is returned and create error
If InStr(1, LogIn, "Error", 1) > 0 Then
ErrorNumber = Server.URLEncode("Error: Unknown")
ErrorFlag = true
End If
If InStr(1, LogIn, "Expired", 1) > 0 Then
ErrorNumber = Server.URLEncode("Error: AldatRegistration has expired")
ErrorFlag = true
End If
If InStr(1, LogIn, "CompanyNotFound", 1) > 0 Then
ErrorNumber = Server.URLEncode("Error: AldatRegistration has not been installed")
ErrorFlag = true
End If
If ErrorFlag = true Then
ErrorDescription = Server.URLEncode("Error Description: " & LogIn)
ErrorSource = Server.URLEncode("Error Source: " & "AldatRegistration")
ErrorPage = Server.URLEncode("Error Page: " & Request.ServerVariables("SCRIPT_NAME"))
ErrorUser = Server.URLEncode("Error User: " & Session("CustomerID"))
Response.Redirect ("error.asp?errornum=" & ErrorNumber & "&errordes=" &_
ErrorDescription & "&errorsrc=" & ErrorSource &_
"&errorpg=" & ErrorPage & "&errorusr=" & ErrorUser)
End If
If InStr(1, LogIn, "BadCustomer", 1) > 0 Then
LogInMessage="No matches were found for the customer ID and password you provided."
Else
Session("CustomerID") = LogIn
Session("Submitted") = ""
'*******BEGIN populate account type
Set locADORecords = objRegistration.getCustomer(Application("Company"),LogIn)
If Err.number > 0 Then
'error initializing account type
Session("AcctType") = ""
err.Clear
Else
Session("AcctType") = locADORecords("accttype")
Set locADORecords = Nothing
End If
'*******END populate account type
'*******BEGIN webstatistics count customer applications
Dim objWebStatistics
Dim IncrementApplication
Set objWebStatistics = Server.CreateObject("aldatWebStatistics.Application")
'ByVal: vCompanyID, vApplicationTypeID, vYear, vMonth, vWeekday
IncrementApplication = objWebStatistics.incrementApplication(Application("Company"), 3, Year(Date()), Month(Date()), Weekday(Date()))
'*******END webstatistics count customer applications
'If Session("CurrentPage") <> "" then
' Response.Redirect(Session("CurrentPage") & "?urlmessage=" & Server.URLEncode("Logged-In"))
'Else
Response.Redirect("menu.asp?urlmessage=" & Server.URLEncode("Logged-In"))
'Response.Redirect("shopping_cart.asp?urlmessage=" & Server.URLEncode("Logged-In"))
'End If
End If
Set locADORecords = Nothing
Set objRegistration = Nothing
End If
Dim PageType
PageType = "customer"
%>
<%=Application("CompanyDisplay")%> Customer Log InCustomer Log In
<%=LogInMessage%> You are not logged in.
Please do one of the following: