<% calcurl="stress.html" calctitle="Stress Calculator" calctease="Does stress affect your health?" calname="stress" %> Health Calc: Stress Calculator

<%=calctease%>

<%NextQuestion = Request.form("NextQuestion") If NextQuestion = 5 then %> Your results: <%else%> Begin here: <%End If %>

<% If NextQuestion = 5 then%>

Thank you for taking the Stress Calculator.

People who are overstressed are at greater risk for various diseases and disorders, including high blood pressure and heart disease.

Your stress index score will help you determine how stressed you are and if you should take measures to reduce your stress level.

<%Else%>

Use the Stress Calculator to categorize how stressed you are.

This test should be used only as a guideline. <%End If%>

<% Dim Answer, strAnswer, NextQuestion, strPoints, Error, A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z, AA, BB, CC, DD, EE, FF, GG, HH, II, JJ, KK, LL, MM, NN, OO, PP, QQ, strEnd If Request.ServerVariables("REQUEST_METHOD") = "POST" then NextQuestion = Request.form("NextQuestion") strPoints = Request.form("strPoints") A = Request.form("A") B = Request.form("B") C = Request.form("C") D = Request.form("D") E = Request.form("E") F = Request.form("F") G = Request.form("G") H = Request.form("H") I = Request.form("I") J = Request.form("J") K = Request.form("K") L = Request.form("L") M = Request.form("M") N = Request.form("N") O = Request.form("O") P = Request.form("P") Q = Request.form("Q") R = Request.form("R") S = Request.form("S") T = Request.form("T") U = Request.form("U") V = Request.form("V") W = Request.form("W") X = Request.form("X") Y = Request.form("Y") Z = Request.form("Z") AA = Request.form("AA") BB = Request.form("BB") CC = Request.form("CC") DD = Request.form("DD") EE = Request.form("EE") FF = Request.form("FF") GG = Request.form("GG") HH = Request.form("HH") II = Request.form("II") JJ = Request.form("JJ") KK = Request.form("KK") LL = Request.form("LL") MM = Request.form("MM") NN = Request.form("NN") OO = Request.form("OO") PP = Request.form("PP") QQ = Request.form("QQ") If NextQuestion = 1 then If A > "" then strPoints = 100 End If If B > "" then strPoints = strPoints + 73 End If If C > "" then strPoints = strPoints + 65 End If If D > "" then strPoints = strPoints + 63 End If If E > "" then strPoints = strPoints + 63 End If If F > "" then strPoints = strPoints + 53 End If If G > "" then strPoints = strPoints + 50 End If If H > "" then strPoints = strPoints + 47 End If strEnd = "False" ElseIf NextQuestion = 2 then If I > "" then strPoints = strPoints + 45 End If If J > "" then strPoints = strPoints + 45 End If If K > "" then strPoints = strPoints + 44 End If If L > "" then strPoints = strPoints + 40 End If If M > "" then strPoints = strPoints + 40 End If If N > "" then strPoints = strPoints + 39 End If If O > "" then strPoints = strPoints + 39 End If If P > "" then strPoints = strPoints + 38 End If strEnd = "False" ElseIf NextQuestion = 3 then If Q > "" then strPoints = strPoints + 37 End If If R > "" then strPoints = strPoints + 36 End If If S > "" then strPoints = strPoints + 35 End If If T > "" then strPoints = strPoints + 31 End If If U > "" then strPoints = strPoints + 30 End If If V > "" then strPoints = strPoints + 29 End If If W > "" then strPoints = strPoints + 29 End If If X > "" then strPoints = strPoints + 29 End If ElseIf NextQuestion = 4 then If Y > "" then strPoints = strPoints + 28 End If If Z > "" then strPoints = strPoints + 26 End If strEnd = "False" If AA > "" then strPoints = strPoints + 26 End If If BB > "" then strPoints = strPoints + 25 End If If CC > "" then strPoints = strPoints + 24 End If If DD > "" then strPoints = strPoints + 23 End If If EE > "" then strPoints = strPoints + 20 End If If FF > "" then strPoints = strPoints + 20 End If If GG > "" then strPoints = strPoints + 20 End If strEnd = "False" ElseIf NextQuestion = 5 then If II > "" then strPoints = strPoints + 19 End If If HH > "" then strPoints = strPoints + 19 End If If JJ > "" then strPoints = strPoints + 18 End If If KK > "" then strPoints = strPoints + 17 End If If LL > "" then strPoints = strPoints + 16 End If If MM > "" then strPoints = strPoints + 15 End If If NN > "" then strPoints = strPoints + 15 End If If OO > "" then strPoints = strPoints + 13 End If If PP > "" then strPoints = strPoints + 12 End If If QQ > "" then strPoints = strPoints + 11 End If strEnd = "True" End If NextQuestion = NextQuestion + 1 Else strPoints = 0 End If %> <%If not strEnd = "True" then%>

"> <%If not NextQuestion >= 2 then%> <%End If%> <%If not NextQuestion >= 2 then%> <%ElseIf NextQuestion = 2 then%> <%ElseIf NextQuestion = 3 then%> <%ElseIf NextQuestion = 4 then%> <%ElseIf NextQuestion = 5 then%> <%End If%>
Check the box next to the items in the following list that apply to your current circumstances.
Death of a Spouse
Divorce
Marital separation
Detention in jail or institution
Death of a close family member
Major personal injury or illness
Marriage
Being fired from work

Marital reconciliation
Retirement
Major change in health or behavior of a family member
Pregnancy
Sexual difficulty
Gaining a new family member through birth, adoption or remarriage
Major business readjustments
Major change in financial state

Death of a close friend
Changing to a different line of work
Major increase in fights with spouse
Taking on a new mortgage
Foreclosure on a mortgage or loan
Major change in responsiblity at work
Son or daughter leaving home
Troubles with in-laws

Outstanding personal achievement
Spouse begins to cease work outside of home
Go back to school
Major change in living conditions (rebuilding, remodeling)
Revising personal habits
Troubles with superior, boss
Major change in working hours, conditions
Changing residence
Changing to a new school

Major change in sleeping habits
Major change in type and/or amount of recreation
Major change in church activities
Major change in social activities
Purchasing a new car, or other big purchase
Major change in number of family get-togethers
Major change in eating habits
Vacation
Christmas or holiday observance
Minor violations of the law

<%Else%> <%If strPoints >= 300 then%> <%ElseIf strPoints > 150 and strPoints < 300 then%> <%ElseIf strPoints <= 150 then%> <%End If%>
You scored <% = strPoints%> points.
According to your score, you may be under considerable stress.
According to your score, your stress level may be moderate.
You are probably not suffering from a great deal of stress.

<%End If%>