<% doMenu %> <% dim finalscore, finalperct dim test(15) dim answer finalscore = 0 'check for duplicates and put in new array dim match match = 0 answer = trim(lcase(Request.QueryString("" & i & ""))) AArray(0) = answer for i = 0 to 14 answer = trim(lcase(Request.QueryString("" & i & ""))) ' response.write "ans=" & answer for j = 0 to 14 if answer = AArray(j) then 'response.write "match" match = match + 1 end if next if match < 1 then AArray(i) = answer end if match = 0 next for i = 0 to 14 '----- this is a test to take care of the mouse coordinates send by the click ------- for j = 0 to 14 if AArray(i) = SRArray(j) then finalscore = finalscore + 1 ' test(i) = answer ' else ' test(i) = answer end if next NEXT 'finalscore = ((Cint(newscore) + Cint(firstscore))) finalperct = Cstr((finalscore / 15) * 100) 'finalperct = Cstr((finalscore / 15) * 100) '-------- redirect the page if the total of answer is equal to 10 -------------- 'if finalscore = 10 then ' response.redirect "quiz10_10.asp" 'elseif finalscore = 0 then ' response.redirect "quiz0correct.asp" 'end if %>

<%= QuizTitle %>

<% if finalscore = 1 or finalscore = 0 then Response.Write "You answered " & finalscore & " question out of 15 correctly.
That's " + finalperct + chr(37) + ". Thanks for playing!
" else Response.Write "You answered " & finalscore & " questions out of 15 correctly.
That's " + finalperct + chr(37) + ". Thanks for playing!
" end if %>

<%= quiz_blurb3 %>

<% doFooter %>