<% rssURL = "http://rss.kataweb.it/news/nazionali/index.rss" 'Creo l'oggetto DOM XML Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0") 'Imposto le proprietà dell'oggetto objXML.async = false objXML.setProperty "ServerHTTPRequest", True objXML.validateOnParse =false objXML.preserveWhiteSpace = false 'Carico il file RSS dalla URL rssFile = objXML.Load(rssURL) 'Se ci sono errori stampo a video If Not rssFile Then Response.write "ERRORE..." 'Se NON ci sono errori proseguo... Else 'Recupero i dati dai nodi Item (e sotto nodi) Set objNodeList = objXML.getElementsByTagName("item") For Each objNode In objNodeList For Each objNode2 In objNode.childNodes Select Case objNode2.nodeName Case "title" strTitle = objNode2.firstChild.nodevalue Case "link" strURL = objNode2.firstChild.nodevalue Case "description" strDesc = objNode2.firstChild.nodevalue End Select Next 'stampo a video... Response.write " " &_ strTitle & " " & strDesc & " " 'azzero tutto per il prossimo passaggio strTitle = "" strURL = "" strDescription = "" Next set objNodeList = Nothing End if %>