%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% ' Script ASP Para leitura de arquivos de RSS. url = "http://patriciakaufmann.wordpress.com/feed/" 'Aqui vai o endereço do arquivo RSS, ou do arquivo "gerador" ' Criando Objeto XML Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0") objXML.async = false objXML.setProperty "ServerHTTPRequest", True ' Não validar o arquivo objXML.validateOnParse = false ' Retirar espaços objXML.preserveWhiteSpace = false blnLoaded = objXML.Load(url) 'Condição caso não tenha notícias no RSS If Not blnLoaded Then Response.write "Nenhuma notícia na fonte!" Else set objNodeList = objXML.getElementsByTagName("channel") For Each objNode In objNodeList For Each objNode2 In objNode.childNodes Select Case objNode2.nodeName Case "title" 'Define Propriedades do Titulo html = html &"