|
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 .
|
<%
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 & ""
Line = Line & "" & rentalText & "
"
Line = Line & "" & Left(rentalDesc, 150) & "... " & ""
Line = Line & " | "
Else
Line = Line & "| " & (bb) & " | "
Line = Line & ""
Line = Line & "" & rentalText & "
"
Line = Line & "" & Left(rentalDesc, 150) & "... " & ""
Line = Line & " | "
End If
aa = aa + 1
if aa = 2 Then aa = 0 End If
end if
Next
Area = Area & Line & b
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write "| Our Hotel Listings |
"
Response.Write " | "
Response.Write (Area)
Response.Write "| | "
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 ""
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 ""
End If
%>
| 
