Ler RSS

[paulojorge3l 0]

Olá pessoal estou lendo um arquivo RSS e transformando ele em Html com o código abaixo

 

<%
Response.Write "<ul>"

url = "http://g1.globo.com/Rss2/0,,AS0-7086,00.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 "<li><a href='"& link &"' target='_blank'>"& title &"</a></li>" & VbCrLf
	'Response.Write "aaaa" & VbCrLf
  Next
  Set nodeList = Nothing
End If

Set xml = Nothing

Response.Write "</ul>"
%>

ele está lendo as ultimas notícias sobre cinema do G1 oque preciso é colocar um limite pois ele está lendo todo o rss e tem muita informação preciso que ele leia somente as 10 ultimas notícias. outro ponto é que quero limitar o numero de caracter a ser mostrado por linha nas minhas notícias que trago do meu banco de dados coloco assim <%response.write(resumetexto(rsnews("chamada"),50," ..."))%> e ele só mostra 50 caracter e coloca ... se passar não sei como colocar isso na linha onde imprime o titulo da notícia.

 

Bom é isso ai ... espero pela ajuda de vocês valew pessoal

 

Boa semana a a todos

[hargon 64]

Cria um contador e depois faz um IF dentro do FOR comparando se é maior que 10, se for, sai do FOR.