A la página la llamo prueba.asp, y solo tiene esto:
Con este código:
Código:
<%
Response.Write ("<html><head><title>Ejemplo fichero XML (RSS)</title>")
Response.Write ("</head><body>")
Dim objHTTP
Dim url
url= "http://www.forosdelweb.com/index.xml"
Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
objHTTP.Open "POST", url, false
objHTTP.send()
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>")
%>
Me da el típico error 500:
Hay un problema con la página solicitada y no puede ser mostrada..
Bla, bla, bla...
HTTP 500 - Error interno del servidor
Internet Explorer
Servidor Win 2003 IIS 6.0, y soporta XML 4.0 (
http://www.brinkster.com/hosting/professional.aspx)