Pegando informações de outra página

[xanburzum 169]

<%

Response.Buffer = True

Dim xml

 

'-- Cria o Objeto de leitura

Set xml = Server.CreateObject("Microsoft.XMLHTTP")

 

'-- Use o valor abaixo nas versões 3.0 do XMLHTTP:

'-- Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

 

' Abre a URL indicada no metodo GET

xml.Open "GET", "http://grupoalphabrasil.com.br/tempo/txt/Brasilia-DF.txt", False

 

'-- faz o Envio das Informações Requisitadas para o Servidor

xml.Send

 

'-- Pega o Conteudo do TXT e coloca na Variável

ConteudoTXT = xml.responseText

 

'-- Imprime na Tela

Response.Write ConteudoTXT

 

'-- Limpa o 'cache' da Operação

Set xml = Nothing

%>

[luisym 0]

como fazer quando este retorno vem em xml? como faço para pegar os dados isolados para trata-los?

[hargon 64]

Seria dessa forma:

 

<%
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.setProperty "ServerHTTPRequest", True
objXML.async = False

objXML.Load("http://localhost/xml/arquivo.xml")
If (objXML.parseError.errorCode <> 0) Then
	Response.Write "Houve um erro ao acessar o arquivo"
Else	
	Set tblCategoria = objXML.getElementsByTagName("tblCategoria")
	For i=0 To (tblCategoria.length - 1)
		Set prdCategoria = objXML.getElementsByTagName("prdCategoria")
		
		For registro=0 To prdCategoria.length - 1
			cdcategoria = prdCategoria.item(registro).childNodes.item(0).Text
			nmcategoria = prdCategoria.item(registro).childNodes.item(1).Text
			
			Response.Write cdcategoria & "." & nmcategoria & "<br />"
		Next
			
		Set prdCategoria = Nothing
	Next
	Set tblCategoria = Nothing
End If
Set objXML = Nothing
%>

O código acima está adaptado para a seguinte estrutura:

<?xml version="1.0" encoding="utf-8"?>
<dados>
  <tblCategoria>
    <prdCategoria>
      <cdcategoria>1</cdcategoria>
      <nmcategoria>Carro</nmcategoria>
    </prdCategoria>
    <prdCategoria>
      <cdcategoria>2</cdcategoria>
      <nmcategoria>Moto</nmcategoria>
    </prdCategoria>
  </tblCategoria>
</dados>