%@ Language=VBScript %><%
if request.form("logout")="Logout" then
session.Abandon
'Response.Write "
"
end if
dim UserID ,Pass, message
message="Please give your User ID and Password.."
if Request.Form ("submit")="Submit" then
UserID =Request.Form("UserID")
Pass =Request.Form("Pass")
%><%
dim myrs
set myrs = server.createobject("ADODB.recordset")
myrs.open "select * from UserLogin where UserID ='" & UserID & "' and Password1 ='"& Pass &"'" ,myconn,3
'3=adOpenStatic,then only myrs.recordcount will work
''''''''''''''''''''''''''''''''''''''''''''''''''
if myrs.EOF then
message="Invalid User ID or Password!!, please check the CapsLock key"
else
Session.Contents ("UserID")= UserID
Response.Redirect("EX/aero_user/exam_instructions.asp")
end if
end if
%>