Dim oXML, oXSL
Set oXML = Server.CreateObject("MSXML2.DOMDocument.3.0")
oXML.setProperty "ServerHTTPRequest", true
oXML.resolveExternals=True
oXML.async = false
oXML.load(Server.MapPath("test.xml"))
'oXML.Save(Server.MapPath("sanelijolife.xml"))
'Load the XSL from disk
set oXSL = Server.CreateObject("Microsoft.XMLDOM")
oXSL.Async = False
oXSL.Load(Server.MapPath("format.xsl"))
Response.Write(oXML.transformNode(oXSL)) |