<% 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 %> <p>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) %> <h2>Question Number <%=rsTemp("QuestionID")%> </h2> <form method=POST action="myASP.ASP"> <input type=hidden name=CurQ value=<%=CurQ%>> Your question is <%=rsTemp("Question")%><br> Answer: <select name="AnsW"> <option value=1><%=rsTemp("AnswerA")</option> <option value=2><%=rsTemp("AnswerB")</option> <option value=3><%=rsTemp("AnswerC")</option> <option value=4><%=rsTemp("AnswerD")</option> </select> <input type=hidden value="<%=correct%>"><input type=hidden value="<%=wrong%>"> <input type=reset value="Clear the Form"><input type=submit value="OK!"> </form> <% Else %> <% set conntemp = server.createobject("adoDB.Connection")
|