home *** CD-ROM | disk | FTP | other *** search
/ sau9.org / sau9.org.zip / sau9.org / mathapp / place.asp < prev    next >
Text File  |  2002-11-21  |  2KB  |  82 lines
  1. <HTML>
  2. <head>
  3. <title> Place Value
  4. </title>
  5. </HEAD>
  6. <body>
  7.  
  8. <table width="90%" border="0">
  9.   <tr>
  10.     <td><font face="Arial"> <font size="6">Place Value Knowledge Check <br>
  11.        </font></font></td>
  12.     <td>
  13.       <div align="center"><img src="math.gif" width="177" height="141"></div>
  14.     </td>
  15.   </tr>
  16. </table>
  17. <%
  18. Dim csdQues, intStart
  19. idStudent=Request.form ("idStudent")
  20. level=request.form ("level")
  21.  
  22. level=level + 1
  23. response.write "<font face=tahoma>Question Set " &level & "<p>"
  24.  
  25.  
  26. sql="SELECT IdQNum, numSet, txtQuestion, valAnswer, Ans1, Ans2, Ans3, Ans4 FROM tblPlaceQues WHERE numset="
  27. sql=sql & level 
  28.  
  29.  
  30. filePath = Server.MapPath("math_proj.mdb")
  31. set csdConn=server.createObject("ADODB.connection")
  32. csdConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
  33. set csdQues=csdConn.execute(sql)
  34.  
  35. intQues=csdQues("idQnum")
  36. intStart=csdQues("IdQNum")
  37. 'response.write "intStart= " & intStart & "<p>"
  38. 'response.write intQues
  39.  
  40. response.write "<form action=place_check.asp method=post>"
  41.  
  42. do while not csdQues.EOF
  43. response.write "<font face=tahoma>"
  44. response.write intQues & ". "
  45. response.write csdQues("txtquestion")
  46. response.write "<br>       "
  47. response.write "<INPUT TYPE=RADIO NAME=Ques"
  48. response.write intQues & " VALUE=1>"
  49. response.write csdQues("ans1") & "<BR>       "
  50. response.write "<INPUT TYPE=RADIO NAME=Ques"
  51. response.write intques & " VALUE=2>"
  52. response.write csdQues("ans2") &"<BR>       "
  53. response.write "<INPUT TYPE=RADIO NAME=Ques"
  54. response.write intQues& " VALUE=3>"
  55. response.write csdQues("ans3") & "<BR>       "
  56. response.write "<INPUT TYPE=RADIO NAME=Ques"
  57. response.write intQues & " VALUE=4>"
  58. response.write csdQues("ans4")& "<BR>       "
  59. intQues=intQues + 1
  60.  
  61. response.write "<p>"
  62. csdQues.movenext
  63.  
  64. loop
  65. intQues=intQues - 1
  66.  
  67. response.write "<input type=hidden name=intQues value="
  68. response.write intQues
  69. response.write "><input type=hidden name=idStudent value="
  70. response.write idStudent & ">"
  71. response.write "<input type=hidden name=intStart value="
  72. response.write intStart
  73. response.write "><input type=submit value='Check My Answers!'>"
  74.  
  75.  
  76. response.write "<input type=hidden name=level value='"
  77. response.write level
  78. response.write "'></form>"
  79. %>
  80.  
  81.  
  82.