home *** CD-ROM | disk | FTP | other *** search
/ sau9.org / sau9.org.zip / sau9.org / mathapp / dec_admin.asp < prev    next >
Text File  |  2002-12-03  |  3KB  |  88 lines
  1. <title> Decimal Operations
  2. </title>
  3. </HEAD>
  4. <body>
  5.  
  6. <table width="90%" border="0">
  7.   <tr>
  8.     <td><font face="Arial"> <font size="6">Decimal Operations 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, txtLevel, numSet, txtQuestion, valAnswer FROM tblOperationQues order by idQNum")
  23.  
  24. response.write "<form action=dec_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>Level of <br>Difficulty</td><td>Question</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. txtLevel=csdRec("numSet")
  33. difficulty=csdRec("txtLevel")
  34. strQues=csdRec("txtQuestion")
  35. strCorAns=csdRec("valAnswer")
  36.  
  37.  
  38. response.write "<tr><td>"
  39. response.write idQNum
  40. response.write " <input type=hidden name="
  41. response.write  iCount & ".idQNum"
  42. response.write " value="
  43. RESPONSE.WRITE idQNum & "></td><td><input type=text size=1 name="
  44. response.write iCount & ".txtLevel value="  & txtLevel & "></td><td><input type=text size=1 name="
  45. response.write iCount & ".difficulty value="& difficulty & "></td><td><textarea cols=20 rows=1 name="
  46. response.write iCount & ".txtQuestion>"
  47. response.write StrQues & "</textarea>"
  48. response.write "</td><td>"
  49. response.write "<input type=text size=1 name=" & iCount & ".valAns value=" & strCorAns & ">"
  50.  
  51. response.write "</input></td></tr>"
  52.  
  53.  
  54. csdRec.movenext
  55. iCount=iCount + 1
  56. loop
  57. %>
  58. </table>
  59. <%
  60. response.write "<input type=hidden name=Count Value="
  61. iCount=iCount - 1
  62. response.write iCount
  63. response.write ">"
  64. %>
  65.  
  66. <input type=submit value="Edit Questions"> </form>
  67.  
  68.  <%
  69.  response.write "<form action=dec_add_confirm.asp method=post>"
  70.  iCount=iCount + 2
  71.  response.write "<input type=hidden name=Count Value="
  72. response.write iCount
  73. response.write ">"
  74.  
  75. response.write "<table><tr><td><input type=text size=3 name=idQNum value="
  76. response.write iCount & "></input>"
  77. response.write   "</td><td><input type=text size=3 name=txtLevel></input>"
  78. response.write   "</td><td><input type=text size=3 name=difficulty></input>"
  79. response.write  "</td><td><input type=text size=20 name=txtQuestion>"
  80. response.write "</td><td>"
  81. response.write "<input type=text size=1 name=valAnswer>"
  82. response.write "</input></td></tr></table>"
  83.  
  84. response.write "<input type=submit value='Add this question'></form>"
  85.  
  86.  
  87. %>
  88.