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

St. Lucia is the island that travelers to the Caribbean dream about--a small, lush tropical gem that is still relatively unknown. One of the Windward Islands of the Lesser Antilles . St. Lucia is only 27 miles long and 14 miles wide, with a shape that is said to resemble either a mango or an avocado The Atlantic Ocean kisses its eastern shore, while the beaches of the west coast owe their beauty to the calm Caribbean Sea. St. Lucia seems like an island plucked from the South Pacific and set down in the Caribbean. Its dramatic twin coastal peaks, the Pitons, soar 2,000 feet up from the sea, sheltering magnificent rain forests where wild orchids, giant ferns, and birds of paradise flourish.
There is a broad array of exciting and exotic activities available on St. Lucia. The island's steep coastlines and lovely reefs offer excellent snorkeling and scuba diving. The rainforest preserves of St. Lucia's mountainous interior are one of the Caribbean's finest locales for hiking and bird watching. Of course, the island also possesses excellent facilities for golf, tennis, sailing, and a host of other leisure pursuits. Not to be missed is St. Lucia's Soufriere volcano, the world's only drive-in volcanic crater.

" 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 = "St Lucia" 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 %>