CTS - Caribbean Tour Specialists

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

<% Dim fsource fsource = Server.MapPath("cgi-bin/properties.xml") set xmlFeature = Server.CreateObject("Microsoft.XMLDOM") xmlFeature.ValidateOnParse=True xmlFeature.load(fsource) set rootFeature = xmlFeature.documentElement aa = 0 bb = 0 cc = 0 For z = 0 to rootFeature.childNodes.length - 1 rentalID = rootFeature.childNodes.item(z).getAttribute("id") rentalTitle = rootFeature.childNodes.item(z).getAttribute("destination") rentalHotel = rootFeature.childNodes.item(z).childNodes.item(0).text rentalSpecial = rootFeature.childNodes.item(z).childNodes.item(5).text rentalSDet = rootFeature.childNodes.item(z).childNodes.item(6).text rentalDesc = rootFeature.childNodes.item(z).childNodes.item(8).text if rentalTitle = "Mexico" then aa = aa + 1 if aa = 1 then AreaA = AreaA & "" end if end if if rentalTitle = "Punta Cana" then bb = bb + 1 if bb = 1 then AreaB = AreaB & "" end if end if if rentalTitle = "Costa Rica" then cc = cc + 1 if cc = 1 then AreaC = AreaC & "" end if end if Next Response.Write (AreaA & AreaB & AreaC) set rootFeature = Nothing set xmlFeature = Nothing %>

TOP DEALS OF THE WEEK
<% Dim source 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 For z = 0 to rootOpen.childNodes.length - 1 rentalID = rootOpen.childNodes.item(z).getAttribute("id") rentalTitle = rootOpen.childNodes.item(z).getAttribute("destination") rentalHotel = rootOpen.childNodes.item(z).childNodes.item(0).text rentalSpecial = rootOpen.childNodes.item(z).childNodes.item(5).text rentalSDet = rootOpen.childNodes.item(z).childNodes.item(6).text rentalDesc = rootOpen.childNodes.item(z).childNodes.item(8).text if rentalSpecial = "yes" then aa = aa + 1 Select Case aa Case 1 ' Area = Area & rentalTitle & " - " & rentalHotel & " " Area = Area & "" & rentalTitle & " - " & rentalHotel & ": " & left(rentalSDet,75) & " ..." & " " Case 2 ' Area = Area & rentalTitle & " - " & rentalHotel & " " Area = Area & "" & rentalTitle & " - " & rentalHotel & ": " & left(rentalSDet,75) & " ..." & " " Case 3 ' Area = Area & rentalTitle & " - " & rentalHotel Area = Area & "" & rentalTitle & " - " & rentalHotel & ": " & left(rentalSDet,75) & " ..." End Select end if Next Response.Write (Area) Area = "" z = 0 set rootOpen = Nothing set xmlOpen = Nothing %>
Featured Hotels
" AreaA = AreaA & " " AreaA = AreaA & "" & rentalTitle & " " & rentalHotel & "	" AreaB = AreaB & " " AreaB = AreaB & "" & rentalTitle & " " & rentalHotel & "	" AreaC = AreaC & " " AreaC = AreaC & "" & rentalTitle & " " & rentalHotel & "