home *** CD-ROM | disk | FTP | other *** search
/ sau9.org / sau9.org.zip / sau9.org / mathapp / place_admin.asp < prev    next >
Text File  |  2002-11-23  |  4KB  |  112 lines
  1. <title> Place Value
  2. </title>
  3. </HEAD>
  4. <body>
  5.  
  6. <table width="90%" border="0">
  7.   <tr>
  8.     <td><font face="Arial"> <font size="6">Place Value Administration Page<br>
  9.        </font></font></td>
  10.     <td>
  11.       <div align="center"><img src="math.gif" width="177" height="141"></div>
  12.     </td></tr><tr>
  13.     <td colspan=2> <font size="4">Edit questions here  or add new questions at the bottom of the table. Html tags may be used. <i> Please remember to close all html tags!</i></td>
  14.   </tr>
  15. </table>
  16. <%
  17. Dim csdQues
  18.  
  19. filePath = Server.MapPath("math_proj.mdb")
  20. set csdConn=server.createObject("ADODB.connection")
  21. csdConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
  22. set csdRec=csdConn.execute ("SELECT IdQNum, numSet, txtQuestion, valAnswer, Ans1, Ans2, Ans3, Ans4 FROM tblPlaceQues ORDER by numset, idQNum")
  23.  
  24. response.write "<form action=place_confirm.asp method=post> <font face=arial>"
  25. response.write "<table border=1><tr><td>Ques No. </td><td>Set No.<br><i> 7 per set</i></td><td>Question</td><td>Answer1</td><td>Answer2</td><td>Answer3</td><td>Answer4</td><td>Correct<br> Answer </td></tr>"
  26.  
  27. dim iCount
  28. iCount=0
  29.  
  30. do while not csdRec.EOF
  31. idQNum=csdRec("idQNum")
  32. intLevel=csdRec("numSet")
  33. strQues=csdRec("txtQuestion")
  34. strAns1=csdRec("Ans1")
  35. strAns2=csdRec("Ans2")
  36. strAns3=csdRec("Ans3")
  37. strAns4=csdRec("Ans4")
  38. strCorAns=csdRec("valAnswer")
  39.  
  40.  
  41. response.write "<tr><td>"
  42. response.write idQNum
  43. response.write " <input type=hidden name="
  44. response.write  iCount & ".idQNum"
  45. response.write " value="
  46. RESPONSE.WRITE idQNum & "></td><td><input type=text size=1 name="
  47. response.write iCount & ".intLevel value="  & intLevel & "></td><td><textarea cols=30 rows=3 name="
  48. response.write iCount & ".txtQuestion>"
  49. response.write StrQues & "</textarea>"
  50. response.write "</td><td>"
  51. response.write "<textarea  cols=12 rows=3 name=" & iCount & ".Ans1>"
  52. response.write strAns1
  53. response.write "</textarea> </td><td>"
  54. response.write "<textarea  cols=12 rows=3 name=" & iCount & ".Ans2>"
  55. response.write strAns2
  56. response.write "</textarea> </td><td>"
  57. response.write "<textarea  cols=12 rows=3 name=" & iCount & ".Ans3>"
  58. response.write strAns3
  59. response.write "</textarea> </td><td>"
  60. response.write "<textarea  cols=12 rows=3 name=" & iCount & ".Ans4>"
  61. response.write strAns4
  62. response.write "</textarea> </td><td>"
  63. response.write "<input type=text size=1 name=" & iCount & ".valAns value=" & strCorAns & ">"
  64.  
  65. response.write "</input></td></tr>"
  66.  
  67.  
  68. csdRec.movenext
  69. iCount=iCount + 1
  70. loop
  71. %>
  72. </table>
  73. <%
  74. response.write "<input type=hidden name=Count Value="
  75. iCount=iCount - 1
  76. response.write iCount
  77. response.write ">"
  78. %>
  79.  
  80. <input type=submit value="Edit Questions"> </form>
  81.  
  82.  <%
  83.  iCount=iCount + 2
  84. response.write "<form action=place_add.asp method=post>"
  85. response.write "<table><tr><td><input type=text size=3 name=add_idQNum value='"
  86. response.write iCount & "'></input>"
  87. response.write   "</td><td><input type=text size=3 name=intLevel></input>"
  88. response.write  "</td><td><textarea cols=30 rows=3 name=txtQuestion>"
  89.  
  90. response.write "</textarea>"
  91. response.write "</td><td>"
  92. response.write "<textarea  cols=15 rows=3 name=Ans1>"
  93.  
  94. response.write "</textarea> </td><td>"
  95. response.write "<textarea  cols=15 rows=3 name=Ans2>"
  96.  
  97. response.write "</textarea> </td><td>"
  98. response.write "<textarea  cols=15 rows=3 name=Ans3>"
  99.  
  100. response.write "</textarea> </td><td>"
  101. response.write "<textarea  cols=15 rows=3 name=Ans4>"
  102.  
  103. response.write "</textarea> </td><td>"
  104. response.write "<input type=text size=1 name=valAns>"
  105.  
  106. response.write "</input></td></table>"
  107.  
  108. response.write "<input type=submit value=Add this question></form>"
  109.  
  110.  
  111. %>
  112.