% ' 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 Session.LCID = 1033 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("allcruising_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "tBookingForm", 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(77) Dim arFormDBFields0(77) Dim arFormValues0(77) arFormFields0(0) = "hotelarrmo" arFormDBFields0(0) = "hotelarrmo" arFormValues0(0) = Request("hotelarrmo") arFormFields0(1) = "ccnum" arFormDBFields0(1) = "ccnum" arFormValues0(1) = Request("ccnum") arFormFields0(2) = "pax1address2" arFormDBFields0(2) = "pax1address2" arFormValues0(2) = Request("pax1address2") arFormFields0(3) = "pax1title" arFormDBFields0(3) = "pax1title" arFormValues0(3) = Request("pax1title") arFormFields0(4) = "cruiselineandship" arFormDBFields0(4) = "cruiselineandship" arFormValues0(4) = Request("cruiselineandship") arFormFields0(5) = "airdepartda" arFormDBFields0(5) = "airdepartda" arFormValues0(5) = Request("airdepartda") arFormFields0(6) = "payamt" arFormDBFields0(6) = "payamt" arFormValues0(6) = Request("payamt") arFormFields0(7) = "pax2workareacode" arFormDBFields0(7) = "pax2workareacode" arFormValues0(7) = Request("pax2workareacode") arFormFields0(8) = "pax2ppexpmo" arFormDBFields0(8) = "pax2ppexpmo" arFormValues0(8) = Request("pax2ppexpmo") arFormFields0(9) = "pax2homephone" arFormDBFields0(9) = "pax2homephone" arFormValues0(9) = Request("pax2homephone") arFormFields0(10) = "pax2dobmo" arFormDBFields0(10) = "pax2dobmo" arFormValues0(10) = Request("pax2dobmo") arFormFields0(11) = "pax1dobmo" arFormDBFields0(11) = "pax1dobmo" arFormValues0(11) = Request("pax1dobmo") arFormFields0(12) = "cabin" arFormDBFields0(12) = "cabin" arFormValues0(12) = Request("cabin") arFormFields0(13) = "pax1ppexpyr" arFormDBFields0(13) = "pax1ppexpyr" arFormValues0(13) = Request("pax1ppexpyr") arFormFields0(14) = "pax1passportnum" arFormDBFields0(14) = "pax1passportnum" arFormValues0(14) = Request("pax1passportnum") arFormFields0(15) = "pax1homeareacode" arFormDBFields0(15) = "pax1homeareacode" arFormValues0(15) = Request("pax1homeareacode") arFormFields0(16) = "cruiseid" arFormDBFields0(16) = "cruiseid" arFormValues0(16) = Request("cruiseid") arFormFields0(17) = "cruisedesc" arFormDBFields0(17) = "cruisedesc" arFormValues0(17) = Request("cruisedesc") arFormFields0(18) = "pax2email" arFormDBFields0(18) = "pax2email" arFormValues0(18) = Request("pax2email") arFormFields0(19) = "ccexpyr" arFormDBFields0(19) = "ccexpyr" arFormValues0(19) = Request("ccexpyr") arFormFields0(20) = "airdepartmo" arFormDBFields0(20) = "airdepartmo" arFormValues0(20) = Request("airdepartmo") arFormFields0(21) = "pax1email" arFormDBFields0(21) = "pax1email" arFormValues0(21) = Request("pax1email") arFormFields0(22) = "pax1middle" arFormDBFields0(22) = "pax1middle" arFormValues0(22) = Request("pax1middle") arFormFields0(23) = "comments" arFormDBFields0(23) = "comments" arFormValues0(23) = Request("comments") arFormFields0(24) = "airreturnyr" arFormDBFields0(24) = "airreturnyr" arFormValues0(24) = Request("airreturnyr") arFormFields0(25) = "airdepartstate" arFormDBFields0(25) = "airdepartstate" arFormValues0(25) = Request("airdepartstate") arFormFields0(26) = "hotelnights" arFormDBFields0(26) = "hotelnights" arFormValues0(26) = Request("hotelnights") arFormFields0(27) = "pax1citizen" arFormDBFields0(27) = "pax1citizen" arFormValues0(27) = Request("pax1citizen") arFormFields0(28) = "pax2middle" arFormDBFields0(28) = "pax2middle" arFormValues0(28) = Request("pax2middle") arFormFields0(29) = "insurance" arFormDBFields0(29) = "insurance" arFormValues0(29) = Request("insurance") arFormFields0(30) = "numberofpeople" arFormDBFields0(30) = "numberofpeople" arFormValues0(30) = Request("numberofpeople") arFormFields0(31) = "hotelarryr" arFormDBFields0(31) = "hotelarryr" arFormValues0(31) = Request("hotelarryr") arFormFields0(32) = "pax1ppexpda" arFormDBFields0(32) = "pax1ppexpda" arFormValues0(32) = Request("pax1ppexpda") arFormFields0(33) = "pax1city" arFormDBFields0(33) = "pax1city" arFormValues0(33) = Request("pax1city") arFormFields0(34) = "hotelroompref" arFormDBFields0(34) = "hotelroompref" arFormValues0(34) = Request("hotelroompref") arFormFields0(35) = "pax2passportnum" arFormDBFields0(35) = "pax2passportnum" arFormValues0(35) = Request("pax2passportnum") arFormFields0(36) = "pax2city" arFormDBFields0(36) = "pax2city" arFormValues0(36) = Request("pax2city") arFormFields0(37) = "paymenttype" arFormDBFields0(37) = "paymenttype" arFormValues0(37) = Request("paymenttype") arFormFields0(38) = "pax2ppexpyr" arFormDBFields0(38) = "pax2ppexpyr" arFormValues0(38) = Request("pax2ppexpyr") arFormFields0(39) = "pax2homeareacode" arFormDBFields0(39) = "pax2homeareacode" arFormValues0(39) = Request("pax2homeareacode") arFormFields0(40) = "pax2zip" arFormDBFields0(40) = "pax2zip" arFormValues0(40) = Request("pax2zip") arFormFields0(41) = "pax2dobyr" arFormDBFields0(41) = "pax2dobyr" arFormValues0(41) = Request("pax2dobyr") arFormFields0(42) = "pax2lastname" arFormDBFields0(42) = "pax2lastname" arFormValues0(42) = Request("pax2lastname") arFormFields0(43) = "pax1firstname" arFormDBFields0(43) = "pax1firstname" arFormValues0(43) = Request("pax1firstname") arFormFields0(44) = "dining" arFormDBFields0(44) = "dining" arFormValues0(44) = Request("dining") arFormFields0(45) = "clandship" arFormDBFields0(45) = "clandship4" arFormValues0(45) = Request("clandship") arFormFields0(46) = "airreturnda" arFormDBFields0(46) = "airreturnda" arFormValues0(46) = Request("airreturnda") arFormFields0(47) = "pax1workphone" arFormDBFields0(47) = "pax1workphone" arFormValues0(47) = Request("pax1workphone") arFormFields0(48) = "pax1zip" arFormDBFields0(48) = "pax1zip" arFormValues0(48) = Request("pax1zip") arFormFields0(49) = "pax2state" arFormDBFields0(49) = "pax2state" arFormValues0(49) = Request("pax2state") arFormFields0(50) = "pax1dobyr" arFormDBFields0(50) = "pax1dobyr" arFormValues0(50) = Request("pax1dobyr") arFormFields0(51) = "airdepartcity" arFormDBFields0(51) = "airdepartcity" arFormValues0(51) = Request("airdepartcity") arFormFields0(52) = "hotelsmokingpref" arFormDBFields0(52) = "hotelsmokingpref" arFormValues0(52) = Request("hotelsmokingpref") arFormFields0(53) = "hotelarrda" arFormDBFields0(53) = "hotelarrda" arFormValues0(53) = Request("hotelarrda") arFormFields0(54) = "pax1state" arFormDBFields0(54) = "pax1state" arFormValues0(54) = Request("pax1state") arFormFields0(55) = "pax2address1" arFormDBFields0(55) = "pax2address1" arFormValues0(55) = Request("pax2address1") arFormFields0(56) = "ccname" arFormDBFields0(56) = "ccname" arFormValues0(56) = Request("ccname") arFormFields0(57) = "pax2citizen" arFormDBFields0(57) = "pax2citizen" arFormValues0(57) = Request("pax2citizen") arFormFields0(58) = "pax1ppexpmo" arFormDBFields0(58) = "pax1ppexpmo" arFormValues0(58) = Request("pax1ppexpmo") arFormFields0(59) = "pax1workareacode" arFormDBFields0(59) = "pax1workareacode" arFormValues0(59) = Request("pax1workareacode") arFormFields0(60) = "pax2address2" arFormDBFields0(60) = "pax2address2" arFormValues0(60) = Request("pax2address2") arFormFields0(61) = "pax1lastname" arFormDBFields0(61) = "pax1lastname" arFormValues0(61) = Request("pax1lastname") arFormFields0(62) = "airdepartyr" arFormDBFields0(62) = "airdepartyr" arFormValues0(62) = Request("airdepartyr") arFormFields0(63) = "airoption" arFormDBFields0(63) = "airoption" arFormValues0(63) = Request("airoption") arFormFields0(64) = "pax2ppexpda" arFormDBFields0(64) = "pax2ppexpda" arFormValues0(64) = Request("pax2ppexpda") arFormFields0(65) = "pax1homephone" arFormDBFields0(65) = "pax1homephone" arFormValues0(65) = Request("pax1homephone") arFormFields0(66) = "pax2dobda" arFormDBFields0(66) = "pax2dobda" arFormValues0(66) = Request("pax2dobda") arFormFields0(67) = "departdate" arFormDBFields0(67) = "departdate" arFormValues0(67) = Request("departdate") arFormFields0(68) = "ccexpmo" arFormDBFields0(68) = "ccexpmo" arFormValues0(68) = Request("ccexpmo") arFormFields0(69) = "cruisename" arFormDBFields0(69) = "cruisename4" arFormValues0(69) = Request("cruisename") arFormFields0(70) = "pax1dobda" arFormDBFields0(70) = "pax1dobda" arFormValues0(70) = Request("pax1dobda") arFormFields0(71) = "pax2firstname" arFormDBFields0(71) = "pax2firstname" arFormValues0(71) = Request("pax2firstname") arFormFields0(72) = "pax2workphone" arFormDBFields0(72) = "pax2workphone" arFormValues0(72) = Request("pax2workphone") arFormFields0(73) = "backaddress" arFormDBFields0(73) = "backaddress" arFormValues0(73) = Request("backaddress") arFormFields0(74) = "airreturnmo" arFormDBFields0(74) = "airreturnmo" arFormValues0(74) = Request("airreturnmo") arFormFields0(75) = "pax1address1" arFormDBFields0(75) = "pax1address1" arFormValues0(75) = Request("pax1address1") arFormFields0(76) = "pax2title" arFormDBFields0(76) = "pax2title" arFormValues0(76) = Request("pax2title") 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 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "bookingconfirmation.asp" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %>
|
ALLCRUISING.COM 800-979-8687 |
|
|
![]() |
|
|
|
|
![]() |