<%
DIM oRs
DIM Dbobj
dim rsprint
rsprint = Request.QueryString("id")
strSQL = "SELECT * FROM doctors_20071025 WHERE ID = " & rsprint & ";"
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)
%>
<%
DO WHILE NOT oRs.EOF
on error resume next
%>
|
Physician: |
|
<% = oRs.Fields("fname") %> <% = oRs.Fields("mname") %> <% = oRs.Fields("lname") %>, <% = oRs.Fields("suffix") %> |
|
Department: |
|
"><% = oRs.Fields("dept") %>
|
|
Other Titles: |
|
<% = oRs.Fields("title") %> |
|
Medical Degree: |
|
<% = oRs.Fields("degree") %> |
|
Internship/Fellowship: |
|
<% = oRs.Fields("internship") %> |
|
Certification: |
|
<% = oRs.Fields("certification") %> |
|
Residency: |
|
<% = oRs.Fields("residency") %> |
|
Affiliation: |
|
<% = oRs.Fields("affiliation") %> |
|
Specialties: |
|
<% = oRs.Fields("s1") %>
<% if oRs.Fields("s2").Value <>"" then %>
, <% = oRs.Fields("s2") %>, <% = oRs.Fields("s3") %>
<% End if %> |
|
Interests: |
|
<% = oRs.Fields("i1") %>
<% if oRs.Fields("i2").Value <>"" then %>
, <% = oRs.Fields("i2") %>, <% = oRs.Fields("i3") %>, <% = oRs.Fields("i4") %>
<% End if %> |
|
Address: |
|
<% = oRs.Fields("address") %> |
|
Phone: |
|
<% = oRs.Fields("phone") %> |
|
Fax: |
|
<% = oRs.Fields("fax") %> |
|
|
|
|
<% oRs.MoveNext %>
<% Loop %>
<% DbObj.Close 'Close the database connection
SET DbObj = Nothing 'Clean up after yourself
%>