Quiz

<% dim reveal reveal = request.querystring("reveal") if reveal then response.write ("

We Win!

You did not correctly guess the dentures. In fact all the images below show dentures.

") end if if request.form <> "" then Dim quiz(5) quiz(0) = Request.Form("question_one") quiz(1) = Request.Form("question_two") quiz(2) = Request.Form("question_three") quiz(3) = Request.Form("question_four") quiz(4) = Request.Form("question_five") quiz(5) = Request.Form("question_six") For Each item In quiz if item <> "on" then fail = true noanswers = "" end if Next if fail then response.write ("

Sorry

You did not correctly guess the dentures. Please try again.

") else response.write ("

Well Done

You have guessed that all the images show dentures.

") end if else response.write ("

We pride ourselves on the realistic look of our dentures, take our quiz below and see if you can spot which images show dentures. Click the images to see a larger view and use the check boxes to select which images you think show dentures:

") end if %>