<%
if Request.Querystring("isSubmitted") = "yes" then
Dim fname, lname, FTitle, Cname, SAddress, CCity, CProvince, Ccountry, CPostalCode, CTelephone, CFax, CEmail, CWebsite, GName, ODetails, gsize, LanguageRequired, Budget, ataglancetour, classictour, capitaltour, DProgram, FDProgram, MDProgram, MarketTour, ParliamentTour, StoryTour, tulips, GatineauPark, Christmas, Winterlude, MeetGreet, Transportation, Itinerary, Personnel, datevisit, timevisit, pickuplocation, motorcoachcompany
Dim objCDO
fname = Request.Querystring("First_Name")
lname = Request.Querystring("Last_Name")
ftitle = Request.Querystring("Full_Title")
Cname = Request.Querystring("Company_Name")
SAddress = Request.Querystring("Street_Address")
CCity = Request.Querystring("City")
CProvince = Request.Querystring("Province")
CCountry = Request.Querystring("Country")
CPostalCode = Request.Querystring("Postal_Code")
CTelephone = Request.Querystring("Telephone")
CFax = Request.Querystring("Fax")
CEmail = Request.Querystring("Email")
CWebSite = Request.Querystring("WebSite")
GName = Request.Querystring("Group_Name")
ODetails = Request.Querystring("Other_Details")
gsize=Request.Querystring("Group_Size")
Datevisit=Request.Querystring("Date_visit")
timevisit=Request.Querystring("time_visit")
Pickuplocation=Request.Querystring("pickup_location")
motorcoachcompany=Request.Querystring("motorcoach")
LanguageRequired=Request.Querystring("Language_Required")
Budget=Request.Querystring("Budget")
MarketTour=Request.Querystring("Market_Tour")
Parliamenttour=Request.Querystring("Parliament_Tour")
StoryTour=Request.Querystring("Story_Tour")
Tulips=Request.Querystring("Tulips_Tour")
GatineauPark=Request.Querystring("GatineauPark_Tour")
Christmas=Request.Querystring("Christmas_Tour")
Winterlude=Request.Querystring("Winterlude_Tour")
MeetGreet=Request.Querystring("MeetGreet_Services")
Transportation=Request.Querystring("Transportation_Services")
Itinerary=Request.Querystring("Itinerary_Services")
Personnel=Request.Querystring("Personnel_Services")
If Request.QueryString("D_Program") = "on" Then
DProgram="Yes"
else
DProgram="No"
End If
If Request.QueryString("FD_Program") = "on" Then
FDProgram="Yes"
else
FDProgram="No"
End If
If Request.QueryString("MD_Program") = "on" Then
MDProgram="Yes"
else
MDProgram="No"
End If
If Request.QueryString("ataglance_tour") = "on" Then
ataglancetour="Yes"
else
ataglancetour="No"
End If
If Request.QueryString("classic_tour") = "on" Then
classictour="Yes"
else
classictour="No"
End If
If Request.QueryString("capital_tour") = "on" Then
capitaltour="Yes"
else
capitaltour="No"
End If
If Request.QueryString("market_tour") = "on" Then
MarketTour="Yes"
else
MarketTour="No"
End If
If Request.QueryString("Parliament_tour") = "on" Then
parliamenttour="Yes"
else
parliamenttour="No"
End If
If Request.QueryString("Story_Tour") = "on" Then
storytour="Yes"
else
storytour="No"
End If
If Request.QueryString("Tulips_tour") = "on" Then
tulips="Yes"
else
tulips="No"
End If
If Request.QueryString("gatineauPark_tour") = "on" Then
gatineauPark="Yes"
else
gatineauPark="No"
End If
If Request.QueryString("christmas_tour") = "on" Then
christmas="Yes"
else
christmas="No"
End If
If Request.QueryString("winterlude_tour") = "on" Then
winterlude="Yes"
else
winterlude="No"
End If
If Request.QueryString("meetgreet_services") = "on" Then
meetgreet="Yes"
else
meetgreet="No"
End If
If Request.QueryString("transportation_services") = "on" Then
transportation="Yes"
else
transportation="No"
End If
If Request.QueryString("itinerary_services") = "on" Then
itinerary="Yes"
else
itinerary="No"
End If
If Request.QueryString("personnel_services") = "on" Then
personnel="Yes"
else
personnel="No"
End If
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "info@conferenceaidetours.com"
objCDO.To = "info@conferenceaidetours.com"
objCDO.Cc = ""
objCDO.Bcc = ""
objCDO.Subject = "Request for Information - "&cname
objCDO.Body = "CONTACT INFORMATION"&chr(10)&chr(10)&"Name: " & fname & " " & lname&chr(10)&"Title: "&ftitle&chr(10)&"Company Name: "&cname&chr(10)&"Street Address: "&saddress&chr(10)&"City: "&ccity&chr(10)&"Province: "&cprovince&chr(10)&"Country: "&ccountry&chr(10)&"Postal/Zip Code: "&cpostalcode&chr(10)&"Telephone: "&ctelephone&chr(10)&"Fax: "&cfax&chr(10)&"E-mail: "&cemail&chr(10)&"Web Site: "&cwebsite&chr(10)&chr(10)&"INQUIRY"&chr(10)&chr(10)&"Group Name: "&gname&chr(10)&"Size of Group: "&gsize&chr(10)&"Date of Visit: "&datevisit&chr(10)&"Time of visit: "&timevisit&chr(10)&"Pick-up Location: "&pickuplocation&chr(10)&"Motorcoach company: "&motorcoachcompany&chr(10)&"Language Required: "&languagerequired&chr(10)&"Approximate Budget: "&budget&chr(10)&chr(10)&"SERVICES REQUIRED"&chr(10)&chr(10)&"City Tours (Step-on Guides)"&chr(10)&chr(10)&"Capital-At-A-Glance Tour (2 Hours): "&ataglancetour&chr(10)&"Classic City Tour (2.5 Hours): "&classictour&chr(10)&"Experience the Capital Tour (3 Hours): "&capitaltour&chr(10)&chr(10)&"Customized Tours and Itineraries (Step-on Guides)"&chr(10)&chr(10)&"Half-Day Programs: "&dprogram&chr(10)&"Full-Day Programs: "&fdprogram&chr(10)&"Multi-Day Programs: "&mdprogram&chr(10)&chr(10)&"Walking Tours"&chr(10)&chr(10)&"Historic ByWard Market Tour: "&markettour&chr(10)&"Parliament Hill Tour: "&parliamenttour&chr(10)&"Story of Parliament Tour: "&storytour&chr(10)&chr(10)&"Themed Tours"&Chr(10)&chr(10)&"Tulips in the Capital Tour: "&tulips&chr(10)&"Fall Foliage and Gatineau Park Tour: "&gatineauPark&chr(10)&"Christmas in the Capital Tour: "&christmas&chr(10)&"Winterlude Wonderland Tour: "&winterlude&chr(10)&chr(10)&"ReceptiveServices"&chr(10)&chr(10)&"Meet and Greet Services: "&meetgreet&chr(10)&"Ground Tranportation System: "&transportation&chr(10)&"Itinerary Planning and Companion Program: "&itinerary&chr(10)&"Tour and Convention Personnel: "&personnel&chr(10)&"Other Details: "&odetails
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
ConfirmMsg = "Thanks for submitting your name!"
end if
%>
Conference Aide Tours - Quotation