TransformXML function.. Best?

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