CIDADE NOTÍCIAS

<% Response.Write "" url = "http://rss.noticias.uol.com.br/economia/ultnot/index.xml" Set xml = Server.CreateObject("MSXML2.DOMDocument.3.0") xml.async = False xml.SetProperty "ServerHTTPRequest", True xml.ValidateOnParse = False xml.PreserveWhiteSpace = False If Not xml.Load(url) Then Response.Write "Nenhuma nticia disponivel no momento." Else Set nodeList = xml.getElementsByTagName("item") For Each objNode In nodeList For Each objNode2 In objNode.childNodes Select Case objNode2.nodeName Case "title" : title = objNode2.firstChild.nodevalue Case "link" : link = objNode2.firstChild.nodevalue End Select Next Response.Write ""& title &"" & VbCrLf Response.Write "


" & VbCrLf Next Set nodeList = Nothing End If Set xml = Nothing Response.Write "" %>

TuneIn