/survival_kids/flash_dev/flashScripts.asp

https://github.com/evizitei/bcfpd_asp · ASP · 78 lines · 55 code · 15 blank · 8 comment · 0 complexity · f05fecb4f9984f5b33aa3323f4056baf MD5 · raw file

  1. <% 'On Error Resume Next %>
  2. <!--#include virtual="/include/constants/database.asa"-->
  3. <%
  4. '****************
  5. 'This file contains all the modules for the flash project for Survival Kids
  6. 'errHandler is main Variable used in flash movie
  7. '****************
  8. Set RS = CreateObject("ADODB.Recordset")
  9. '>>>> Add User <<<<
  10. If Request("RegUser") <> "" Then
  11. rs.Open "Select * From SurvivalKids Where UserName ='" & Request("UserName") & "'", cnnMain, 3, 3
  12. If Not rs.EOF Then
  13. Response.Write "&errHandler=<font color=""#ffffff"">There is already a user named " & Request("UserName") & ".<br> Please try a different user name!</font>"
  14. Else
  15. rs.AddNew
  16. rs("UserName")=Request("UserName")
  17. rs("FName") = Request("FName")
  18. rs("LName") = Request("LName")
  19. rs("Password") = Request("Password")
  20. rs("Teacher") = Request("Teacher")
  21. rs("School") = Request("School")
  22. rs("City") = Request("City")
  23. rs("State") = Request("State")
  24. rs("Lesson") = 1
  25. rs.Update
  26. Response.Write "&errHandler=OK"
  27. End If
  28. rs.Close
  29. End If
  30. '>>>> Pass User <<<<
  31. If Request("PassUser") = "yes" Then
  32. numLesson = Request("numLesson")
  33. If numLesson = "PreTest" Then
  34. rs.Open "Select * From SurvivalKids Where UserName='" & Request("UserName") & "'", cnnMain, 3, 3
  35. skID = rs("SKid_ID")
  36. rs("PreTest") = 1
  37. rs.Update
  38. rs.Close
  39. rs.Open "SurvivalKids_PreTest_Insert " & skID & ",'" & Request("strAnswers") & "'," & Request("NumCorrect"), cnnMain, 3
  40. 'rs.Close
  41. response.Write "&errHandler=OK"
  42. ElseIf numLesson = "PostTest" Then
  43. rs.Open "Select * From SurvivalKids Where UserName='" & Request("UserName") & "'", cnnMain, 3, 3
  44. skID = rs("SKid_ID")
  45. rs("PostTest") = 1
  46. rs.Update
  47. rs.Close
  48. rs.Open "SurvivalKids_PostTest_Insert " & skID & ",'" & Request("strAnswers") & "'," & Request("NumCorrect"), cnnMain, 3
  49. response.Write "&errHandler=OK"
  50. Else
  51. rs.Open "Select * From SurvivalKids Where UserName='" & Request("UserName") & "'", cnnMain, 3, 3
  52. rs("Lesson") = rs("Lesson") + 1
  53. rs.Update
  54. rs.Close
  55. response.Write "&errHandler=OK"
  56. End If
  57. End If
  58. cnnMain.Close
  59. If err.Number > 0 Then
  60. Response.Write "&errHandler=" & err.Description
  61. 'Response.Write "&errHandler=" & Request("UserName")
  62. End If
  63. %>