Subject: RE: [xsl] Transform in-memory XML domDocument From: John Aschenbrenner <jaschenbrenner@xxxxxxxxxxxxxxx> Date: Mon, 11 Nov 2002 10:00:35 -0800 |
Damian, here is what I did recently. Dim oXMLData Dim oXSL Set oXMLData = Server.CreateObject("Msxml2.DOMDocument.4.0") Set oXSL = Server.CreateObject("Msxml2.DOMDocument.4.0") oXMLData.LoadXML sResults oXSL.Load Server.MapPath("CheckList.xsl") sReportData = oXMLData.transformNode(oXSL) Response.Write sReportData You now have the sReport variable with the in memory transformed document. Hope this helps. -ja -----Original Message----- From: Damian Clark [mailto:damianclark@xxxxxxxxxxxxxx] Sent: Saturday, November 09, 2002 11:03 PM To: xsl-list-digest@xxxxxxxxxxxxxxxxxxxxxx Subject: [xsl] Transform in-memory XML domDocument Where am I going wrong? Using an ASP page and MSXML, I want to build an XML file listing document in memory, and then simply transform it -(using a stylesheet that merges all the filenames provided). The file listing will work when output directly to the browser with the command 'xmlDoc.save response', but I can't seem to style it before output. Surely there is a simple answer to a basic problem but I can't find an example anywhere. My lack of VBscript skills will no doubt account for the error. Error message: 'Error Type: Microsoft VBScript runtime (0x800A01F4) Variable is undefined: 'xmlResponseDoc' /CustomsXML/Serverside Revision II/test.asp, line 52' The abbrev. ASP code FYI - <% Response.ContentType = "text/xml" strRootPath = "xml/" 'Create xml document Dim xmlDoc Set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.4.0") xmlDoc.async = false Dim xmlPI, xmlElement, xmlAtt 'Set encoding of XML document Set xmlPI = xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version='1.0' encoding='utf-8'")) Set xmlDoc.documentElement = xmlDoc.createElement("xsl:output") Set xmlAtt = xmlDoc.documentElement.Attributes.setNamedItem(xmlDoc.createAttribute("m ethod")) xmlAtt.Value = ("'xml'") 'Create root element and set base attribute Set xmlDoc.documentElement = xmlDoc.createElement("folder") Set xmlAtt = xmlDoc.documentElement.Attributes.setNamedItem(xmlDoc.createAttribute("l ocation")) xmlAtt.Value = strRootPath & strPath 'Reading subfolder and files Dim objFileSystemObject, objDirectory, objSubDirectory, objFile Set objFileSystemObject = Server.CreateObject("Scripting.FileSystemObject") Set objDirectory = objFileSystemObject.GetFolder(Server.MapPath(strRootPath & strPath)) For Each objFile In objDirectory.Files 'Create tree node Set xmlElement = xmlDoc.documentElement.appendChild(xmlDoc.createElement("file")) 'Make attribute "name" equal to file name Set xmlAtt = xmlElement.Attributes.setNamedItem(xmlDoc.createAttribute("name")) xmlAtt.value = strRootPath & strPath & objFile.Name Set xmlAtt = xmlElement.Attributes.setNamedItem(xmlDoc.createAttribute("date")) xmlAtt.value = objFile.DatelastModified Next '---> no longer write directly to response stream '//xmlDoc.save response ' --->create XSL object Dim xslDoc set xslDoc = Server.CreateObject("MSXML2.DomDocument.4.0") xslDoc.async = false xslDoc.load server.MapPath("customsnews_mergeDocs.xsl") ---> transform created Xml Document with Xsl doc. xmlDoc.transformNodeToObject xslDoc, response --->'line 52, Error message here. %> Damian Clark XSL-List info and archive: http://www.mulberrytech.com/xsl/xsl-list XSL-List info and archive: http://www.mulberrytech.com/xsl/xsl-list
Current Thread |
---|
|
<- Previous | Index | Next -> |
---|---|---|
[xsl] Transform in-memory XML domDo, Damian Clark | Thread | [xsl] key(), generate-id question, Endre Magyari |
RE: [xsl] transform only a section , Michael Kay | Date | RE: [xsl] key(), generate-id questi, Américo Albuquerque |
Month |