Se requiere un objeto: '[object]'
/lacie/prueba/leerxml/funciona.asp, línea 16 (la linea donde está
)¿alguien me podría decir qué está fallando? para trasladar el archivo a mi servidor, voy a 3w.forosdelweb.com/index.xml, pulso sobre ver código fuente, y lo guardo en la carpeta de mi servidor, que referencio en el código correctamente. ¡Gracias!
nota: he suprimido el http y las www, ya que no se me permite incluir enlaces a páginas
CODIGO:
Código HTML:
<%
Response.Write ("<html><head><title>Ejemplo fichero XML (RSS)</title>")
Response.Write ("</head><body>")
Dim objHTTP
Dim url
'url = "//localhost/lacie/prueba/leerxml/index.xml"
url= "//3w.forosdelweb.com/index.xml"
Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.Open "POST", url, false
objHTTP.send()
Response.Write("<h1>Contenido del fichero XML</h1><br>")
Response.Write("url= " & url & "<br>")
:borracho: Response.Write ("<h2>" & objHTTP.responseXml.SelectSingleNode("rss/channel/title").Text & "</h2>")
Response.Write ("<h3>" & objHTTP.responseXml.SelectSingleNode("rss/channel/description").Text & "</h3>")
For Each objItem in objHTTP.responseXML.SelectNodes("rss/channel/item")
Response.Write ("<p>")
Response.Write ("<h5>" & objItem.SelectSingleNode("title").text & "</h5>")
Response.Write (objItem.SelectSingleNode("description").text & "<br />")
Response.Write ("<a href=""" & objItem.SelectSingleNode("link").Text & """>más...</a>")
Response.Write ("</p>")
Next
Set objHTTP = Nothing
Response.Write ("</body></html>")
%>
resuelto 
