This is the mail archive of the
xsl-list@mulberrytech.com
mailing list .
TransformXML function.. Best?
- To: xsl-list at lists dot mulberrytech dot com
- Subject: [xsl] TransformXML function.. Best?
- From: "Gavin Landon" <gavin at karland dot com>
- Date: Tue, 23 Jan 2001 10:43:29 -0600
- References: <8BD71A154EA6D211873E00105A125CDF5863EA@TSSMX1>
- Reply-To: xsl-list at lists dot mulberrytech dot com
Is this the best way to translate XML to HTML from ASP?
Response.Write TransformXML(sXMLFile, sXSLFile)
function TransformXML(strXMLDoc, strXSLDoc)
'on error resume next
dim objXMLDoc
dim objXSLDoc
dim strResults
PROG_ID = "MSXML2.DOMDocument"
if err.number = 0 then
' Parse the XML Document
set objXMLDoc = server.CreateObject(PROG_ID)
objXMLDoc.async = false
objXMLDoc.load(strXMLDoc)
if objXMLDoc.parseError.errorCode = 0 then
'Parse the XSL stylesheet
set objXSLDoc = server.CreateObject(PROG_ID)
objXSLDoc.async = false
objXSLDoc.load(strXSLDoc)
if objXSLDoc.parseError.errorCode = 0 then
'If no errors, transform the XML
'into HTML using the XSL stylesheet
strResults = objXMLDoc.transformNode(objXSLDoc)
else
strResults = "The following error " & _
"occurred while processing the XSL " & _
"stylesheet: <br>" & _
objXSLDoc.parseError.errorCode & ", " & _
objXSLDoc.parseError.reason
end if
else
strResults = "The following error " & _
"occurred while processing the XML " & _
"document: <br>" & objXMLDoc.parseError.errorCode & _
", " & objXMLDoc.parseError.reason
end if
else
strResults = "The following error occurred: <br>" & _
err.number & ", " & err.description
end if
TransformXML=strResults
' Clean up
set objXSLDoc = nothing
set objXMLDoc = nothing
end function
--
Gavin Landon
Karland International
http://www.karland.com/
XSL-List info and archive: http://www.mulberrytech.com/xsl/xsl-list