<% nCorpName = "Cadillac Jack, Inc." nSiteName = "cadillacjackinc.com" nContactInfo = "Cadillac Jack, Inc.
Toll free: (888) 233-5550
Phone: (305) 853-5550
Fax: (305) 853-0463
" nFullName = Request("nFullName") nMailName = Request("nMailName") updateRS = Request("updateRS") nError = "" If nFullName = "" Then nFullName = nCorpName End If If nMailName = "" Then nMailName = "info" End If %> Reservations and info request
Cadillac Jack
<% If updateRS <> "" Then nFullName = Request("nFullName") nMailName = Request("nMailName") First_Name = Request("First_Name") Last_Name = Request("Last_Name") Email_Address = Request("Email_Address") Phone = Request("Phone") Fax = Request("Fax") Street_Address = Request("Street_Address") City_Town = Request("City_Town") State_Province = Request("State_Province") Country = Request("Country") ZIP_PostalCode = Request("ZIP_PostalCode") Vehicle_Desired = Request("Vehicle_Desired") Need_Airport_Service = Request("Need_Airport_Service") Group_Size = Request("Group_Size") Date_of_Arrival = Request("Date_of_Arrival") Arrival_Airline = Request("Arrival_Airline") Arrival_Flight_Number = Request("Arrival_Flight_Number") Arriving_from = Request("Arriving_from") Arrival_Time = Request("Arrival_Time") Arrival_Time_Meridian = Request("Arrival_Time_Meridian") Date_of_Departure = Request("Date_of_Departure") Departure_Time = Request("Departure_Time") Departure_Time_Meridian = Request("Departure_Time_Meridian") Departure_Airport = Request("Departure_Airport") Need_Other_Services = Request("Need_Other_Services") Local_accomodations = Request("Local_accomodations") Things_To_Do = Request("Things_To_Do") Restaurants = Request("Restaurants") Car_rental = Request("Car_rental") Other = Request("Other") nFrom = First_Name & " " & Last_Name & " <" & Email_Address & ">" nTo = "info@cadillacjackinc.com" nSubject = "Reservations Form Submission - " & nSiteName nBody = Email_Body() Call Send_Mail(nFrom, nTo, nSubject, nBody) End If %> <% If updateRS <> "" Then %>


Your message has been sent!

Thank you for your interest in <% Response.Write(nCorpName) %>.

If you requested a reply from us, we will respond
as soon as possible to your request.
You can also reach us at using the following information:

<% Response.Write(nContactInfo) %>

<% Else %>
RESERVATIONS REQUEST

First Name:

Last Name:
Email Address:
Phone:
Fax:
Street
Address:
City/Town:
State/Province:
Country:
ZIP/
Postal Code:
Vehicle Desired:
     

Cadillac Sedan

Mercury Grand Marquis

6 Passenger Excursion

Full-Size Van
 

33 Passenger
Motorcoach

24 Passenger
Motorcoach
I need Airport Service from: Ft. Lauderdale Airport Miami Airport Other Airport
       
Flight and group information: Number of people in group:
  Date of Arrival (MM/DD/YYYY):
Arrival Airline:
Arrival Flight #:
City Arriving From:
Arrival Time:
Date of Departure (MM/DD/YYYY):
Departure Time:
Departure Airport
(if different from arrival airport):
Need Other Service:
(for more information, see below)
Our Cadillac Jack team would be pleased to assist you with other vacation arrangements. If you mark any of the following, we will be happy to contact you and offer suggestions/assistance on...
  Local accomodations (Resorts/Hotels/Motels)       Things to do (Fishing, Snorkeling,
Diving, Golfing, Swim with the Dolphins,
Jet Skiing or Boat Rentals, etc.)
  Car rental and transportation in the Keys
  Restaurants
Other:

<% End If %>

© 2001-2002 Cadillac Jack, Inc. All rights reserved. Webmaster: Adventures com, Inc.
SERVICES HOME RATES ABOUT US CONTACT US <% Function Email_Body() nTable = "" nTable = nTable + "The following information was submitted online on www." & nSiteName & ":" + vbCRLF nTable = nTable + "" + vbCRLF nTable = nTable + "Reservations Form Submission" + vbCRLF nTable = nTable + "=======================" + vbCRLF nTable = nTable + "Name: " & First_Name & " " & Last_Name & vbCRLF nTable = nTable + "Email: " & Email_Address & vbCRLF nTable = nTable + "Phone: " & Phone & vbCRLF nTable = nTable + "Fax: " & Fax & vbCRLF nTable = nTable + "Address: " & Street_Address & vbCRLF nTable = nTable + "City/Town: " & City_Town & vbCRLF nTable = nTable + "State/Prov: " & State_Province & vbCRLF nTable = nTable + "Country: " & Country & vbCRLF nTable = nTable + "ZIP Code: " & ZIP_PostalCode & vbCRLF nTable = nTable + "" + vbCRLF nTable = nTable + "Vehicle Desired: " & Vehicle_Desired & vbCRLF nTable = nTable + "" + vbCRLF nTable = nTable + "I need Airport Service from: " & Need_Airport_Service & vbCRLF nTable = nTable + "" + vbCRLF nTable = nTable + "Flight and Group Information" + vbCRLF nTable = nTable + "----------------------------" + vbCRLF nTable = nTable + "People in group: " & Group_Size & vbCRLF nTable = nTable + "Date of Arrival: " & Date_of_Arrival & vbCRLF nTable = nTable + "Arrival Airline: " & Arrival_Airline & vbCRLF nTable = nTable + "Arrival Flight #: " & Arrival_Flight_Number & vbCRLF nTable = nTable + "City Arriving From: " & Arriving_from & vbCRLF nTable = nTable + "Arrival Time: " & Arrival_Time & " " & Arrival_Time_Meridian & vbCRLF nTable = nTable + "Date of Departure: " & Date_of_Departure & vbCRLF nTable = nTable + "Departure Time: " & Departure_Time & " " & Departure_Time_Meridian & vbCRLF nTable = nTable + "Departure Airport: " & Departure_Airport & vbCRLF nTable = nTable + "Need Other Service: " & Need_Other_Services & vbCRLF nTable = nTable + "" + vbCRLF nTable = nTable + "Please Contact Me About..." + vbCRLF nTable = nTable + "--------------------------" + vbCRLF nTable = nTable + "Local accomodations (Resorts/Hotels/Motels): " & Local_accomodations & vbCRLF nTable = nTable + "Things to do (Fishing, Snorkeling, etc.): " & Things_To_Do & vbCRLF nTable = nTable + "Restaurants: " & Restaurants & vbCRLF nTable = nTable + "Car rental and transportation in the Keys: " & Car_rental & vbCRLF nTable = nTable + "Other: " & Other & vbCRLF nTable = nTable + "" + vbCRLF Email_Body = nTable End Function %> <% Function Send_Mail(nFrom, nTo, nSubject, nBody) set o_mailer = Server.CreateObject("CDO.Message") o_mailer.From = nFrom o_mailer.To = nTo o_mailer.Subject = nSubject o_mailer.TextBody = nBody o_mailer.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 o_mailer.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.cadillacjackinc.com" o_mailer.Configuration.Fields.Update o_mailer.Send set o_mailer = nothing End Function %>