" Line = Line & "" Line = Line & "" Line = Line & "" Line = Line & "" Else End If Next Response.Write "
Home   About Us   Honeymoon   Special Promotions   Travel Insurance   Links & Information   Contact Us
" Line = Line & "" Line = Line & "" Line = Line & "" Line = Line & "" Else End If Next Response.Write "
<% Select Case Request.QueryString("view") Case "detail" set xml = Server.CreateObject("Microsoft.XMLDOM") source = Server.MapPath("cgi-bin/properties.xml") xml.ValidateOnParse=True xml.load(source) set root = xml.documentElement For i = 0 To root.childNodes.length - 1 rentalID = root.childNodes.item(i).getAttribute("id") rentalTitle = root.childNodes.item(i).getAttribute("destination") rentalHotel = root.childNodes.item(i).childNodes.item(0).text rentalAdd1 = root.childNodes.item(i).childNodes.item(1).text rentalAdd2 = root.childNodes.item(i).childNodes.item(2).text rentalPhone = root.childNodes.item(i).childNodes.item(3).text rentalEmail = root.childNodes.item(i).childNodes.item(4).text rentalSpecial = root.childNodes.item(i).childNodes.item(5).text rentalSDet = root.childNodes.item(i).childNodes.item(6).text rentalPP = root.childNodes.item(i).childNodes.item(7).text rentalDesc = root.childNodes.item(i).childNodes.item(8).text rentalPhoto1 = root.childNodes.item(i).childNodes.item(9).text rentalPhoto2 = root.childNodes.item(i).childNodes.item(10).text rentalPhoto3 = root.childNodes.item(i).childNodes.item(11).text rentalPhoto4 = root.childNodes.item(i).childNodes.item(12).text rentalPhoto5 = root.childNodes.item(i).childNodes.item(13).text rentalPhoto6 = root.childNodes.item(i).childNodes.item(14).text Select Case rentalTitle Case "Punta Cana" ra1 = "selected" Case "Mexico" ra2 = "selected" Case "Aruba" ra3 = "selected" Case "Puerto Rico" ra4 = "selected" Case "Panama" ra5 = "selected" Case "Costa Rica" ra6 = "selected" Case "Margarita Island" ra7 = "selected" Case "St Lucia" ra8 = "selected" Case "Grand Cayman" ra9 = "selected" End Select If Request.QueryString("prop") = rentalID Then Line = Line & "
" Line = Line & "" Line = Line & "
" & rentalHotel & "
" Line = Line & "
" If Request.QueryString("photo") <> "" Then Line = Line & "
" End If Line = Line & "
Address:" & rentalAdd1 & "" If rentalAdd2 <> "" then Line = Line & "  " & rentalAdd2 & "" End If Line = Line & "     Phone:" & rentalPhone & "     Email: " & rentalEmail & "
" Line = Line & "
Hotel Description:
" & rentalDesc & "
" Line = Line & "
Prices & Packages:
" & rentalPP & "
" If rentalSpecial = "yes" then Line = Line & "
Hotel Special:
" & rentalSDet & "
" End If Line = Line & "
" If Request.QueryString("photo") <> "" Then reqString = "&photo=" & Request.QueryString("photo") End If Line = Line & "
" Line = Line & "
" Line = Line & "
Contact A CTS Agent About This Hotel!
" Line = Line & "
" Line = Line & "" Line = Line & "" Line = Line & "" Line = Line & "" Line = Line & "" Line = Line & "" Line = Line & "" Line = Line & "" Line = Line & "" Line = Line & "
*Your Name
*Your Email
*Departure City
" Line = Line & "
Your Destination" Line = Line & "
Hotel Name
Departure Date(example: 10/10/08) //
Return Date(example: 10/10/08) //
" Line = Line & "# of Adults " Line = Line & "   # of Children **" Line = Line & "

If traveling with children under 12 years old, please note it in the field below
" Line = Line & "" Line = Line & "" Line = Line & "
" Line = Line & "" Line = Line & "
" Line = Line & "
" if rentalPhoto1 = "" AND rentalPhoto2 = "" AND rentalPhoto3 = "" AND rentalPhoto4 = "" AND rentalPhoto5 = "" AND rentalPhoto6 = "" then Line = Line & "

There are no photos associated with this hotel

