CTS - Caribbean Tour Specialists

" Line = Line & "" Line = Line & "" Line = Line & "" Line = Line & "" Else End If Next Response.Write "

<% ticksource = Server.MapPath("cgi-bin/ticker_list.xml") set xml = Server.CreateObject("Microsoft.XMLDOM") xml.ValidateOnParse=True xml.load(ticksource) set root = xml.documentElement For i = 0 To root.childNodes.length - 1 tickLine1 = root.childNodes.item(i).getAttribute("laa") tickLine2 = root.childNodes.item(i).getAttribute("lbb") n = n + 1 Line = Line & tickLine1 Line = Line & " " Line = Line & " " Line = Line & " " Line = Line & " " Line = Line & " " Line = Line & " " Line = Line & " " Line = Line & " " Line = Line & tickLine2 Next set xml = nothing Response.Write(Line) Line = "" %>

<% 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 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 & "

" 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") fDesc = Request.Form("description") fhname = Request.Form("hotel") fAEm = Request.Form("AEm") If Request.QueryString("photo") <> "" Then reqString = "&photo=" & Request.QueryString("photo") End If If ((fName = "Your Name") OR (fName = "")) OR ((fEmail = "Your Email or Phone Number") OR (fEmail = "")) 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 & "" Else messageSend = messageSend & "Consumer Name: " & fName & chr(13) messageSend = messageSend & "Consumer Contact: " & fEmail & chr(13) messageSend = messageSend & "Inquiry Hotel ID: #" & fProp & 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 Hotel ID: #" & fProp & "
" messagePage = messagePage & "Inquiry Hotel Name: #" & 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 = "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 %>