Function transformXML(pDOM, pXSLT, pArrayOfParams)
    Dim i, m_xsl
    Set m_xsl = Server.CreateObject("MSXML2.DOMDocument")
    m_xsl.async = False
    m_xsl.loadServer.MapPath(pXSLT)
    For i = Lbound(pArrayOfParams) To UBound(pArrayOfParams)
        Dim paramName, paramValue, paramNode
        paramName = pArrayOfParams(i)(0)
        paramValue = pArrayOfParams(i)(1)
        Set paramNode = m_xsl.selectSingleNode("//xsl:param[@name='" & 
paramName & "']")
        If Not paramNode Is Nothing Then _
            paramNode.text = paramValue
    Next
    transformXML = pDOM.transformNode(m_xsl)

End Function