<% ' MODIFICARE QUESTO PERCORSO INSERENDO L'URL DEL FEED RSS rssURL = "http://www.staffantincendi.com/news/rss.asp" ' NON MODIFICARE IL RESTO DELLO SCRIPT '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 %> <%=strTitle%>  -   <% 'azzero tutto per il prossimo passaggio strTitle = "" strURL = "" strDesc = "" Next %>

<% set objNodeList = Nothing End if %>