ler XML pegarValorNode de campos iguais

SQLite

03/07/2014

Bom dia galera,

Estou com uma dúvida ainda não encontrei a resposta, Seria o seguinte, gostaria de ler a mensagem só que no xml ela aparece 2 vezes como fazer nesse caso?

<autenticacao>
<codigo>6</codigo>
<mensagem>Transacao sem autenticacao</mensagem>
</autenticacao>

<autorizacao>
<codigo>6</codigo>
<mensagem>Transação autorizada</mensagem>
</autorizacao>

Esse meu retorno é o xml.
retorno = objSrvHTTP.responseXML.xml
atualmente eu coloco pegaValorNode(retorno, "mensagem")

só exibe a primeira
Eduardo Silva

Eduardo Silva

Curtidas 0

Respostas

Eduardo Silva

Eduardo Silva

03/07/2014

esqueci de colocar o pega valor node

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
GOSTEI 0
Valquiria Silva

Valquiria Silva

03/07/2014

você precisa pegar as duas mensagens ou apenas uma ou outra?
GOSTEI 0
Eduardo Silva

Eduardo Silva

03/07/2014

Olá Valquiria apenas uma ou outra!
GOSTEI 0
Rafael Ramon

Rafael Ramon

03/07/2014

$autorizacao = $xml->getElementsByTagName("autorizacao")->item(0);
$msg = autorizacao->getElementsByTagName("mensagem")->item(0)->nodeValue;
GOSTEI 0
POSTAR