Dim oXML, oXSL
Reeks oXML = Server.CreateObject („MSXML2.DOMDocument.3.0“)
oXML.setProperty „ServerHTTPRequest“, waar
oXML.resolveExternals=True
oXML.async = vals
oXML.load (Server.MapPath („test.xml“))
'oXML.Save (Server.MapPath („sanelijolife.xml“))
'Lading XSL van schijf
reeks oXSL = Server.CreateObject („Microsoft.XMLDOM“)
oXSL.Async = Vals
oXSL.Load (Server.MapPath („format.xsl“))
Response.Write (oXML.transformNode (oXSL)) |