<%@ LANGUAGE="VBSCRIPT" %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open Session("Conn")
IF Ucase(Right(Request("LogON"),2))="ON" then
SQL="Select * From Admin Where ((AdminName='"&Request("DoctorName")&"') And (Password='"&Request("Password")&"'));"
Set RS = Conn.Execute(SQL)
if Rs.BOF then
msg= "
Login Failure
The User ID does not exist
"
else
Session("DoctorsID")="MRIAdmin"
Session("Admin")="MRIAdmin"
Response.redirect "mriadminfirst.asp"
end if
SQL="Select * From Doctors Where ((DoctorName='"&Request("DoctorName")&"') And (Password='"&Request("Password")&"'));"
Set RS = Conn.Execute(SQL)
if Rs.BOF then
msg= "
Login Failure
The User ID does not exist
"
else
Session("DoctorsID")=rs(0)
Response.redirect "mridoctors.asp"
end if
end if
%>
Health Medical Imaging
