<% CurQ = Request.Form("CurQ") Answ = Request.Form("Answ") correct=Request.Form("Correct") wrong=Request.Form("Wrong") 'Poor Man's IsNull Code goes here If PoorMansIsNull(CurQ) Then CurQ = 1 correct = 0 wrong = 0 End If If PoorMansIsNUll(Answ) Then CurQ = CurQ + 1 If CurQ > (Your maximum number of questions) Then %>

Congratulations. You have completed this test. You missed <%=wrong%> questions, but got <%=correct%> questions right. That is equivilent to a <%=(correct/(max#ofQs)%>%. Thank you for doing the test. <% End If %> <% set conntemp = server.createobject("adoDB.Connection") set myDSN = '(your DSN info goes here) conntemp.Open myDSN set mySQL = "SELECT * FROM QUESTIONS WHERE QuestionID=" & CurQ set rsTemp= conntemp.Execute(mySQL) %>

Question Number <%=rsTemp("QuestionID")%>

> Your question is <%=rsTemp("Question")%>
Answer:
<% Else %> <% set conntemp = server.createobject("adoDB.Connection") set myDSN = '(your DSN info goes here) conntemp.Open myDSN set mySQL = "SELECT * FROM QUESTIONS WHERE QuestionID=" & CurQ set rsTemp= conntemp.Execute(mySQL) If AnsW = rsTemp("CorrectAns") Then %>

Congratulations. You got it right. Whee

<% correct = correct + 1 %> <% Else %>

I'm sorry, you missed the question. You can review by reading:

<%=rsTemp("reference")

<% wrong = wrong + 1 %> <% End If %>
<% End If %>