/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. 

  2. <!--#include virtual="/include/constants/database.asa"-->

    3. 

  3. <%

    4. 

  4. '****************

    5. 

  5. 'This file contains all the modules for the flash project for Survival Kids

    6. 

  6. 'errHandler is main Variable used in flash movie

    7. 

  7. '****************

    8. 

  8. Set RS = CreateObject("ADODB.Recordset")

    9. 

  9. 

    10. 

  10. '>>>> Add User <<<<

    11. 

  11.   If Request("RegUser") <> "" Then

    12. 

  12. 	rs.Open "Select * From SurvivalKids Where UserName ='" & Request("UserName") & "'", cnnMain, 3, 3

    13. 

  13. 	If Not rs.EOF Then

    14. 

  14. 		Response.Write "&errHandler=<font color=""#ffffff"">There is already a user named " & Request("UserName") & ".<br> Please try a different user name!</font>" 

    15. 

  15. 	Else

    16. 

  16. 		rs.AddNew

    17. 

  17. 		rs("UserName")=Request("UserName")

    18. 

  18. 		rs("FName") = Request("FName")

    19. 

  19. 		rs("LName") = Request("LName")

    20. 

  20. 		rs("Password") = Request("Password")

    21. 

  21. 		rs("Teacher") = Request("Teacher")

    22. 

  22. 		rs("School") = Request("School")

    23. 

  23. 		rs("City") = Request("City")

    24. 

  24. 		rs("State") = Request("State")

    25. 

  25. 		rs("Lesson") = 1

    26. 

  26. 		rs.Update

    27. 

  27. 		

    28. 

  28. 		Response.Write "&errHandler=OK"

    29. 

  29. 	End If

    30. 

  30. 	rs.Close

    31. 

  31. 

    32. 

  32.   End If

    33. 

  33. 

    34. 

  34. '>>>> Pass User <<<<  

    35. 

  35.   If Request("PassUser") = "yes" Then

    36. 

  36.   	numLesson = Request("numLesson")

    37. 

  37. 	If numLesson = "PreTest" Then

    38. 

  38. 		rs.Open "Select * From SurvivalKids Where UserName='" & Request("UserName") & "'", cnnMain, 3, 3

    39. 

  39. 	  	skID = rs("SKid_ID")

    40. 

  40. 		rs("PreTest") = 1

    41. 

  41. 		rs.Update

    42. 

  42. 	  	rs.Close

    43. 

  43. 		

    44. 

  44. 		rs.Open "SurvivalKids_PreTest_Insert " & skID & ",'" & Request("strAnswers") & "'," & Request("NumCorrect"), cnnMain, 3

    45. 

  45. 		'rs.Close

    46. 

  46. 		

    47. 

  47.   		response.Write "&errHandler=OK"	

    48. 

  48. 	

    49. 

  49. 	ElseIf numLesson = "PostTest" Then

    50. 

  50. 		rs.Open "Select * From SurvivalKids Where UserName='" & Request("UserName") & "'", cnnMain, 3, 3

    51. 

  51. 	  	skID = rs("SKid_ID")

    52. 

  52. 		rs("PostTest") = 1

    53. 

  53. 		rs.Update

    54. 

  54. 	  	rs.Close

    55. 

  55. 		

    56. 

  56. 		rs.Open "SurvivalKids_PostTest_Insert " & skID & ",'" & Request("strAnswers") & "'," & Request("NumCorrect"), cnnMain, 3		

    57. 

  57. 		response.Write "&errHandler=OK"			

    58. 

  58. 	Else

    59. 

  59. 	

    60. 

  60. 		rs.Open "Select * From SurvivalKids Where UserName='" & Request("UserName") & "'", cnnMain, 3, 3

    61. 

  61. 	  	rs("Lesson") = rs("Lesson") + 1

    62. 

  62.   		rs.Update

    63. 

  63. 	  	rs.Close

    64. 

  64.   		response.Write "&errHandler=OK"

    65. 

  65. 	End If

    66. 

  66.   End If

    67. 

  67. 

    68. 

  68. 

    69. 

  69. 

    70. 

  70. cnnMain.Close

    71. 

  71. 

    72. 

  72. 

    73. 

  73. If err.Number > 0 Then

    74. 

  74. 	Response.Write "&errHandler=" & err.Description

    75. 

  75. 	'Response.Write "&errHandler=" & Request("UserName")

    76. 

  76. 

    77. 

  77. End If

    78. 

  78. %>
    79.