% Sub getXML(sourceFile) dim styleFile dim source, style styleFile = Server.MapPath("/scripts/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 %>
|