<% rssURL ="http://news.google.com.br/news?um=1&ned=pt-BR_br&hl=pt-BR&q=tecnologia&output=rss" 'rssURL = request.QueryString("xml") 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) If Not rssFile Then Response.write "ERRO..." Else Set objNodeList = objXML.getElementsByTagName("item") For Each objNode In objNodeList For Each objNode2 In objNode.childNodes Select Case objNode2.nodeName Case "title" strTitulo = objNode2.firstChild.nodevalue Case "link" strURL = objNode2.firstChild.nodevalue Case "description" strDescr = objNode2.firstChild.nodevalue End Select Next Response.write "

" &_ strTitulo & "
" & strDescr & "

" strTitulo = "" strURL = "" strDescr = "" Next set objNodeList = Nothing End if %>