<% Sub getXML(sourceFile) dim styleFile dim source, style styleFile = Server.MapPath("news.xsl") set source = Server.CreateObject("Msxml2.DomDocument") source.async = false source.setProperty "ServerHTTPRequest", true source.load CStr(sourceFile) set style = Server.CreateObject("Msxml2.DomDocument") style.async = false style.load styleFile source.transformNodeToObject style, Response set source = nothing set style = nothing End Sub %> BBC Top News

HOME You may need to allow pop-ups, as some toolbars will misread "Open in New Window" as a pop-up.

<% getXML("http://newsrss.bbc.co.uk/rss/newsonline_world_edition/front_page/rss.xml") %>