Your Quiz Result
Dim q1, q2, q3, q4, q5, q6, q7, q8, q9, q10, q11, q12, q13, q14, q15, countA, countB, countC, countD
q1 = Request.Form("q1")
q2 = Request.Form("q2")
q3 = Request.Form("q3")
q4 = Request.Form("q4")
q5 = Request.Form("q5")
q6 = Request.Form("q6")
q7 = Request.Form("q7")
q8 = Request.Form("q8")
q9 = Request.Form("q8")
q10 = Request.Form("q10")
q11 = Request.Form("q11")
q12 = Request.Form("q12")
q13 = Request.Form("q13")
q14 = Request.Form("q14")
q15 = Request.Form("q15")
countA = 0
countB = 0
countC = 0
countD = 0
<%
' Count answers
If q1 = "A" Then countA = countA + 1
If q1 = "B" Then countB = countB + 1
If q1 = "C" Then countC = countC + 1
If q1 = "D" Then countD = countD + 1
If q2 = "A" Then countA = countA + 1
If q2 = "B" Then countB = countB + 1
If q2 = "C" Then countC = countC + 1
If q2 = "D" Then countD = countD + 1
If q3 = "A" Then countA = countA + 1
If q3 = "B" Then countB = countB + 1
If q3 = "C" Then countC = countC + 1
If q3 = "D" Then countD = countD + 1
If q4 = "A" Then countA = countA + 1
If q4 = "B" Then countB = countB + 1
If q4 = "C" Then countC = countC + 1
If q4 = "D" Then countD = countD + 1
If q5 = "A" Then countA = countA + 1
If q5 = "B" Then countB = countB + 1
If q5 = "C" Then countC = countC + 1
If q5 = "D" Then countD = countD + 1
If q6 = "A" Then countA = countA + 1
If q6 = "B" Then countB = countB + 1
If q6 = "C" Then countC = countC + 1
If q6 = "D" Then countD = countD + 1
If q7 = "A" Then countA = countA + 1
If q7 = "B" Then countB = countB + 1
If q7 = "C" Then countC = countC + 1
If q7 = "D" Then countD = countD + 1
If q8 = "A" Then countA = countA + 1
If q8 = "B" Then countB = countB + 1
If q8 = "C" Then countC = countC + 1
If q8 = "D" Then countD = countD + 1
If q9 = "A" Then countA = countA + 1
If q9 = "B" Then countB = countB + 1
If q9 = "C" Then countC = countC + 1
If q9 = "D" Then countD = countD + 1
If q10 = "A" Then countA = countA + 1
If q10 = "B" Then countB = countB + 1
If q10 = "C" Then countC = countC + 1
If q10 = "D" Then countD = countD + 1
If q11 = "A" Then countA = countA + 1
If q11 = "B" Then countB = countB + 1
If q11 = "C" Then countC = countC + 1
If q11 = "D" Then countD = countD + 1
If q12 = "A" Then countA = countA + 1
If q12 = "B" Then countB = countB + 1
If q12 = "C" Then countC = countC + 1
If q12 = "D" Then countD = countD + 1
If q13 = "A" Then countA = countA + 1
If q13 = "B" Then countB = countB + 1
If q13 = "C" Then countC = countC + 1
If q13 = "D" Then countD = countD + 1
If q14 = "A" Then countA = countA + 1
If q14 = "B" Then countB = countB + 1
If q14 = "C" Then countC = countC + 1
If q14 = "D" Then countD = countD + 1
If q15 = "A" Then countA = countA + 1
If q15 = "B" Then countB = countB + 1
If q15 = "C" Then countC = countC + 1
If q15 = "D" Then countD = countD + 1
' Determine personality type
Dim result
If countA > countB And countA > countC Then
result = "Bitchy Kitty - You are mysterious and attractive."
ElseIf countB > countA And countB > countC Then
result = "Meek Lambikins - You are sweet and kind."
Else
result = "Loyal Doggie - You are friendly and fun-loving."
End If
%>
<%= result %>
Try Again