% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next strErrorUrl = "error.htm" 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("qnet2000_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Register", 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(58) Dim arFormDBFields0(58) Dim arFormValues0(58) arFormFields0(0) = "a_no_share" arFormDBFields0(0) = "a_no_share" arFormValues0(0) = Request("a_no_share") arFormFields0(1) = "rc_pre_conf_flag3" arFormDBFields0(1) = "rc_pre_conf_flag3" arFormValues0(1) = Request("rc_pre_conf_flag3") arFormFields0(2) = "dd_state" arFormDBFields0(2) = "dd_state" arFormValues0(2) = Request("dd_state") arFormFields0(3) = "a_arrive_date" arFormDBFields0(3) = "a_arrive_date" arFormValues0(3) = Request("a_arrive_date") arFormFields0(4) = "rc_stot_rego" arFormDBFields0(4) = "rc_stot_rego" arFormValues0(4) = Request("rc_stot_rego") arFormFields0(5) = "rc_pre_conf_flag4" arFormDBFields0(5) = "rc_pre_conf_flag4" arFormValues0(5) = Request("rc_pre_conf_flag4") arFormFields0(6) = "pd_accom" arFormDBFields0(6) = "pd_accom" arFormValues0(6) = Request("pd_accom") arFormFields0(7) = "a_share_contact" arFormDBFields0(7) = "a_share_contact" arFormValues0(7) = Request("a_share_contact") arFormFields0(8) = "rc_no_xtra_conf" arFormDBFields0(8) = "rc_no_xtra_conf" arFormValues0(8) = Request("rc_no_xtra_conf") arFormFields0(9) = "rc_pre_conf1" arFormDBFields0(9) = "rc_pre_conf1" arFormValues0(9) = Request("rc_pre_conf1") arFormFields0(10) = "rc_pre_conf2" arFormDBFields0(10) = "rc_pre_conf2" arFormValues0(10) = Request("rc_pre_conf2") arFormFields0(11) = "dd_address" arFormDBFields0(11) = "dd_address" arFormValues0(11) = Request("dd_address") arFormFields0(12) = "a_flight_time" arFormDBFields0(12) = "a_flight_time" arFormValues0(12) = Request("a_flight_time") arFormFields0(13) = "rc_xtra_stot_amt" arFormDBFields0(13) = "rc_xtra_stot_amt" arFormValues0(13) = Request("rc_xtra_stot_amt") arFormFields0(14) = "rc_bbq_xtra_amt" arFormDBFields0(14) = "rc_bbq_xtra_amt" arFormValues0(14) = Request("rc_bbq_xtra_amt") arFormFields0(15) = "rc_pre_conf3" arFormDBFields0(15) = "rc_pre_conf3" arFormValues0(15) = Request("rc_pre_conf3") arFormFields0(16) = "dd_web" arFormDBFields0(16) = "dd_web" arFormValues0(16) = Request("dd_web") arFormFields0(17) = "dd_organisation" arFormDBFields0(17) = "dd_organisation" arFormValues0(17) = Request("dd_organisation") arFormFields0(18) = "dd_surname" arFormDBFields0(18) = "dd_surname" arFormValues0(18) = Request("dd_surname") arFormFields0(19) = "a_flight_date" arFormDBFields0(19) = "a_flight_date" arFormValues0(19) = Request("a_flight_date") arFormFields0(20) = "pd_total" arFormDBFields0(20) = "pd_total" arFormValues0(20) = Request("pd_total") arFormFields0(21) = "a_co_date" arFormDBFields0(21) = "a_co_date" arFormValues0(21) = Request("a_co_date") arFormFields0(22) = "rc_pre_conf4" arFormDBFields0(22) = "rc_pre_conf4" arFormValues0(22) = Request("rc_pre_conf4") arFormFields0(23) = "dd_title" arFormDBFields0(23) = "dd_title" arFormValues0(23) = Request("dd_title") arFormFields0(24) = "dd_contact_name" arFormDBFields0(24) = "dd_contact_name" arFormValues0(24) = Request("dd_contact_name") arFormFields0(25) = "rc_no_xtra_bbq" arFormDBFields0(25) = "rc_no_xtra_bbq" arFormValues0(25) = Request("rc_no_xtra_bbq") arFormFields0(26) = "a_flight_num" arFormDBFields0(26) = "a_flight_num" arFormValues0(26) = Request("a_flight_num") arFormFields0(27) = "dd_city" arFormDBFields0(27) = "dd_city" arFormValues0(27) = Request("dd_city") arFormFields0(28) = "dd_first_name" arFormDBFields0(28) = "dd_first_name" arFormValues0(28) = Request("dd_first_name") arFormFields0(29) = "rc_early_conf_flag1" arFormDBFields0(29) = "rc_early_conf_flag1" arFormValues0(29) = Request("rc_early_conf_flag1") arFormFields0(30) = "rc_early_conf_flag2" arFormDBFields0(30) = "rc_early_conf_flag2" arFormValues0(30) = Request("rc_early_conf_flag2") arFormFields0(31) = "dd_partner_name" arFormDBFields0(31) = "dd_partner_name" arFormValues0(31) = Request("dd_partner_name") arFormFields0(32) = "pd_reg_fee" arFormDBFields0(32) = "pd_reg_fee" arFormValues0(32) = Request("pd_reg_fee") arFormFields0(33) = "a_ci_date" arFormDBFields0(33) = "a_ci_date" arFormValues0(33) = Request("a_ci_date") arFormFields0(34) = "dd_email" arFormDBFields0(34) = "dd_email" arFormValues0(34) = Request("dd_email") arFormFields0(35) = "dd_hphone" arFormDBFields0(35) = "dd_hphone" arFormValues0(35) = Request("dd_hphone") arFormFields0(36) = "a_depart_time" arFormDBFields0(36) = "a_depart_time" arFormValues0(36) = Request("a_depart_time") arFormFields0(37) = "a_depart_date" arFormDBFields0(37) = "a_depart_date" arFormValues0(37) = Request("a_depart_date") arFormFields0(38) = "dd_fax" arFormDBFields0(38) = "dd_fax" arFormValues0(38) = Request("dd_fax") arFormFields0(39) = "dd_wphone" arFormDBFields0(39) = "dd_wphone" arFormValues0(39) = Request("dd_wphone") arFormFields0(40) = "pd_pref_payment" arFormDBFields0(40) = "pd_pref_payment" arFormValues0(40) = Request("pd_pref_payment") arFormFields0(41) = "a_arrive_by" arFormDBFields0(41) = "a_arrive_by" arFormValues0(41) = Request("a_arrive_by") arFormFields0(42) = "a_type_occup" arFormDBFields0(42) = "a_type_occup" arFormValues0(42) = Request("a_type_occup") arFormFields0(43) = "dd_contact_email" arFormDBFields0(43) = "dd_contact_email" arFormValues0(43) = Request("dd_contact_email") arFormFields0(44) = "pd_add_tickets" arFormDBFields0(44) = "pd_add_tickets" arFormValues0(44) = Request("pd_add_tickets") arFormFields0(45) = "rc_no_xtra_amt" arFormDBFields0(45) = "rc_no_xtra_amt" arFormValues0(45) = Request("rc_no_xtra_amt") arFormFields0(46) = "dd_position" arFormDBFields0(46) = "dd_position" arFormValues0(46) = Request("dd_position") arFormFields0(47) = "dd_contact_phone" arFormDBFields0(47) = "dd_contact_phone" arFormValues0(47) = Request("dd_contact_phone") arFormFields0(48) = "rc_early_bird1" arFormDBFields0(48) = "rc_early_bird1" arFormValues0(48) = Request("rc_early_bird1") arFormFields0(49) = "rc_pre_conf_flag1" arFormDBFields0(49) = "rc_pre_conf_flag1" arFormValues0(49) = Request("rc_pre_conf_flag1") arFormFields0(50) = "dd_tshirt_size" arFormDBFields0(50) = "dd_tshirt_size" arFormValues0(50) = Request("dd_tshirt_size") arFormFields0(51) = "a_type_range" arFormDBFields0(51) = "a_type_range" arFormValues0(51) = Request("a_type_range") arFormFields0(52) = "a_share_name" arFormDBFields0(52) = "a_share_name" arFormValues0(52) = Request("a_share_name") arFormFields0(53) = "rc_early_bird2" arFormDBFields0(53) = "rc_early_bird2" arFormValues0(53) = Request("rc_early_bird2") arFormFields0(54) = "rc_pre_conf_flag2" arFormDBFields0(54) = "rc_pre_conf_flag2" arFormValues0(54) = Request("rc_pre_conf_flag2") arFormFields0(55) = "dd_diet" arFormDBFields0(55) = "dd_diet" arFormValues0(55) = Request("dd_diet") arFormFields0(56) = "dd_name_tag" arFormDBFields0(56) = "dd_name_tag" arFormValues0(56) = Request("dd_name_tag") arFormFields0(57) = "dd_postcode" arFormDBFields0(57) = "dd_postcode" arFormValues0(57) = Request("dd_postcode") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" 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 Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Response.Redirect "confirmation.htm" End If End If %>