<% 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 %> CNET News

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

<% getXML("http://news.com.com/2547-1_3-0-20.xml") %>