Home   About Us   Honeymoon   Special Promotions   Travel Insurance   Links & Information   Contact Us

Turquoise waters are spellbinding.. Powdery white sand beaches legendary. Here, surrounded by that mesmerizing blue, you will find a place that is quietly and elegantly redefining the word civilized. Refining the word sophisticated. Luxury hotels are located on the famous Seven Mile Beach . Spend your Honey Moon with quiet conversation under the stars, a moonlit dinners or dancing into the night. To pass your time enjoy the superior snorkeling and diving. Enthusiasts for wildlife can embark upon excursions to see the wonder of wildlife and botany.

Come with us to the Grand Cayman Islands .

" Line = Line & "" Else Line = Line & "" Line = Line & "" End If aa = aa + 1 if aa = 2 Then aa = 0 End If end if Next Area = Area & Line & b Response.Write "
<% Dim source, yabba source = Server.MapPath("cgi-bin/properties.xml") set xmlOpen = Server.CreateObject("Microsoft.XMLDOM") xmlOpen.ValidateOnParse=True xmlOpen.load(source) set rootOpen = xmlOpen.documentElement aa = 0 bb = 0 For i = 0 to rootOpen.childNodes.length - 1 rentalID = rootOpen.childNodes.item(i).getAttribute("id") rentalTitle = rootOpen.childNodes.item(i).getAttribute("destination") rentalText = rootOpen.childNodes.item(i).childNodes.item(0).text rentalPhone = rootOpen.childNodes.item(i).childNodes.item(3).text rentalEmail = rootOpen.childNodes.item(i).childNodes.item(4).text rentalDesc = rootOpen.childNodes.item(i).childNodes.item(8).text if rentalTitle = "Grand Cayman" then bb = bb + 1 If aa = 0 Then Line = Line & "
" & (bb) & "" Line = Line & "" & rentalText & "
" Line = Line & "" & Left(rentalDesc, 150) & "... " & "" Line = Line & "
" Response.Write "" Response.Write (Area) Response.Write "" Response.Write "
" Response.Write "" Response.Write "
Our Hotel Listings
" Response.Write "
 
" set rootOpen = Nothing set xmlOpen = nothing %>
<% fName = Request.Form("name") fEmail = Request.Form("email") fProp = Request.Form("property") fDesc = Request.Form("description") fhname = Request.Form("destination") fAEm = Request.Form("AEm") If Request.Querystring("form") = "on" then If ((fName = "Your Name") OR (fName = "")) OR ((fEmail = "Your Email or Phone Number") OR (fEmail = "")) then Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
Please Remember To Fill In All Required Fields!
" Response.Write "

" Response.Write "
" Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Else messageSend = messageSend & "Consumer Name: " & fName & chr(13) messageSend = messageSend & "Consumer Contact: " & fEmail & chr(13) messageSend = messageSend & "Inquiry Destination: #" & fhname & chr(13) messageSend = messageSend & "Consumer Comments: " & chr(13) & fDesc & chr(13) messageSend = messageSend & chr(13) & "This service was brought to you by 3flexstudios.com - digital consultants" messagePage = messagePage & fName & "
" messagePage = messagePage & fEmail & "
" messagePage = messagePage & "Inquiry Destination: #" & fhname & "
" messagePage = messagePage & fDesc & "
" Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") Dim objCDOConf Set objCDOConf = Server.CreateObject("CDO.Configuration") With objCDOConf.Fields .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = objCDOConf ' Be sure to use a valid email addresses below: objCDO.From = "info@caribbeantoursspecialists.com" objCDO.To = "nik@3flexstudios.com,info@caribbeantoursspecialists.com" objCDO.Subject = "Destination" & fhname & " Info Request: " & date() objCDO.TextBody = messageSend objCDO.Send 'Clean-up Set objCDO = Nothing Set objCDOConf = Nothing formReact = formReact & "" formReact = formReact & "
Your message has been sent!
" formReact = formReact & messagePage If (fProp = "") OR (fProp = "none") Then formReact = formReact & "
Click here to send another.
" Else formReact = formReact & "
Click here to send another.
" End If Response.Write (formReact) End If Else Response.Write "
" Response.Write "" Response.Write "
" Response.Write "
Contact A CTS Agent About This Destination!
" Response.Write "

" Response.Write "
" Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" End If %>