|
<%
DIM oRs
DIM Dbobj
DIM rsprint
Dim dpages
rsprint = Request.QueryString("id")
strSQL = "SELECT * FROM doctors WHERE deptid = " & rsprint & " ORDER BY chair DESC, physician ASC;"
SET DbObj = Server.CreateObject("ADODB.Connection")
DbObj.Open "DBQ=C:/hshome/smonbo1/huhealthcare.com/database/physicians.mdb;Driver={Microsoft Access Driver (*.mdb)};"
SET oRs = DbObj.Execute(strSQL)
%>
Department of
<% if rsprint = 0 then %>
Anesthesiology
<% end if %>
<% if rsprint = 0 then %>
<% end if %>
<% DbObj.Close 'Close the database connection
SET DbObj = Nothing 'Clean up after yourself
%>
|