Trabalhando com XML no ASP 3.0

Nesse exemplo vou mostrar de maneira bem fácil como trabalhar com variáveis no formato XML no ASP.
Quando digo variáveis no formato XML, por exemplo ao aguardar um retorno de um web service e atribuído a uma variável e tendo a necessidade de trabalhar com seus nós de maneira bem fácil, o que por sinal da uma certa dor de cabeça no ASP 3.0

Segue exemplo:

<%
 ' Cria um XML dentro de umavarável do ASP
 Dim ws : ws = "<?xml version='1.0' encoding='ISO-8859-1'?>" &amp;_
 "<PrimeiroNo>" &amp;_
 "<valor>World of Bit!</valor>" &amp;_
 "</PrimeiroNo>"
 
 Response.Write(Server.HTMLEncode(ws))
 Response.Write("<br>")
 
 ' Cria e Instancia o objeto XML utilizando o XMLDOM 
 Dim objXML : Set objXML = Server.CreateObject("Microsoft.XMLDOM")
 
 ' Atribuindo a variável ao XML
 objXML.LoadXml(ws)
 
 ' Adicionado para que o carregamento do documento XML 
 ' ocorra antes do carregamento do HTML
 objXML.async = False
 
 ' Atribui os nós a uma varável
 Dim xml        :    Set xml = objXML.childNodes
 
 ' Pega a primeiro elemento do XML e retorna a uma variável
 Dim valor : valor = xml(1).childNodes(0).childNodes(0).text
 
 Response.Write(valor)
 Response.End()
%>

Espero ter ajudado.

Até mais.

---