<%@ Language=VBScript %>
<%
set objQuiz = server.CreateObject("SampleServer.Quiz")
if isempty(Request.Form("Calculate")) then
  CurrentQuestion = 1
  QuestionsTaken = 0
  NumberCorrect = 0
else
  if objQuiz.CheckAnswer(Request.Form("CurrentQuestion"), _
    Request.Form("Answer")) = 1 then
    NumberCorrect = Request.Form("NumberCorrect") + 1
  else
    NumberCorrect = Request.Form("NumberCorrect")
  end if
  QuestionsTaken = Request.Form("QuestionsTaken") + 1
  CurrentQuestion = Request.Form("CurrentQuestion") + 1
end if
QuestionText = objQuiz.GetQuestion(CurrentQuestion)
if QuestionText = "NA" then
  TheMessage = "Quiz: zakoczony"
else
  TheMessage = "Quiz: w trakcie"
  AnswerText = objQuiz.GetAnswer(CurrentQuestion)
end if
%>