home *** CD-ROM | disk | FTP | other *** search
/ sau9.org / sau9.org.zip / sau9.org / mathapp / place_confirm.asp < prev    next >
Text File  |  2002-11-11  |  2KB  |  70 lines
  1. <%@ Language=VBScript %>
  2. <%
  3.  Response.Buffer = True
  4.  
  5.  
  6. Function ChkString(string)
  7.   If string = "" Then string = " "
  8.    ChkString = Replace(string, "'", "''")
  9.    End Function
  10.  
  11. set tn = request.form("tn")
  12. response.write "<table> <tr> <Td><Font face=tahoma size=4><h2> Place Value Questions "
  13.  
  14. response.write "</td><td> <img src=math.gif width=140></td></tr></table>"
  15.  
  16. Dim iCount
  17.   iCount= Request("Count")
  18.  
  19.  
  20.  
  21. filePath = Server.MapPath("math_proj.mdb")
  22. Set conn = Server.CreateObject("ADODB.Connection")
  23.  
  24. conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
  25.  
  26. Dim iLoop
  27.  
  28. for iLoop = 0 to iCount
  29.  
  30.  
  31.       ' Receiving values from Form
  32. strID=iLoop & ".idQNum"
  33.    idNum = ChkString(Request.Form(strID))
  34. strIntLevel=iLoop & ".intLevel"
  35. intLevel=request.Form(strIntLevel)
  36.  
  37. strQues=iLoop & ".txtQuestion"
  38.    Ques =ChkString(Request.Form(strQues))
  39. StrAns1=iLoop & ".Ans1"
  40.     Ans1=ChkString(Request.Form(strAns1))
  41. StrAns2=iLoop & ".Ans2"
  42.     Ans2=ChkString(Request.Form(strAns2))
  43. StrAns3=iLoop & ".Ans3"
  44.     Ans3=ChkString(Request.Form(strAns3))
  45. StrAns4=iLoop & ".Ans4"
  46.     Ans4=ChkString(Request.Form(strAns4))
  47. StrvalAns=iLoop & ".valAns"
  48.     valAns=ChkString(Request.Form(strvalAns))
  49.  
  50. sql_update = "UPDATE tblPlaceQues set txtQuestion='" & Ques & "', numSet='"
  51. sql_update=sql_update & intLevel & "', Ans1='"
  52. sql_update=sql_update & Ans1 & "', Ans2='"
  53. sql_update=sql_update & Ans2 & "', Ans3='"
  54. sql_update=sql_update & Ans3 & "', Ans4='"
  55. sql_update=sql_update & Ans4 & "', valAnswer='"
  56. sql_update=sql_update & valAns & "' WHERE idQNum="
  57. sql_update=sql_update & idNum
  58.  
  59. 'response.write sql_update
  60.  
  61. 'response.write "<br>Loop=" & iLoop
  62. 'response.write "<br> Count=" & iCount
  63. conn.Execute (sql_update)
  64.    ' Done. Close the connection
  65. next
  66.  
  67. %>
  68.  
  69. Your questions have been edited.  <a href=place_admin.asp>Review </a> the questions.
  70. </html>