|
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" then
strAnswer = Request.Form("Answer")
NextQuestion = Request.Form("NextQuestion")
strpoints = Request.Form("strpoints")
If strAnswer = "" then
Error = "Please select yes or no."
End If
If Error = "" then
If strAnswer = "No" then
If strPoints="" then
strpoints = Cstr(NextQuestion)
Else
strpoints = Cstr(strpoints) & "," & Cstr(NextQuestion)
End If
End If
NextQuestion = NextQuestion + 1
End If
End If
%>
While every caregiving situation is unique, caring for someone is demanding. Caregivers are often isolated in their duties and can easily overlook getting help.
Learning how to care for a loved one by trial and error is not only time consuming, but also risky. It is also important to give yourself credit for the work you do, and to avoid getting trapped in a routine.
This calculator can help you find practical ways to get help and learn how to cope with the stresses of caregiving.
This test should be used as a guideline and is based on information available from the Family Caregiver Alliance.
|
|
|
<%
Dim Answer , strAnswer , NextQuestion, Error, strpoints
Error =""
If Request.ServerVariables("REQUEST_METHOD") = "POST" then
strAnswer = Request.Form("Answer")
NextQuestion = Request.Form("NextQuestion")
strpoints = Request.Form("strpoints")
If strAnswer = "" then
Error = "Please select yes or no."
End If
If Error = "" then
If strAnswer = "No" then
If strPoints="" then
strpoints = Cstr(NextQuestion)
Else
strpoints = Cstr(strpoints) & "," & Cstr(NextQuestion)
End If
End If
NextQuestion = NextQuestion + 1
End If
End If
%>
<%If Not NextQuestion >= 9 then%>
<%Else%>
Caregiver Tip 8 of 8:
Different people use different methods to provide care. Very often there are easier ways to perform certain tasks. |
<%End If%>
| |