<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_connContact_STRING Recordset2.Source = "SELECT * FROM COMMENTS" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_connContact_STRING Recordset1.Source = "SELECT * FROM Results" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% ' 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("contact2.mdb_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(19) Dim arFormDBFields0(19) Dim arFormValues0(19) arFormFields0(0) = "Emailaddress" arFormDBFields0(0) = "Emailaddress" arFormValues0(0) = Request("Emailaddress") arFormFields0(1) = "Telephone" arFormDBFields0(1) = "Telephone" arFormValues0(1) = Request("Telephone") arFormFields0(2) = "R1" arFormDBFields0(2) = "R1" arFormValues0(2) = Request("R1") arFormFields0(3) = "Postalcode" arFormDBFields0(3) = "Postalcode" arFormValues0(3) = Request("Postalcode") arFormFields0(4) = "Number_party" arFormDBFields0(4) = "Number_party" arFormValues0(4) = Request("Number_party") arFormFields0(5) = "Questions_comments" arFormDBFields0(5) = "Questions_comments" arFormValues0(5) = Request("Questions_comments") arFormFields0(6) = "Cruise" arFormDBFields0(6) = "Cruise" arFormValues0(6) = Request("Cruise") arFormFields0(7) = "subject" arFormDBFields0(7) = "subject" arFormValues0(7) = Request("subject") arFormFields0(8) = "redirect" arFormDBFields0(8) = "redirect" arFormValues0(8) = Request("redirect") arFormFields0(9) = "recipient" arFormDBFields0(9) = "recipient" arFormValues0(9) = Request("recipient") arFormFields0(10) = "City" arFormDBFields0(10) = "City" arFormValues0(10) = Request("City") arFormFields0(11) = "When" arFormDBFields0(11) = "When" arFormValues0(11) = Request("When") arFormFields0(12) = "Cruisecode" arFormDBFields0(12) = "Cruisecode" arFormValues0(12) = Request("Cruisecode") arFormFields0(13) = "env_report" arFormDBFields0(13) = "env_report" arFormValues0(13) = Request("env_report") arFormFields0(14) = "Cruiselength" arFormDBFields0(14) = "Cruiselength" arFormValues0(14) = Request("Cruiselength") arFormFields0(15) = "Firstname" arFormDBFields0(15) = "Firstname" arFormValues0(15) = Request("Firstname") arFormFields0(16) = "Address" arFormDBFields0(16) = "Address" arFormValues0(16) = Request("Address") arFormFields0(17) = "State" arFormDBFields0(17) = "State" arFormValues0(17) = Request("State") arFormFields0(18) = "Lastname" arFormDBFields0(18) = "Lastname" arFormValues0(18) = Request("Lastname") 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 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "http://eurorivercruises.com/thanks.htm" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> contact us
Rhine River Cruises, European River Cruises

EuroRiverCruises.com

Home

Destinations

Our fleet

Itineraries

River Cruising

Barges & small ships

Group programs

Cruise Rates

Hot Specials

Deluxe Cruises

Rail tickets

 

European River Cruises

Danube River Cruises

Rhine River Cruises

Rhone River Cruises

Douro River Cruises

Seine River Cruises

Holland Waterways

Venice & The Po River

Click the line above for details

Speak to an agent for more information.

Call us toll free at:

(888) - 863 - 1212

or

from outside the US at:

01 (845) 623 - 6279

or email us at:
 sales@eurorivercruises.com

Contact us to request a reservation or ask a question

 Eurail passes

Interesting links

Contact us to request a reservation or ask a question: 

Send brochure     Reserve a cruise

First Name Last Name  

Street

City State / Province

Postal / Zip code

email address

What river would you like to cruise? For how many days?

When do you want to cruise?

Do you have an itinerary in mind? Please enter the 3 letter cruise code found at the bottom of the description:    How many people are in your party?

Do you have a question? Please enter it in the box below. We'll be happy to get back to you.

Would you like us to call you? Telephone number:

 

Speak to an agent.
Call us at (888) - 863 -1212 (from the US and Canada)
or
(01) 845 - 623 -6279 from outside the US
Send E-Mail to info@pousada.com with questions or comments about this website.
Site Designed & Maintained by PunNet, Inc.. Copyright © 1999 Pinto Basto Tours, Inc.  <% Recordset2.Close() Set Recordset2 = Nothing %> <% Recordset1.Close() Set Recordset1 = Nothing %>