Passing parameters from ASP to XSL within a for-next b

I have a simple ASP function to transform a XML
document using parameters. It works pretty well, but
when I use it within a for-next block it works only
for the first iteration. It returns an empty string
for the others.

This is the function:

function transformXML(param1, param2, param3)
	dim xml, xsl
	dim proc, XSLTemplate

	'put the XML in an object
	Set xml =
Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
	xml.async = False
	xml.load xmlPath

	'load the XSL into an object
	Set xsl =
Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
	xsl.async = False
	xsl.load xslPath
	
	'add parameters to the xsl
	Set XSLTemplate =
Server.CreateObject("MSXML2.XSLTemplate")
	Set XSLTemplate.stylesheet = xsl

	Set proc = XSLTemplate.createProcessor

	'set the source of the data
	proc.input = xml
	
	proc.addParameter "param1", cstr(param1)
	proc.addParameter "param2", cstr(param2)
	proc.addParameter "param3", cstr(param3)
    
	proc.Transform
	transformXML = proc.output

	'clean up
	set xml = Nothing
	set xsl = Nothing
	set proc = Nothing
	set XSLTemplate = Nothing
end function

And how I'm calling it:

for i = lbound(myArray) to ubound(myArray)
	Response.write transformXML("x", "y", myArray(i)
next

Any ideas why it's not working?

Kind regards,
Nadia


__________________________________________________
Do you Yahoo!?
Yahoo! Shopping - Send Flowers for Valentine's Day
http://shopping.yahoo.com

 XSL-List info and archive:  http://www.mulberrytech.com/xsl/xsl-list