<%

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")%>

<% 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 %>