Cargar XML con ASP

Gustavo1973 · #1 (**permalink**) 30/06/2008, 20:34

Hola, nesecito cargar un xml remoto en mi web con asp. los xml son los de algunos periodicos, como infobae.com o la gaceta.com.ar para usar su servicio de noticias pero no se como hacerlo. Use este codigo para conectar.

Código:

<%
Response.Write ("<html><head><title>Ejemplo fichero XML (RSS)</title>")
Response.Write ("</head><body>")
Dim objHTTP
Dim url
dim dato
'url = "//localhost/lacie/prueba/leerxml/index.xml"
url= "http://www.infobae.com/adjuntos/html/RSS/deportes.xml"
Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
Response.Write("<h1>Contenido del fichero XML</h1><br>")
Response.Write("url= " & url & "<br>")
dato = replace(dato, "&title;", "<")
Response.Write(objHTTP)
Response.Write ("</body>")
%>

Pero no se como recuperar la informacion del archivo.
Cualquier ayuda que me puedan brindar se los voy a agradeser.
Saludos

u_goldman · #2 (**permalink**) 30/06/2008, 22:01

¿Cuáles son los datos que quieres rescatar?
¿Cuál es la estructura del XML?

Saludos

Gustavo1973 · #3 (**permalink**) 01/07/2008, 13:43

El XML es este http://www.infobae.com/adjuntos/html/RSS/deportes.xml y quiero rescatar
title, description y link.
Lo que me gustaria aprender es como abrir el archivo y como se obtiene la informacion de una etiquete ( si es asi como se llama) :)
Gracias por tu ayuda.
Saludos
Gustavo

Motki · #4 (**permalink**) 03/07/2008, 03:50

Hola Gustavo1973.

Actualmente estoy trabajando con unos XML que obtengo de unas urls concretas....

con este código no deberias tener problemas :

Código PHP:

  ' Recuperamos el XML y mostramos los valroes 
Set objHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP") 
URL ="//localhost/lacie/prueba/leerxml/index.xml"
objHTTP.Open "GET",URL, False 
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
objHTTP.setRequestHeader "Content-Length", "11024"
objHTTP.Send ()
'repuperamos y manipulamos el objeto XML
Set objetoXML = Server.CreateObject("Microsoft.XMLDOM")
Set objLst = Server.CreateObject("Microsoft.XMLDOM")
objetoXML.loadXML objHTTP.responseText 'CORRECTO PARA OBTENER EL XML responseXML.xml
 If objetoXML.parseError.errorCode <> 0 Then
'  handle the error
 response.Write("Error de Lectura (Por favor, ponerse en contacto con el webmaster).<br />FilePos: " & objetoXML.parseError.filepos & "<br /> Línea: " & objetoXML.parseError.Line & "<br /> Causa: " & objetoXML.parseError.reason & "<br /> Ocurrió en: " & objetoXML.parseError.srcText & "<br /> Archivo: " & objetoXML.parseError.URL)
 response.end
 End If
 
Set objLst = objetoXML.getElementsByTagName("*")
For i = 0 to (objLst.length)-1
      StrDate = objLst.item(i).text
   response.write "-->"&StrDate
     Exit For
 Next