<%
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./data.mdb")
SET objDBCon = Server.CreateObject("ADODB.Connection")
objDBCon.open strConnect
if not isempty(request.form("login")) then
Set checkName = objDBCon.Execute("SELECT ID FROM tblsUsers WHERE userName = '" & checkMess(request.form("name")) & "'")
if checkName.EOF then
theMess = "The user name (" & request.form("name") & ") you submitted could not be found in the data base, please try again"
else
Set checkPass = objDBCon.Execute("SELECT accLevel, email, fullName FROM tblsUsers WHERE password = '" & checkMess(request.form("password")) & "' AND ID =" & checkName("ID"))
if checkPass.EOF then
theMess = "Sorry this submitted password does not match the login ID, please try again"
else
session("SessUserName") = checkPass("fullname")
session("SessUserID") = checkName("ID")
session("sessionEmail") = checkPass("email")
session("sessionAccLevel") = checkPass("accLevel")
objDBCon.Execute("UPDATE tblsUsers SET lastLogged = '" & now() & "' WHERE ID = " & checkName("ID"))
postIT = 1
end if
end if
end if
%>
<%
response.write("" & chr(13) _
& "" & chr(13) _
& "" & chr(13) _
& " Log in" & chr(13) _
& "" & chr(13))
If postIT = 1 then
response.write("" & chr(13) _
& "Thank you for logging in " & session("SessUserName") & "
You Will be redirected shortly
Click to go now" & chr(13))
response.end
end if
response.write("" & chr(13) _
& "
" & chr(13) _
& theMess & chr(13) _
& "" & chr(13) _
& "" & chr(13) _
& "