<% url="feedrss.asp.html" Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0") objXML.async = false objXML.setProperty "ServerHTTPRequest", True objXML.validateOnParse =false' true objXML.preserveWhiteSpace = false blnLoaded = objXML.Load(url) If Not blnLoaded Then Response.write "Nessuna news da visualizzare" Else set objNodeList = objXML.getElementsByTagName("channel") For Each objNode In objNodeList For Each objNode2 In objNode.childNodes Select Case objNode2.nodeName Case "title" html = html + "" html = html + objNode2.firstChild.nodevalue html = html + "
" Case "link" html = html + "" html = html + objNode2.firstChild.nodevalue html = html + "
" Case "description" html = html + "" html = html + objNode2.firstChild.nodevalue html = html + "" End Select Next html = html + "
" Next html = html + "
" 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" strDescription = objNode2.firstChild.nodevalue End Select Next html = html + "
" + strTitle + "
" + strDescription +"
" strTitle = "" strURL = "" strDescription = "" Next set objNodeList = Nothing End if %> <%=html%>