% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("survey1_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(29) Dim arFormDBFields0(29) Dim arFormValues0(29) arFormFields0(0) = "hewitt" arFormDBFields0(0) = "hewitt" arFormValues0(0) = Request("hewitt") arFormFields0(1) = "tutorial" arFormDBFields0(1) = "tutorial" arFormValues0(1) = Request("tutorial") arFormFields0(2) = "grade405" arFormDBFields0(2) = "grade405" arFormValues0(2) = Request("grade405") arFormFields0(3) = "Time_Prac_probs" arFormDBFields0(3) = "Time_Prac_probs" arFormValues0(3) = Request("Time_Prac_probs") arFormFields0(4) = "major" arFormDBFields0(4) = "major" arFormValues0(4) = Request("major") arFormFields0(5) = "Teacher" arFormDBFields0(5) = "Teacher" arFormValues0(5) = Request("Teacher") arFormFields0(6) = "Time-HW" arFormDBFields0(6) = "Time-HW" arFormValues0(6) = Request("Time-HW") arFormFields0(7) = "pace" arFormDBFields0(7) = "pace" arFormValues0(7) = Request("pace") arFormFields0(8) = "grade_level" arFormDBFields0(8) = "grade_level" arFormValues0(8) = Request("grade_level") arFormFields0(9) = "research" arFormDBFields0(9) = "research" arFormValues0(9) = Request("research") arFormFields0(10) = "walker" arFormDBFields0(10) = "walker" arFormValues0(10) = Request("walker") arFormFields0(11) = "reading_percent" arFormDBFields0(11) = "reading_percent" arFormValues0(11) = Request("reading_percent") arFormFields0(12) = "hrw" arFormDBFields0(12) = "hrw" arFormValues0(12) = Request("hrw") arFormFields0(13) = "library" arFormDBFields0(13) = "library" arFormValues0(13) = Request("library") arFormFields0(14) = "grade352" arFormDBFields0(14) = "grade352" arFormValues0(14) = Request("grade352") arFormFields0(15) = "math_prep" arFormDBFields0(15) = "math_prep" arFormValues0(15) = Request("math_prep") arFormFields0(16) = "library_number" arFormDBFields0(16) = "library_number" arFormValues0(16) = Request("library_number") arFormFields0(17) = "Current_course" arFormDBFields0(17) = "Current_course" arFormValues0(17) = Request("Current_course") arFormFields0(18) = "Time-Lab" arFormDBFields0(18) = "Time-Lab" arFormValues0(18) = Request("Time-Lab") arFormFields0(19) = "free_response" arFormDBFields0(19) = "free_response" arFormValues0(19) = Request("free_response") arFormFields0(20) = "elective" arFormDBFields0(20) = "elective" arFormValues0(20) = Request("elective") arFormFields0(21) = "zitzewitz" arFormDBFields0(21) = "zitzewitz" arFormValues0(21) = Request("zitzewitz") arFormFields0(22) = "Previous_Phys" arFormDBFields0(22) = "Previous_Phys" arFormValues0(22) = Request("Previous_Phys") arFormFields0(23) = "Retake_at_current" arFormDBFields0(23) = "Retake_at_current" arFormValues0(23) = Request("Retake_at_current") arFormFields0(24) = "grade302" arFormDBFields0(24) = "grade302" arFormValues0(24) = Request("grade302") arFormFields0(25) = "Previous_Physics" arFormDBFields0(25) = "Previous_Physics" arFormValues0(25) = Request("Previous_Physics") arFormFields0(26) = "Time-Read" arFormDBFields0(26) = "Time-Read" arFormValues0(26) = Request("Time-Read") arFormFields0(27) = "Time-Study" arFormDBFields0(27) = "Time-Study" arFormValues0(27) = Request("Time-Study") arFormFields0(28) = "Time-Tech" arFormDBFields0(28) = "Time-Tech" arFormValues0(28) = Request("Time-Tech") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "survey.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %>