[XSL-LIST Mailing List Archive Home] [By Thread] [By Date]

[xsl] TransformXML function.. Best?


Subject: [xsl] TransformXML function.. Best?
From: "Gavin Landon" <gavin@xxxxxxxxxxx>
Date: Tue, 23 Jan 2001 10:43:29 -0600

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



Current Thread
Keywords