<%
dim userid
dim password
dim msg
dim checked
userid = Request.Form("userid")
password = Request.Form("password")
if request.Form("Login")="Login" then
dim rs
dim conn
set conn = server.CreateObject("Adodb.Connection")
set rs = server.CreateObject("Adodb.Recordset")
conn.Open strconn
rs.open "Select * From admin Where UserId='" & userid & "'",conn
if not rs.eof then
if password = rs.fields("Password") then
session("AdminOk") = "true"
session("UserId") = userid
response.Redirect("res.htm")
else
msg = ("Password not correct")
end if
else
msg = ("UserId not correct")
end if
rs.Close
conn.Close
set rs = nothing
set conn = nothing
End if
if request.QueryString("cmd") = "logout" then
session.Abandon()
End if
%>
internal
Grant Application | Shared Resources | Facility Bookings
