<%
isSurveyDone=Request.Form("SVID")
If isSurveyDone = "Y" Then
OvationScore = CINT(GetFormObjectInteger("QOV1",0)) + CINT(GetFormObjectInteger("QOV2",0)) + CINT(GetFormObjectInteger("QOV3",0)) + CINT(GetFormObjectInteger("QOV4",0)) + CINT(GetFormObjectInteger("QOV5",0)) + CINT(GetFormObjectInteger("QOV6",0)) + CINT(GetFormObjectInteger("QOV7",0)) + CINT(GetFormObjectInteger("QOV8",0)) + CINT(GetFormObjectInteger("QOV9",0)) + CINT(GetFormObjectInteger("QOV10",0))
OvationPercentString = CSTR(100 - (OvationScore * 10)) & "%"
Select Case OvationScore
Case 0
OvationScoreMessage = "You scored a whopping " & OvationPercentString & " on the triON Energy Index. Clearly you either not from this planet, you skipped the questions, or you are already using triON by Ovation. Keep it up and order more triON!"
Case 1,2,3
OvationScoreMessage = "Congratulations you scored an impressive " & OvationPercentString & " on the triON Energy Index. You are an energetic go getter and triON will help you operate at your high octane lifestyle."
Case 4,5,6
OvationScoreMessage = "You scored " & OvationPercentString & " on the triON Energy Index. Like most of us, you are busy keeping up with your schecdule. triON makes it easire to be perform at higher levels while keeping up with the many demands placed upon your day."
Case 7,8,9
OvationScoreMessage = "You scored " & OvationPercentString & " on the triON Energy Index. This indicates you have more than your share of busy and energy draining activities in your day. Combat stress, fatigue, and apathy with a good boost of triON each day. triOn is just the explosive boost you need to kick start your day and your life."
Case 10
OvationScoreMessage = "Check your pulse! You just scored " & OvationPercentString & " on the triON Energy Index. Clearly you need a triON energy boost right now. C'mon you can do it, muster up the energy and call us right now. We will express some triOn to you immediately. A life, Your life! may depend on it!"
End Select
End if
Function GetFormObjectInteger(FormObject,sDefault)
dim Temp
Temp = request.form(FormObject)
If ( isNull(Temp) or isEmpty(Temp) or Not isNumeric(Temp) ) Then
Temp = request.QueryString(FormObject)
End if
If ( isNull(Temp) or isEmpty(Temp) or Not isNumeric(Temp) ) Then
If sDefault = -1 Then
Else
Temp = sDefault
End if
End if
GetFormObjectInteger = Temp
End Function
%>
