Leitor de RSS para ASP

Confere ai a página de leitura de RSS em asp


Muito Bom para linkar seu site ao Twitter ou até para criar sua propria ferramenta e ganhar dinheiro na WEB

<%
Dim objLeitorRSS
Dim Mensagem
Dim Cont
Dim objRSSChannel
Set objLeitorRSS    = New LeitorRSS
Mensagem            = ""
If Not objLeitorRSS.ReadURL("http://rss.terra.com.br/0,,EI4795,00.xml") Then
    Mensagem = objLeitorRSS.MensagemErro
Else
    Set objRSSChannel = New Channel
    Set objRSSChannel = objLeitorRSS.RSSChannel
End If
%>










<%If Not Mensagem = "" Then%>         
<%Else%>

<%         For Cont = 1 To objRSSChannel.Item.Count%>

<%Next%>     <%     Set objRSSChannel = Nothing     End If     %>

<%=Mensagem%>

             
<%=objRSSChannel.Title%>                                   <%=objRSSChannel.PubDate%>             

         
         
             
             

             
<%=objRSSChannel.Description%>             

         
         
             
                 <%=objRSSChannel.Item.Item(Cont).Title%>                                   <%=objRSSChannel.Item.Item(Cont).PubDate%>                                   <%=objRSSChannel.Item.Item(Cont).Description%>                                   Source: <%=objRSSChannel.Item.Item(Cont).Source.Url%>                                               

         







<%
Set objLeitorRSS = Nothing
%>