" else If rentalPhoto1 <> "" Then Line = Line & "" Line = Line & "
" End If If rentalPhoto2 <> "" Then Line = Line & "
" End If If rentalPhoto3 <> "" Then Line = Line & "
" End If If rentalPhoto4 <> "" Then Line = Line & "
" End If If rentalPhoto5 <> "" Then Line = Line & "
" End If If rentalPhoto6 <> "" Then Line = Line & "
" End If end if Line = Line & "
Return To Listings" If rentalID <> 1 Then Line = Line & " | Previous Listing" End If If Cint(rentalID) < root.childNodes.length Then Line = Line & " | Next Listing" End If Line = Line & "
" Response.Write "" Response.Write "
" Response.Write "
" Response.Write "" Response.Write (Line) Response.Write "
" Response.Write "
" set xml = Nothing Case "form" fName = Request.Form("name") fEmail = Request.Form("email") fProp = Request.Form("property") fDeparture = Request.Form("departure") fHotel = Request.Form("hotel") fDesc = Request.Form("description") fDestination = Request.Form("destination") fAEm = Request.Form("AEm") fAdults = Request.Form("adults") fKids = Request.Form("children") fDM = Request.Form("dDateM") fDD = Request.Form("dDateD") fDY = Request.Form("dDateY") fAM = Request.Form("rDateM") fAD = Request.Form("rDateD") fAY = Request.Form("rDateY") Select Case fDestination Case "Punta Cana" r1 = "selected" Case "Mexico" r2 = "selected" Case "Aruba" r3 = "selected" Case "Puerto Rico" r4 = "selected" Case "Panama" r5 = "selected" Case "Costa Rica" r6 = "selected" Case "Margarita Island" r7 = "selected" Case "St Lucia" r8 = "selected" Case "Grand Cayman" r9 = "selected" End Select Select Case fAdults Case "0" a0 = "selected" Case "1" a1 = "selected" Case "2" a2 = "selected" Case "3" a3 = "selected" Case "4" a4 = "selected" Case "5" a5 = "selected" Case "6" a6 = "selected" Case "7" a7 = "selected" Case "8" a8 = "selected" Case "9" a9 = "selected" Case "10" a10 = "selected" End Select Select Case fKids Case "0" k0 = "selected" Case "1" k1 = "selected" Case "2" k2 = "selected" Case "3" k3 = "selected" Case "4" k4 = "selected" Case "5" k5 = "selected" Case "6" k6 = "selected" Case "7" k7 = "selected" Case "8" k8 = "selected" Case "9" k9 = "selected" Case "10" k10 = "selected" End Select If Request.QueryString("photo") <> "" Then reqString = "&photo=" & Request.QueryString("photo") End If If fName = "" OR fEmail = "" OR fDeparture = "" then If (fProp = "") OR (fProp = "none") Then formReact = formReact & "
" Else formReact = formReact & "" End If formReact = formReact & "
" formReact = formReact & "
Please Remember To Fill In All Required Fields!
" formReact = formReact & "
" formReact = formReact & "" formReact = formReact & "" formReact = formReact & "" formReact = formReact & "" formReact = formReact & "" formReact = formReact & "" formReact = formReact & "" formReact = formReact & "" formReact = formReact & "" formReact = formReact & "
*Your Name
*Your Email
*Departure City
" formReact = formReact & "
Your Destination" formReact = formReact & "
Hotel Name
Departure Date(example: 10/10/08) //
Return Date(example: 10/10/08) //
" formReact = formReact & "# of Adults " formReact = formReact & "   # of Children **" formReact = formReact & "

