% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next 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("Branchs1_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(79) Dim arFormDBFields0(79) Dim arFormValues0(79) arFormFields0(0) = "AgentAdvanceFreigh" arFormDBFields0(0) = "AgentAdvanceFreigh" arFormValues0(0) = Request("AgentAdvanceFreigh") arFormFields0(1) = "AirportWGEA" arFormDBFields0(1) = "AirportWGEA" arFormValues0(1) = Request("AirportWGEA") arFormFields0(2) = "AirportRepair" arFormDBFields0(2) = "AirportRepair" arFormValues0(2) = Request("AirportRepair") arFormFields0(3) = "OtherSectionoWGEA" arFormDBFields0(3) = "OtherSectionoWGEA" arFormValues0(3) = Request("OtherSectionoWGEA") arFormFields0(4) = "TypeOfPlan" arFormDBFields0(4) = "TypeOfPlan" arFormValues0(4) = Request("TypeOfPlan") arFormFields0(5) = "HomaRestitution" arFormDBFields0(5) = "HomaRestitution" arFormValues0(5) = Request("HomaRestitution") arFormFields0(6) = "NumOfFlight" arFormDBFields0(6) = "NumOfFlight" arFormValues0(6) = Request("NumOfFlight") arFormFields0(7) = "HomaNetSales" arFormDBFields0(7) = "HomaNetSales" arFormValues0(7) = Request("HomaNetSales") arFormFields0(8) = "AgentDiscount" arFormDBFields0(8) = "AgentDiscount" arFormValues0(8) = Request("AgentDiscount") arFormFields0(9) = "HomaCargoCommision" arFormDBFields0(9) = "HomaCargoCommision" arFormValues0(9) = Request("HomaCargoCommision") arFormFields0(10) = "AgentCargoRestitution" arFormDBFields0(10) = "AgentCargoRestitution" arFormValues0(10) = Request("AgentCargoRestitution") arFormFields0(11) = "txt571" arFormDBFields0(11) = "txt571" arFormValues0(11) = Request("txt571") arFormFields0(12) = "Transportation" arFormDBFields0(12) = "Transportation" arFormValues0(12) = Request("Transportation") arFormFields0(13) = "NumOfAgentTicket" arFormDBFields0(13) = "NumOfAgentTicket" arFormValues0(13) = Request("NumOfAgentTicket") arFormFields0(14) = "HomaOtherExpenses" arFormDBFields0(14) = "HomaOtherExpenses" arFormValues0(14) = Request("HomaOtherExpenses") arFormFields0(15) = "AgentGrossSalesCargo" arFormDBFields0(15) = "AgentGrossSalesCargo" arFormValues0(15) = Request("AgentGrossSalesCargo") arFormFields0(16) = "txt561" arFormDBFields0(16) = "txt561" arFormValues0(16) = Request("txt561") arFormFields0(17) = "OtherSectionInformalSalary" arFormDBFields0(17) = "OtherSectionInformalSalary" arFormValues0(17) = Request("OtherSectionInformalSalary") arFormFields0(18) = "OtherSectRepair" arFormDBFields0(18) = "OtherSectRepair" arFormValues0(18) = Request("OtherSectRepair") arFormFields0(19) = "NumOfAirportInEmployee" arFormDBFields0(19) = "NumOfAirportInEmployee" arFormValues0(19) = Request("NumOfAirportInEmployee") arFormFields0(20) = "AgentNetSales" arFormDBFields0(20) = "AgentNetSales" arFormValues0(20) = Request("AgentNetSales") arFormFields0(21) = "AgentFreightPaid" arFormDBFields0(21) = "AgentFreightPaid" arFormValues0(21) = Request("AgentFreightPaid") arFormFields0(22) = "AgentAdditionalSales" arFormDBFields0(22) = "AgentAdditionalSales" arFormValues0(22) = Request("AgentAdditionalSales") arFormFields0(23) = "AgentNetSalesAddCargoMail" arFormDBFields0(23) = "AgentNetSalesAddCargoMail" arFormValues0(23) = Request("AgentNetSalesAddCargoMail") arFormFields0(24) = "AirportFormalSalary" arFormDBFields0(24) = "AirportFormalSalary" arFormValues0(24) = Request("AirportFormalSalary") arFormFields0(25) = "NumOfOtherSectionEmployee" arFormDBFields0(25) = "NumOfOtherSectionEmployee" arFormValues0(25) = Request("NumOfOtherSectionEmployee") arFormFields0(26) = "OneFree" arFormDBFields0(26) = "OneFree" arFormValues0(26) = Request("OneFree") arFormFields0(27) = "HomaGrossSales" arFormDBFields0(27) = "HomaGrossSales" arFormValues0(27) = Request("HomaGrossSales") arFormFields0(28) = "HomaGrossSalesCargo" arFormDBFields0(28) = "HomaGrossSalesCargo" arFormValues0(28) = Request("HomaGrossSalesCargo") arFormFields0(29) = "HomaMail1" arFormDBFields0(29) = "HomaMail1" arFormValues0(29) = Request("HomaMail1") arFormFields0(30) = "NumOfInformalEmployee" arFormDBFields0(30) = "NumOfInformalEmployee" arFormValues0(30) = Request("NumOfInformalEmployee") arFormFields0(31) = "AirportInformalSalary" arFormDBFields0(31) = "AirportInformalSalary" arFormValues0(31) = Request("AirportInformalSalary") arFormFields0(32) = "OtherSectionRentCode" arFormDBFields0(32) = "OtherSectionRentCode" arFormValues0(32) = Request("OtherSectionRentCode") arFormFields0(33) = "Fule" arFormDBFields0(33) = "Fule" arFormValues0(33) = Request("Fule") arFormFields0(34) = "HomaAdditionalSales" arFormDBFields0(34) = "HomaAdditionalSales" arFormValues0(34) = Request("HomaAdditionalSales") arFormFields0(35) = "AgentMail" arFormDBFields0(35) = "AgentMail" arFormValues0(35) = Request("AgentMail") arFormFields0(36) = "RentCode" arFormDBFields0(36) = "RentCode" arFormValues0(36) = Request("RentCode") arFormFields0(37) = "OtherSection555" arFormDBFields0(37) = "OtherSection555" arFormValues0(37) = Request("OtherSection555") arFormFields0(38) = "NumOfPassenger" arFormDBFields0(38) = "NumOfPassenger" arFormValues0(38) = Request("NumOfPassenger") arFormFields0(39) = "NumOfHomaTicket" arFormDBFields0(39) = "NumOfHomaTicket" arFormValues0(39) = Request("NumOfHomaTicket") arFormFields0(40) = "txt434" arFormDBFields0(40) = "txt434" arFormValues0(40) = Request("txt434") arFormFields0(41) = "AirportMiscellaneous" arFormDBFields0(41) = "AirportMiscellaneous" arFormValues0(41) = Request("AirportMiscellaneous") arFormFields0(42) = "OtherSection434Code" arFormDBFields0(42) = "OtherSection434Code" arFormValues0(42) = Request("OtherSection434Code") arFormFields0(43) = "Lighting" arFormDBFields0(43) = "Lighting" arFormValues0(43) = Request("Lighting") arFormFields0(44) = "AgentGrossSale" arFormDBFields0(44) = "AgentGrossSale" arFormValues0(44) = Request("AgentGrossSale") arFormFields0(45) = "txtWater" arFormDBFields0(45) = "txtWater" arFormValues0(45) = Request("txtWater") arFormFields0(46) = "LandingParking" arFormDBFields0(46) = "LandingParking" arFormValues0(46) = Request("LandingParking") arFormFields0(47) = "txtAirport434Code" arFormDBFields0(47) = "txtAirport434Code" arFormValues0(47) = Request("txtAirport434Code") arFormFields0(48) = "CorueStaying" arFormDBFields0(48) = "CorueStaying" arFormValues0(48) = Request("CorueStaying") arFormFields0(49) = "MiscellaneousIncome" arFormDBFields0(49) = "MiscellaneousIncome" arFormValues0(49) = Request("MiscellaneousIncome") arFormFields0(50) = "AgentCommesion" arFormDBFields0(50) = "AgentCommesion" arFormValues0(50) = Request("AgentCommesion") arFormFields0(51) = "HomaFreightPaid" arFormDBFields0(51) = "HomaFreightPaid" arFormValues0(51) = Request("HomaFreightPaid") arFormFields0(52) = "AgentMailCargo" arFormDBFields0(52) = "AgentMailCargo" arFormValues0(52) = Request("AgentMailCargo") arFormFields0(53) = "AgentRestitution" arFormDBFields0(53) = "AgentRestitution" arFormValues0(53) = Request("AgentRestitution") arFormFields0(54) = "FormalSalary" arFormDBFields0(54) = "FormalSalary" arFormValues0(54) = Request("FormalSalary") arFormFields0(55) = "NumOfAirportFEmployee" arFormDBFields0(55) = "NumOfAirportFEmployee" arFormValues0(55) = Request("NumOfAirportFEmployee") arFormFields0(56) = "OtherSectionAdministrativeGeneral" arFormDBFields0(56) = "OtherSectionAdministrativeGeneral" arFormValues0(56) = Request("OtherSectionAdministrativeGeneral") arFormFields0(57) = "name" arFormDBFields0(57) = "name" arFormValues0(57) = Request("name") arFormFields0(58) = "HomaCommisionCargoMail" arFormDBFields0(58) = "HomaCommisionCargoMail" arFormValues0(58) = Request("HomaCommisionCargoMail") arFormFields0(59) = "AdministrativeGeneral" arFormDBFields0(59) = "AdministrativeGeneral" arFormValues0(59) = Request("AdministrativeGeneral") arFormFields0(60) = "Repair" arFormDBFields0(60) = "Repair" arFormValues0(60) = Request("Repair") arFormFields0(61) = "AirportRentCode" arFormDBFields0(61) = "AirportRentCode" arFormValues0(61) = Request("AirportRentCode") arFormFields0(62) = "HomaCargoRestitution" arFormDBFields0(62) = "HomaCargoRestitution" arFormValues0(62) = Request("HomaCargoRestitution") arFormFields0(63) = "HomaNetSalesAddCargoMail" arFormDBFields0(63) = "HomaNetSalesAddCargoMail" arFormValues0(63) = Request("HomaNetSalesAddCargoMail") arFormFields0(64) = "AgentCommisionCargoMail" arFormDBFields0(64) = "AgentCommisionCargoMail" arFormValues0(64) = Request("AgentCommisionCargoMail") arFormFields0(65) = "AirportAdministrativeGeneral" arFormDBFields0(65) = "AirportAdministrativeGeneral" arFormValues0(65) = Request("AirportAdministrativeGeneral") arFormFields0(66) = "HomaAdvanceFreight" arFormDBFields0(66) = "HomaAdvanceFreight" arFormValues0(66) = Request("HomaAdvanceFreight") arFormFields0(67) = "NumOfFormalEmployee" arFormDBFields0(67) = "NumOfFormalEmployee" arFormValues0(67) = Request("NumOfFormalEmployee") arFormFields0(68) = "InformalSalary" arFormDBFields0(68) = "InformalSalary" arFormValues0(68) = Request("InformalSalary") arFormFields0(69) = "Miscellaneous" arFormDBFields0(69) = "Miscellaneous" arFormValues0(69) = Request("Miscellaneous") arFormFields0(70) = "NumOfOtherSectionInformalEmployee" arFormDBFields0(70) = "NumOfOtherSectionInformalEmployee" arFormValues0(70) = Request("NumOfOtherSectionInformalEmployee") arFormFields0(71) = "OtherSectionMiscellaneous" arFormDBFields0(71) = "OtherSectionMiscellaneous" arFormValues0(71) = Request("OtherSectionMiscellaneous") arFormFields0(72) = "Catring" arFormDBFields0(72) = "Catring" arFormValues0(72) = Request("Catring") arFormFields0(73) = "date" arFormDBFields0(73) = "date" arFormValues0(73) = Request("date") arFormFields0(74) = "HomaDiscount" arFormDBFields0(74) = "HomaDiscount" arFormValues0(74) = Request("HomaDiscount") arFormFields0(75) = "AgentCargoCommision" arFormDBFields0(75) = "AgentCargoCommision" arFormValues0(75) = Request("AgentCargoCommision") arFormFields0(76) = "HomaMailCargo" arFormDBFields0(76) = "HomaMailCargo" arFormValues0(76) = Request("HomaMailCargo") arFormFields0(77) = "OtherSectionFormalSalary" arFormDBFields0(77) = "OtherSectionFormalSalary" arFormValues0(77) = Request("OtherSectionFormalSalary") arFormFields0(78) = "OtherSection591" arFormDBFields0(78) = "OtherSection591" arFormValues0(78) = Request("OtherSection591") 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:",_ "Branchs.asp",_ "Return to the form." End If End If %>