<% Function getXML(sourceFile) dim styleFile dim source, style styleFile = Server.MapPath("/open.xsl") Dim xmlhttp Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") xmlhttp.Open "GET", sourceFile, false xmlhttp.Send set source = Server.CreateObject("Microsoft.XMLDOM") source.async = false source.loadxml(xmlhttp.ResponseText) set style = Server.CreateObject("Microsoft.XMLDOM") style.async = false style.load(styleFile) getXML = source.transformNode(style) set source = nothing set style = nothing End Function %> <% writeTop "Gaelic News", "news.jpg" %>

Gaelic News from the Web

Using the latest technology, Highland Cathedral can bring to you weekly gaelic news feeds from the Scotsman Newspaper. There are articles on Gaelic itself and articles on the Gaelic language below that. Any article which you click will be opened in a new browser window.

<%= getXML("http://news.scotsman.com/gaelic.cfm?format=rss") %> <%= getXML("http://news.scotsman.com/topics.cfm?tid=64&format=rss") %>