Ler RSS

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

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