|
 Puerto Rico beckons active travelers interested in spicing up their vacations! From hiking in a forest, to dining on the infusion of classic and delectable Caribbean cuisine, to romantic walks on a moonlit beach, virtually any type of vacation interest can be accommodated in the land of your dreams, Puerto Rico.
|
<%
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 = "Puerto Rico" 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
%>
| 