If traveling with children under 12 years old, please note it in the field below
" formReact = formReact & "
" formReact = formReact & "" Else messageSend = messageSend & "Inquiry Hotel ID: #" & fProp & "
" messageSend = messageSend & "Inquiry Hotel Name: #" & fHotel & "
" messageSend = messageSend & "Consumer Name: " & fName & chr(13) messageSend = messageSend & "Consumer Email: " & fEmail & chr(13) messageSend = messageSend & "# of Adults: " & fAdult & chr(13) messageSend = messageSend & "# of Children: " & fKid & chr(13) messageSend = messageSend & "Departure City: " & fDeparture & chr(13) messageSend = messageSend & "Inquiry Destination: #" & fDestination & chr(13) messageSend = messageSend & "Estimated Departure Date: " & fDM & "/" & fDD & "/" & fDY & chr(13) messageSend = messageSend & "Estimated Return Date: " & fAM & "/" & fAD & "/" & fAY & 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 & "Consumer Name: " & fName & "
" messagePage = messagePage & "Consumer Email: " & fEmail & "
" messagePage = messagePage & "# of Adults: " & fAdult & "
" messagePage = messagePage & "# of Children: " & fKid & "
" messagePage = messagePage & "Departure City: " & fDeparture & "
" messagePage = messagePage & "Inquiry Destination: #" & fDestination & "
" messagePage = messagePage & "Estimated Departure Date: " & fDM & "/" & fDD & "/" & fDY & "
" messagePage = messagePage & "Estimated Return Date: " & fAM & "/" & fAD & "/" & fAY & "
" messagePage = messagePage & "Consumer Comments: " & "
" & 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 = "Hotel ID#" & fProp & " 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 End If set fxml = Server.CreateObject("Microsoft.XMLDOM") fsource = Server.MapPath("cgi-bin/properties.xml") fxml.ValidateOnParse=True fxml.load(fsource) set froot = fxml.documentElement For w = 0 To froot.childNodes.length - 1 hotelID = froot.childNodes.item(w).getAttribute("id") hotelTitle = froot.childNodes.item(w).getAttribute("destination") hotelHotel = froot.childNodes.item(w).childNodes.item(0).text hotelAdd1 = froot.childNodes.item(w).childNodes.item(1).text hotelAdd2 = froot.childNodes.item(w).childNodes.item(2).text hotelPhone = froot.childNodes.item(w).childNodes.item(3).text hotelEmail = froot.childNodes.item(w).childNodes.item(4).text hotelSpecial = froot.childNodes.item(w).childNodes.item(5).text hotelSDet = froot.childNodes.item(w).childNodes.item(6).text hotelPP = froot.childNodes.item(w).childNodes.item(7).text hotelDesc = froot.childNodes.item(w).childNodes.item(8).text hotelPhoto1 = froot.childNodes.item(w).childNodes.item(9).text hotelPhoto2 = froot.childNodes.item(w).childNodes.item(10).text hotelPhoto3 = froot.childNodes.item(w).childNodes.item(11).text hotelPhoto4 = froot.childNodes.item(w).childNodes.item(12).text hotelPhoto5 = froot.childNodes.item(w).childNodes.item(13).text hotelPhoto6 = froot.childNodes.item(w).childNodes.item(14).text If Request.QueryString("prop") = hotelID Then Line = Line & "
" Line = Line & "" Line = Line & "
" & hotelHotel & "
" Line = Line & "
" If Request.QueryString("photo") <> "" Then Line = Line & "
" End If Line = Line & "
Address:" & hotelAdd1 & "" If hotelAdd2 <> "" then Line = Line & "  " & hotelAdd2 & "" End If Line = Line & "     Phone:" & hotelPhone & "     Email: " & hotelEmail & "
" Line = Line & "
Hotel Description:
" & hotelDesc & "
" Line = Line & "
Prices & Packages:
" & hotelPP & "
" If hotelSpecial = "yes" then Line = Line & "
Hotel Special:
" & hotelSDet & "
" End If Line = Line & "

" Line = Line & formReact Line = Line & "
" Line = Line & "		" if hotelPhoto1 = "" AND hotelPhoto2 = "" AND hotelPhoto3 = "" AND hotelPhoto4 = "" AND hotelPhoto5 = "" AND hotelPhoto6 = "" then Line = Line & "

There are no photos associated with this hotel

" else If hotelPhoto1 <> "" Then Line = Line & "" Line = Line & "
" End If If hotelPhoto2 <> "" Then Line = Line & "
" End If If hotelPhoto3 <> "" Then Line = Line & "
" End If If hotelPhoto4 <> "" Then Line = Line & "
" End If If hotelPhoto5 <> "" Then Line = Line & "
" End If If hotelPhoto6 <> "" Then Line = Line & "
" End If end if Line = Line & "
Return To Listings" If hotelID <> 1 Then Line = Line & " | Previous Listing" End If If Cint(hotelID) < froot.childNodes.length Then Line = Line & " | Next Listing" End If Line = Line & "
" Response.Write "" Response.Write "
" Response.Write "
" Response.Write "" Response.Write (Line) Response.Write "
" Response.Write "
" set fxml = Nothing End Select %>
Home About Us Honeymoon Special Promotions Travel Insurance Links & Information Contact Us
Travel Destinations: Punta Cana Mexico Aruba Puerto Rico Panama Costa Rica Margarita Island
CTS Vacations 25 South Service Road, Suite 200, Jericho NY 11753. Tel (800) 930-9021 Fax (516) 281-7171
© copyright 2008   Privacy Policy Terms & Conditions Site Map Credit Card Form