<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim vLogin, vPassword, vSQL, vType, rs
if not isempty(request.form("Submit")) then
vLogin = ucase(request.form("txtLogin"))
vPassword = ucase(request.form("txtPassword"))
if vLOGIN <> "" and vPassword <> "" then
vSQL = " Select * from tblLogin where ucase(Login) = '" & vLogin & "' AND ucase(Password) = '" & vPassword & "' "
call OpenRS(rs,db,vSQL)
if rs.eof then
sMSG = " Login Failed"
else
vType = rs("LoginType")
if vType = 1 then 'Admin section
session("Login") = rs("Login")
session("LoginType") = "Admin"
response.redirect("Elevators.asp")
else 'User section
session("Login") = rs("Login")
session("LoginType") = "User"
response.redirect("U_Main.asp")
end if
end if
end if
end if
%>
Stratos Elevator, Inc.