<% rssURL = "http://tuttogiappone.myblog.it/index.rss" Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0") objXML.async = false objXML.setProperty "ServerHTTPRequest", True objXML.validateOnParse =false objXML.preserveWhiteSpace = false 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 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...(questa parte puņ essere modificata per personalizzare il codice assegnando ad esempio uno stile o inserendo elenchi puntati). Response.write "- " &_ strTitle & "
" 'azzero tutto per il prossimo passaggio strTitle = "" strURL = "" strDescription = "" Next set objNodeList = Nothing End if %>