<% ' Lectura de un fichero externo XML y visualización Option Explicit Dim objXML ' As MSXML2.ServerXMLHTTP Dim strURLRSSFeed ' As String Dim objItem ' As Object strURLRSSFeed = "http://www.comicvia.net/asp/news/rss.asp" Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP") Call objXML.Open ("GET", strURLRSSFeed, false) Call objXML.send() Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") For Each objItem in objXML.responseXML.SelectNodes("rss/channel/item") Response.Write ("") Response.Write ("") Response.Write ("") Next Response.Write ("

" & objXML.responseXml.SelectSingleNode("rss/channel/title").Text & "
" & objXML.responseXml.SelectSingleNode("rss/channel/description").Text & "
" & objItem.SelectSingleNode("title").Text & "	" & objItem.SelectSingleNode("pubDate").Text & "
" & objItem.SelectSingleNode("description").Text & "
más información ...

") Response.Write ("") %>