<%@ Language="VBScript" %>
<%
On error resume next
Public rsFamily
Public cnDB
Session("ErrMsg") = ""
Err.Clear
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("btnSubmit") = "Submit" then
If len(Request.Form("txtPassWord")) < 10 then
Session("ErrMsg") = "Pass Word must be at least 10 characters - Reenter Password"
ElseIf Not Request.Form("txtPassWord")= Request.Form("txtRepeatPassWord") then
Session("ErrMsg") = "Pass word does not match - Reenter Password"
Else
Err.clear
Set cnDB = CreateObject("ADODB.Connection")
cnDB.ConnectionString = Session("dbConnection")
cnDB.Open
If Err.number = 0 then
Set rsFamily = cnDB.Execute("UPDATE" & _
" tblSubscriber_Family" & _
" SET PassWord = '" & Request.Form("txtPassWord") & "'" & _
" WHERE FamilyID=" & session("FamilyID") & ";")
If Err.number <> 0 then
Session("ErrMsg") = "Pass Word not accepted"
Else
Response.Redirect "Subscriber.asp"
End if
End if
End if
End if
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
If Request.Form("btnNote") = "Notes" then
Response.Redirect "Note.asp"
End if
Set cnDB = CreateObject("ADODB.Connection")
cnDB.ConnectionString = Session("dbConnection")
cnDB.Open
If Err.number = 0 then
Set rsFamily = cnDB.Execute("SELECT" & _
" FamilyID," & _
" PassWord" & _
" FROM tblSubscriber_Family" & _
" WHERE FamilyID=" & Session("FamilyID") &";")
If rsFamily.eof then
End if
End if
%>
Pass Word