<%@ Language="VBScript" %>
<%
On error resume next
Public rsNote
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("btnPhysician") = "Physicians /" & Chr(13) & Chr(10) & " Provider" then
Response.Redirect "Physician.asp"
End if
Session("ErrMsg") = ""
Err.Clear
Set cnDB = CreateObject("ADODB.Connection")
cnDB.ConnectionString = Session("dbConnection")
cnDB.Open
If Err.number = 0 then
Set rsNote = cnDB.Execute("SELECT" & _
" SubscriberID," & _
" Note," & _
" Deleted" & _
" FROM tblSubscriber_Note" & _
" WHERE SubscriberID=" & Session("SubscriberId") & _
" AND Deleted<>Yes;")
If rsNote.eof then
End if
End if
%>
Note