<%@ Language="VBScript" %> <% On error resume next Public rsSubscriber Public rsContacts 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("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("btnPhysician") = "Physicians /" & Chr(13) & Chr(10) & " Provider" then Response.Redirect "Physician.asp" End if If Request.Form("btnNote") = "Notes" then Response.Redirect "Note.asp" End if If Request.Form("btnPassWord") = "Pass Word" then Response.Redirect "PassWord.asp" End if Session("ErrMsg") = "" Err.Clear Set cnDB = CreateObject("ADODB.Connection") cnDB.ConnectionString = Session("dbConnection") cnDB.Open If Err.number = 0 then Set rsSubscriber = cnDB.Execute("SELECT" & _ " Trim([FirstName]) & ' ' & LTrim([Initial] & ' ') & [LastName] AS Name," & _ " tblSubscriber.*," & _ " Address1," & _ " Address2," & _ " Address3," & _ " City," & _ " State," & _ " Zip," & _ " Phone" & _ " FROM tblSubscriber_Family" & _ " LEFT JOIN tblSubscriber ON tblSubscriber_Family.FamilyID = tblSubscriber.FamilyID" & _ " WHERE tblSubscriber.SubscriberID= " & Session("SubscriberID") & ";") If rsSubscriber.eof then Session("ErrMsg") = "Subscriber Not found" End if End if %> Subscriber
<% If Not len(Session("ErrMsg")) = 0 then Response.Write "

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

" End if %> <%If rsSubscriber("Primary") = vbTrue then%> <%End If%> <% Err.Clear If len(Session("ErrMsg")) = 0 then Set rsContacts = cnDB.Execute("SELECT" & _ " FamilyID," & _ " Trim([FirstName]) & ' ' & LTrim([Initial] & ' ') & [LastName] AS Name," & _ " RelationShip," & _ " Phone," & _ " Deleted" & _ " FROM tblSubscriber_Contact" & _ " WHERE FamilyID=" & Session("FamilyID") & _ " AND Deleted<>Yes;") If Err.number = 0 then Do until rsContacts.eof%> <%rsContacts.MoveNext Loop rsContacts.close End if End if%>

Subscriber

Subscriber:

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

Birth Date:

 <%Response.Write rsSubscriber("BirthDate")%>

Emergency Authorization:

<%Response.Write rsSubscriber("EmergencyAuthorization")%>

Height:

 <%Response.Write rsSubscriber("Height")%>

Weight:

 <%Response.Write rsSubscriber("Weight")%>

Medical Donor:

<%Response.Write rsSubscriber("MedicalDonor")%>

Blood Type:

 <%Response.Write rsSubscriber("BloodType")%>

Blood Pressure:

 <%Response.Write rsSubscriber("BloodPressure")%>

Sex:

 <%Response.Write rsSubscriber("Sex")%>

Glasses:

 <%Response.Write rsSubscriber("Glasses")%>

Hearing Aid:

 <%Response.Write rsSubscriber("HearingAid")%>

Dentures:

 <%Response.Write rsSubscriber("Dentures")%>

Employer:

 <%Response.Write rsSubscriber("Employer")%>

Occupation:

 <%Response.Write rsSubscriber("Occupation")%>

Emp.Phone:

 <%Response.Write rsSubscriber("EmployerPhone")%>

Relegion:

 <%Response.Write rsSubscriber("Relegion")%>

Veteran:

 <%Response.Write rsSubscriber("Veteran")%>

Home Pets:

 <%Response.Write rsSubscriber("HomePets")%>

Family Information

Address:

 <%Response.Write rsSubscriber("Address1")%>

City:

 <%Response.Write rsSubscriber("City")%>

Phone:

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

<%Response.Write rsSubscriber("Address2")%>

State

 <%Response.Write rsSubscriber("State")%>

<%Response.Write rsSubscriber("Address3")%>

Zip

 <%Response.Write rsSubscriber("Zip")%>

Emergency Contacts

Contact:

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

Relationship:

 <%Response.Write rsContacts("Relationship")%>

Phone:

 <%Response.Write rsContacts("Phone")%>
<% rsSubscriber.close set cnDB = Nothing %>