Trip Log Entry Form - The Basic Version

<% ' 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("info_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "triplogbasic", 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(23) Dim arFormDBFields0(23) Dim arFormValues0(23) arFormFields0(0) = "f_airline" arFormDBFields0(0) = "f_airline" arFormValues0(0) = Request("f_airline") arFormFields0(1) = "Third_Party" arFormDBFields0(1) = "Third_Party" arFormValues0(1) = Request("Third_Party") arFormFields0(2) = "F_city" arFormDBFields0(2) = "F_city" arFormValues0(2) = Request("F_city") arFormFields0(3) = "country" arFormDBFields0(3) = "country" arFormValues0(3) = Request("country") arFormFields0(4) = "F_airport" arFormDBFields0(4) = "F_airport" arFormValues0(4) = Request("F_airport") arFormFields0(5) = "email" arFormDBFields0(5) = "email" arFormValues0(5) = Request("email") arFormFields0(6) = "miles" arFormDBFields0(6) = "miles" arFormValues0(6) = Request("miles") arFormFields0(7) = "f_country" arFormDBFields0(7) = "f_country" arFormValues0(7) = Request("f_country") arFormFields0(8) = "phone" arFormDBFields0(8) = "phone" arFormValues0(8) = Request("phone") arFormFields0(9) = "zip" arFormDBFields0(9) = "zip" arFormValues0(9) = Request("zip") arFormFields0(10) = "domcity" arFormDBFields0(10) = "domcity" arFormValues0(10) = Request("domcity") arFormFields0(11) = "FirstName" arFormDBFields0(11) = "FirstName" arFormValues0(11) = Request("FirstName") arFormFields0(12) = "street1" arFormDBFields0(12) = "street1" arFormValues0(12) = Request("street1") arFormFields0(13) = "city" arFormDBFields0(13) = "city" arFormValues0(13) = Request("city") arFormFields0(14) = "street2" arFormDBFields0(14) = "street2" arFormValues0(14) = Request("street2") arFormFields0(15) = "Hear" arFormDBFields0(15) = "Hear" arFormValues0(15) = Request("Hear") arFormFields0(16) = "airlines" arFormDBFields0(16) = "airlines" arFormValues0(16) = Request("airlines") arFormFields0(17) = "street3" arFormDBFields0(17) = "street3" arFormValues0(17) = Request("street3") arFormFields0(18) = "state" arFormDBFields0(18) = "state" arFormValues0(18) = Request("state") arFormFields0(19) = "wackiest" arFormDBFields0(19) = "wackiest" arFormValues0(19) = Request("wackiest") arFormFields0(20) = "F_airplane" arFormDBFields0(20) = "F_airplane" arFormValues0(20) = Request("F_airplane") arFormFields0(21) = "last_name" arFormDBFields0(21) = "last_name" arFormValues0(21) = Request("last_name") arFormFields0(22) = "airports" arFormDBFields0(22) = "airports" arFormValues0(22) = Request("airports") 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 Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Response.Redirect "../triplog_msg.html" End If End If %> Trip Log Entry Form - The Basic Version

Trip Log	Special Events	Surveys	Classifieds	Seatmaps	Shopping	Photo Gallery	Search
About	Hall of Fame	Affiliates	Giveaways	Tails	Travel Area	Airports	Feedback

Trip Log Entry Form - The Basic Version

Please enter your information below:
First Name	required
Last Name	required
Street Address	required


City	required
State	required
Country	required
Zip/Postal Code	required for US enthusiasts
Email address	required
Telephone	please include area and country codes
How did you hear about this site?
Third Party Information	Checking this box gives CA permission to send you email offers from third party vendors. It does not give us permission to give your information to third party vendors.
Number of Airports visited
Number of Airlines flown
Number of Miles flown
Originating Airport


Favorites:
	Airline
	Country
	City
	Airport
	Airplane

Tell us about your wackiest trip. State hours traveled, airports visited, airlines flown, and what you enjoyed the most as well as least about your trip. Try to keep it chronological and as interesting and brief as possible, just the fact please. Note: Your story may be edited for brevity. Not to worry, the flavor will be retained.