Dim oXML, oXSL
oXML = Server.CreateObject („MSXML2.DOMDocument.3.0“) einstellen
oXML.setProperty „ServerHTTPRequest“, zutreffend
oXML.resolveExternals=True
oXML.async = falsch
oXML.load (Server.MapPath („test.xml“))
'oXML.Save (Server.MapPath („sanelijolife.xml“))
'Das XSL von der Scheibe laden
oXSL = Server.CreateObject („Microsoft.XMLDOM“) einstellen
oXSL.Async = falsch
oXSL.Load (Server.MapPath („format.xsl“))
Response.Write (oXML.transformNode (oXSL)) |