<%@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_panlanka_STRING MM_editTable = "cosmos" MM_editRedirectUrl = "../html/mailer.asp" MM_fieldsStr = "x|value|name|value|address|value|telephone|value|fax|value|email_req|value|No of Travellers|value|taste_of_britain|value|british_panorama|value|focus_on_scotland|value|england_wales_scotland|value|e_introduction|value|e_sampler|value|e_jewels|value|e_wonders|value|e_panorama|value|e_highlights|value|e_mosaic|value|e_cosmoplitan|value|e_best_of|value|e_leisure|value|switzerland|value|germany|value|italy|value|france|value|scandinavia|value|spain_portugal|value|london_pre|value|london_post|value|paris_post|value|ticketing|value|tcs|value|insurance|value|comments|value|Receive_Email|value" MM_columnsStr = "date_entered|',none,NULL|Name|',none,''|Address|',none,''|Telephone|',none,''|Fax|',none,''|Email|',none,''|No_of_travers|',none,''|taste_of_britain|none,Yes,No|British_Panorama|none,Yes,No|Focus_on_scotland|none,Yes,No|England_wales_and_scotland|none,1,0|European_Introduction|none,Yes,No|European_sampler|none,Yes,No|European_jewels|none,Yes,No|Wonders_of_europe|none,Yes,No|European_panorama|none,Yes,No|Europes_Highlights|none,Yes,No|European_mosaic|none,Yes,No|Cosmopolitan_europe|none,Yes,No|Best_of_europe|none,Yes,No|Europe_at_Leisure|none,Yes,No|Grand_tour_of_switzerland|none,Yes,No|highlights_of_germany|none,Yes,No|Italian_Intermezzo|none,Yes,No|Paris_city_break|none,Yes,No|Focus_on_scandinavia|none,Yes,No|Best_of_spain_portugal|none,Yes,No|Pre_Tour|',none,''|Post_tour_london|',none,''|Post_tour_paris|',none,''|Airline_ticketing|none,Yes,No|Traverllers_Cheques|none,Yes,No|Travel_insurence|none,Yes,No|Other|',none,''|Want_to_revceive_email|none,Yes,No" ' 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) Server.Transfer "../html/mailer.asp" End If End If End If %> Contact Us
Home Contact UsSecure On-Line Payment
Local Agents

Contact Us

Detail Itineraries....

Please give us your contact details and specific requirements so that we will have one of our outbound specialists get in touch with you.

<% x= date %>

Your Name    :

Address        : 

Telephone No:
Fax No          :
E-mail (reqd)  :

Proposed date of Travel
No of Travelers                   
(Note : Children Under 8 yrs are not eligible to take any tour)

Please select the tour/s that you are interested in

UK Tours

European Tours Regional Discoveries
A Taste of Britain
British Panorama
Focus on Scotland
England, Wales & Scotland
European Introduction
European Sampler
European Jewels
Wonders of Europe
European panorama
Europe's Highlights
European Mosaic
Cosmopolitan Europe
Best of Europe
Europe at Leisure
Grand Tour of Switzerland
Highlights of Germany
Italian Intermezzo
Paris City Break
Focus on Scandinavia
Best of Spain & Portugal
Pre / Post tour Accommodation : Max 3 extra nights
 

Pre Tour

Post Tour

London
Paris      

Other Services required :
Airline Ticketing
Travellers Cheques
Travel Insurance (Compulsory in most instances)

Other Information or Comments :
I would like to receive more information on special promotions

 


COSMOS  Quality and service all the way !
COSMOS  More value for your money

For more information contact : 
Pan-Lanka Travels & Tours (Pvt) Ltd
6, Palmyrah Avenue, Colombo 3, Sri Lanka
Tel : 074-51 8888   Fax : 074- 51 8881
E-mail : info@panlanka.com
Internet : www.panlanka.com
Last modified: January 15, 2001