% 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 %>
<% getXML("http://news.google.co.uk/news?num=100&hl=en&lr=&tab=wn&ie=UTF-8&q=cheap+canon+digital+camera&output=rss") %>