<%@ Language="VBScript" %> <% On error resume next Public rsPhysician Public rsProvider Public cnDB If isEmpty(Session("SubscriberID")) then Session("ErrMsg") = "Your connection has expired" Response.Redirect "Login.asp" elseIf Session("SubscriberID") = 0 then Session("ErrMsg") = "Your connection has expired" Response.Redirect "Login.asp" End if '-- Buttons If Request.Form("btnSubscriber") = "Subscriber" then Response.Redirect "Subscriber.asp" End if If Request.Form("btnCondition") = "Condition" then Response.Redirect "Condition.asp" End if If Request.Form("btnMedication") = "Medication" then Response.Redirect "Medication.asp" End if If Request.Form("btnAllergies") = "Allergies /" & Chr(13) & Chr(10) & " Inoculations" then Response.Redirect "Allergies.asp" End if If Request.Form("btnNote") = "Notes" then Response.Redirect "Note.asp" End if Session("ErrMsg") = "" Err.Clear Set cnDB = CreateObject("ADODB.Connection") cnDB.ConnectionString = Session("dbConnection") cnDB.Open If Err.number = 0 then Set rsPhysician = cnDB.Execute("SELECT" & _ " Trim([FirstName]) & ' ' & LTrim([Initial] & ' ') & ' ' & Trim([LastName]) AS Name," & _ " Phone," & _ " Speciality," & _ " FamilyID," & _ " Deleted" & _ " FROM tblSubscriber_Physicians" & _ " WHERE FamilyID=" & Session("FamilyID") & _ " AND Deleted<>Yes;") Set rsProvider = cnDB.Execute("SELECT" & _ " Company," & _ " Phone," & _ " PolicyNumber," & _ " FamilyID," & _ " Deleted" & _ " FROM tblSubscriber_Provider" & _ " WHERE FamilyID=" & Session("FamilyID") & _ " AND Deleted<>Yes;") End if If rsPhysician.eof or rsProvider.eof then End if %> Physicians / Provider
<% If Not len(Session("ErrMsg")) = 0 then Response.Write "

" Response.Write "Error: " & Session("ErrMsg")& "

" End if %> <%Do until rsPhysician.eof%> <%If not rsPhysician.eof then%> <%rsPhysician.MoveNext End if%> <%Loop%> <%Do until rsProvider.eof%> <%If not rsProvider.eof then%> <%rsProvider.MoveNext End if%> <%Loop%>

Physicians

Name

Phone

Speciality

<%Response.Write rsPhysician("Name")%>

<%Response.Write rsPhysician("Phone")%>

<%Response.Write rsPhysician("Speciality")%>

Insurance Providers

Company

Phone

Policy Number

<%Response.Write rsProvider("Company")%>

<%Response.Write rsProvider("Phone")%>

<%Response.Write rsProvider("PolicyNumber")%>

<% rsPhysician.close rsProvider.close set cnDB = Nothing %>