<%Dim rs, ErrorMessage
Const MaxLoginAttempts = 4
Set rs = Server.CreateObject("ADODB.Recordset")
If Request("Mode") = "Logout" Then
Session.Contents.Remove("Authenticated")
Session.Contents.Remove("LoginCount")
Session.Abandon
End If
If Request("Username") <> "" AND Request("Password") <> "" Then
If Session("LoginCount") < MaxLoginAttempts Then
Session("LoginCount") = Session("LoginCount") + 1
MainDBNum = ConnectDB("solutient.mdb")
SQL = "SELECT * FROM Employees WHERE EmployeeUsername = '" & Trim(Replace(Request("Username"), "'", "''")) & "';"
'DebugVar(SQL)
rs.Open SQL, DBConn(MainDBNum,0), adOpenStatic, adLockOptimistic
If Not rs.EOF Then
If UCase(rs("EmployeePassword")) = UCase(Trim(Request("Password"))) Then
Session("EmployeeID") = rs("EmployeeID")
Session("LoginName") = rs("EmployeeName")
Session("AuthLevel") = rs("EmployeeAuthLevel")
Session("LastLogin") = rs("EmployeeLastLogin")
Session.Timeout = 60
rs("EmployeeLastLogin") = Now
rs.Update
rs.Close
Session("LoginCount") = 0
Response.Redirect("home.asp")
Else
ErrorMessage = "Invalid Password."
End If
Else
ErrorMessage = "Cannot Find User."
End If
Else
ErrorMessage = "Maximum login attempts exceeded."
End If 'Below Max Logins
End If
%>
Solutient Login
>
Solutient Login
This is a private system for Solutient Employees. Unauthorized Use is Prohibited.
