<%@ 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

   

   

 
 
SEARCH PATIENT REPORT

<%=msg%>

Please use the following form to search the database according to your patients .

Search Patient Report

Doctor Name:
Password:

 Please fill  your  name and password in the form.

   

Copyright 2002 © Health Medical Imaging

 
<%On error Resume Next RS.Close Conn.Close %>