[Resolvido] Resgatar valor de nó em XML

[xanburzum 169]

     ' ################################################################################################
       ' pegaValorNode
       ' Retorno o valor específico de um Node de um XML
       Function pegaValorNode(xml, node)
               Dim objXml
               Set objXml = Server.CreateObject("MSXML2.DOMDocument")

               objXml.loadXML(xml)

               If (TypeName(objXml) = "DOMDocument") Then
                       If (objXml.GetElementsByTagName(node).length <> 0) Then
                               pegaValorNode = objXml.selectSingleNode("//" & node).text
                       Else
                               pegaValorNode = ""
                       End If
               Else
                       pegaValorNode = ""
               End If

               Set objXml = Nothing
       End Function

 

 

 

Utilizando a função:

 

'objSrvHTTP.responseText: retorno utilizando MSXML2.XMLHTTP.3.0
   xml = objSrvHTTP.responseText
'erro//codigo: nó a ser recuperado
   retorno_codigo_erro = pegaValorNode(xml,"erro//codigo")

 

 

Fonte: Código de exemplo da Locaweb