o que ela executa???

Oi pessoal, eu nunca trabalhei com XML, e o barato tá dando erro justamente nele, queria saber detalhes da sintaxe que está com erro:

Linha de Erro: oCmd.Execute , , 1024

Erro:

Microsoft XML Extensions to SQL Server error '80040e21'

Streaming not supported over multiple column result

/panasonic/ctrl/PILHAS/_CATEGORIAS.asp, line 36

Código do arquivo: _Categorias.asp

<%Public Sub MenuCategorias()'* DECLARA VARIAVEIS LOCAISDim objXML Dim objXSLSet objXML = Server.CreateObject("MSXML2.DOMDocument")Set objXSL = Server.CreateObject("Microsoft.XMLDOM")'Turn off asyncronous file loading. objXSL.async = false'Load the XSL file.objXSL.load(server.MapPath("CATEGORIAS.xsl"))STP = "EXEC SPPN_EdicaoProdutos @ACAO = 'P'"Set RsProd = Server.CreateObject("ADODB.Recordset")RsProd.CursorLocation = 3Dim oCmd, sSQLsSQL = "<root><sql:query xmlns:sql='urn:schemas-microsoft-com:xml-sql'>" & _ "EXEC SPPN_EdicaoProdutos @ACAO = 'P'</sql:query></root>"response.write ssqlSet oCmd = Server.CreateObject("ADODB.Command")oCmd.ActiveConnection = Application("Conn")oCmd.CommandText = sSQLoCmd.Dialect = "{5D531CB2-E6Ed-11D2-B252-00C04F681B71}"Set outStrm = CreateObject("ADODB.Stream") ' Create the output streamoutStrm.OpenoCmd.Properties("Output Stream") = outStrm oCmd.Execute , , 1024objXML.loadXML(Trim(outStrm.ReadText))Response.Write(objXML.transformNode(objXSL))Set oCmd = NothingSet objXML = NothingSet objXSL = NothingEnd Sub%>