Thank you for using our Teen Suicide Risk Calculator.

The most important thing a parent can do to decrease the likelihood that their teen might contemplate suicide is to develop a close and caring relationship with him or her. Teens who feel valued by family members are less likely to think about suicide. The presence of parents at key times during the day (at waking, after school, at dinner, at bedtime) and through shared activities reduce the likelihood of abuse.

<% Dim Answer , intAnswer , NextQuestion, Error, strGrade, numResult strFinal = Request.QueryString("Final") Error ="" If Request.ServerVariables("REQUEST_METHOD") = "POST" then NextQuestion = Request.Form("NextQuestion") if Request.Form("Grade") <> "" then strGrade = Request.Form("Grade") end if If Request.Form("Answer") = "" then Error = "Please select yes or no." numResult = CSng(Request.Form("Result")) else intAnswer = int(Request.Form("Answer")) End If If Error = "" then if NextQuestion < 2 then numResult = 0.0 ' first time initialize to send it through form else numResult = CSng(Request.Form("Result")) end if if NextQuestion = 2 then if strGrade = "1" then numResult = numResult + (-.17 * intAnswer) elseif strGrade = "2" then numResult = numResult + (-.24 * intAnswer) end if elseif NextQuestion = 3 then if strGrade = "1" then numResult = numResult elseif strGrade = "2" then numResult = numResult + (.13 * intAnswer) end if elseif NextQuestion = 4 then if strGrade = "1" then numResult = numResult + (-.17 * intAnswer) elseif strGrade = "2" then numResult = numResult + (-.18 * intAnswer) end if elseif NextQuestion = 5 then if strGrade = "1" then numResult = numResult elseif strGrade = "2" then numResult = numResult + (-.21 * intAnswer) end if elseif NextQuestion = 6 then if strGrade = "1" then numResult = numResult + (.08 * intAnswer) elseif strGrade = "2" then numResult = numResult + (.06 * intAnswer) end if elseif NextQuestion = 7 then if strGrade = "1" then numResult = numResult + (.12 * intAnswer) elseif strGrade = "2" then numResult = numResult end if elseif NextQuestion = 8 then if strGrade = "1" then numResult = numResult elseif strGrade = "2" then numResult = numResult + (.27 * intAnswer) end if elseif NextQuestion = 9 then if strGrade = "1" then numResult = numResult + (-.12 * intAnswer) elseif strGrade = "2" then numResult = numResult end if end if NextQuestion = NextQuestion + 1 End If End If %> <%If Not NextQuestion >=10 and strFinal <> "true" then%> <% If NextQuestion < 10 then%> <%If Error >"" Then%> <%Else%> <%End if%> <%End If%>

<%= Error%>

Please select the appropriate response to the following 9 questions:

"> <%if NextQuestion >= 2 then%> <%end if%>

<%If not NextQuestion>=2 then%> Question 1 of 9: Select your teen's grade-level in school (if your teen is not currently enrolled, please pick the grade your teen would be in if he were in school): 7-8 9-12 <%ElseIf NextQuestion=2 then%> Question 2 of 9: Would you characterize your relationship with your teen as close and caring (i.e. satisfactory relationship with mother and/or father)? Yes No <%ElseIf NextQuestion=3 then%> Question 3 of 9: Are there guns in your house? Yes No <%ElseIf NextQuestion=4 then%> Question 4 of 9: Does your teen have a good experience at school (such as associates with friends, feels teachers are fair, likes going to school)? Yes No <%ElseIf NextQuestion=5 then%> Question 5 of 9: Does your teen have good self-esteem (i.e. a lot to be proud of, likes self and his or her accomplishments)? Yes No <%ElseIf NextQuestion=6 then%> Question 6 of 9: Does your teen mention being at risk for an untimely death? Yes No <%ElseIf NextQuestion=7 then%> Question 7 of 9: Have there been any recent suicide attempts in your family? Yes No <%ElseIf NextQuestion=8 then%> Question 8 of 9: Does your teen appear older than most teens of the same age? Yes No <%ElseIf NextQuestion=9 then%> Question 9 of 9: Does your teen get good grades? Yes No <%End If%>

<%Else%> <%numResult = Round(numResult * 100, 0)%> <% if strFinal = "" then strFinal = "true"%> <%If numResult < 0 then if numResult < -100 then numResult = -100 end if%> <%ElseIf numResult > 0 then%> <%ElseIf numResult = 0 then%> <%End If%> <% else %> <% end if %>

Based on your responses, your teen is <%=numResult*-1%> percent less likely to contemplate suicide when compared to other teens of similar age. This answer is only a guideline to help you recognize what factors increase the likelihood that your teen will think about suicide before the end of high school.

Based on your responses, your teen is <%=numResult%> percent more likely to think about suicide when compared to similar aged teens. This answer is only a guideline to help you recognize what factors increase your teen's likelihood of that your teen will think about suicide before the end of high school.

Based on your responses, your teen is no more likely to contemplate suicide than similarly aged teens. This answer is only a guideline to help you recognize what factors increase your teen's likelihood to have sex before the end of high school.

?Final=<%=strFinal%>">What factors increase suicide risk?

The following factors increase the likelihood that teens will contemplate suicide: Poor family relationships Recent suicide attempts in the family Household acces to guns Poor school experience Low self-esteem Fear of dying Poor grades

<%End If%>