<% //Did the user answer question 1? if (Request.Form("Answer1").count > 0) then //Get the answer into a string variable sAnswer1 = Request.Form("Answer1") //Convert the answer into lower case sLoweredAnswer1 = LCase(sAnswer1) //Did the user get the answer correct? if (sLoweredAnswer1 = "metamorphic") then sFeedback = "Nice job! The answer is metamorphic." else sFeedback = "No, the correct answer is metamorphic." end if call displayFeedback(sFeedback,"question2.htm") else //print an error message sPrint = "You must take the " sPrint = sPrint & "
rocks quiz
" sPrint = sPrint & " before this script will do anything." Response.Write(sPrint) end if %>