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 set root = nothing Response.Write(Line) Line = "" %>

Please fill out the form below to Join The CTS Mailing List.

<% fName = Request.Form("name") fEmail = Request.Form("email") fPz = Request.Form("pz") fUn = Request.Form("un") If Request.Querystring("form") = "on" then If ((fName = "Your Name") OR (fName = "")) OR ((fEmail = "Your Email") OR (fEmail = "")) then Response.Write "

" Response.Write "

" Else Set Blast = Server.CreateObject("CDONTS.NewMail") Blast.To = fEmail Blast.From = "info@caribbeantoursspecialists.com" Blast.Subject = "You Joined The Mailing List " & date() Blast.Body = "Congradulations on joining the CTS Mailing List." Blast.BodyFormat = 1 Blast.MailFormat = 1 Blast.Send Set Blast = nothing formReact = formReact & "" formReact = formReact & "

You Have Joined The Mailing List!

" formReact = formReact & "

" Response.Write (formReact) End If Else Response.Write "

" Response.Write "" Response.Write "

" Response.Write "

" If Session("pageTitle") = "" Then Response.Write "Join The CTS Mailing List!" Else Response.Write (Session("pageTitle")) End If Response.Write "

" Response.Write "

" Response.Write "
" Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Session("pageTitle") = "" End If %>