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

<% fName = Request.Form("name") fEmail = Request.Form("email") fFriend = Request.Form("emailfriend") fDesc = Request.Form("description") fSite = Request.Form("site") If Request.Querystring("form") = "on" then If ((fName = "Your Name") OR (fName = "")) OR ((fFriend = "Friend Email") OR (fFriend = "")) then Response.Write "

" Response.Write "

" Else messageSend = messageSend & "Name: " & fName & chr(13) messageSend = messageSend & "Email: " & fEmail & chr(13) messageSend = messageSend & "Comments: " & chr(13) & fDesc & chr(13) messageSend = messageSend & "A friend of yours has suggested you might be interested in seeing this site: " & fSite & chr(13) messageSend = messageSend & chr(13) & "This service was brought to you by Caribbean Tour Specialists" messagePage = messagePage & "Name: " & fName & "
" messagePage = messagePage & "Email: " & fEmail & "
" messagePage = messagePage & "Comments:
" & fDesc & "
" messagePage = messagePage & "A friend of yours has suggested you might be interested in seeing this site: " & fSite & "
" 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 = fFriend objCDO.Subject = fName & " thinks you would be intersted in this site" 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 formReact = formReact & "

Click here to send another.

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

" Response.Write "" Response.Write "

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

" Response.Write "

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

" End If %>