This is the mail archive of the
xsl-list@mulberrytech.com
mailing list .
Re: TransformXML function.. Best?
Is this one of those too easy to answer questions. Sorry, I have been out of the loop for a while and now getting back into it.
*********** REPLY SEPARATOR ***********
On 1/23/01 at 10:43 AM Gavin Landon wrote:
>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
--
Gavin Landon
Karland International
http://www.karland.com/
XSL-List info and archive: http://www.mulberrytech.com/xsl/xsl-list