<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_travelinfo_STRING MM_editTable = "pricequote" MM_editRedirectUrl = "thanks.htm" MM_fieldsStr = "realname|value|email|value|occassion|value|subject|value|timezone|value|telephone|value|contact|value|tour_requested|value|int_airfare|value|domestic_airfare|value|nights|value|adults|value|children|value|children_ages|value|roomtype|value|howdya_hear|value|howheartype|value|howheartype|value|howheartype|value|comments|value|category|value|datecontacted|value" MM_columnsStr = "realname|',none,''|email|',none,''|occassion|',none,''|occassion|',none,''|timezone|',none,''|telephone|',none,''|contact|',none,''|tour_requested|',none,''|int_airfare|',none,''|domestic_airfare|',none,''|nights|',none,''|adults|',none,''|children|',none,''|children_ages|',none,''|roomtype|',none,''|howdya_hear|',none,''|howheartype|',none,''|howheartype|',none,''|howheartype|',none,''|comments|',none,''|category|',none,''|datecontacted|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> Travel In Style - Masters of the Mediterranean | Price Quote Form

back to travel in Style Main page

E-mail  |  Home  | Cruises | Jordan | Spain | Italy | Turkey  | Terms | Egypt
Egypt and Jordan Tours A La Indiana Jones    | African Safaris   | Syria and Arabia

Greece | Turkey and Greece Tours  | Nile Cruises  |  Grand Tours of North Africa and Arabia
Circuitos Europea | Morocco Romance in the Kasbah  | How to book

(415) 440-1124, 1255 Post Street # 506 , San Francisco, CA 94109

PRICE QUOTE FORM

Thank you for your interest! We'd be pleased to send you the latest price information for the tour In which you're interested. Please fill out the form below and we will contact you with all the details you need, either by phone or e-mail. Or if you'd prefer to send us a standard e-mail message, please send it to pricequote@travelinstyle.com. We do not share our customers' information with other companies!

 

Please enter your name below.
Name:


Please enter your email address (required)
e-mail address:


Is this a special occasion?
 Honeymoon Anniversary Gift Other:

Time zone and the best time to contact you

Daytime Telephone (with area or country code):
Please contact me by:
 Email     Telephone  

Tour Information

I'd like information on:
Egypt, Africa, Japan...


The following air fare notes applies only to Passengers flying out of the USA:
This does not apply to passengers handling their own air tickets

Please give me a quote on international airfare if not included in the cost of the tour package

Please give me a quote on domestic airfare from my home city to the international gateway


Number of days:

Number of Adults Number of Children:
Ages of Children (required for airline booking, hotels and discount fares)

Type of Room or Cabin:

How did you hear about Travel in Style?

Friend:
name of friend (optional)


Website Search Engine:
name of engine (optional)


Other
(optional)

Comments:

Hotel/Cruise Category: (does not apply to airline class)


Varies for all tours and destination, consult the tour page for specific details on your tour.

Thank you for choosing Travelinstyle.com