leggere solo i primi 5 rss

[Stanislao]

uso questo script per leggere un rss (che potrebbe essere anche utile a qualcuno)

<% 
'Utilizzo oggetto DOM per caricare il file xml (feed rss)
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")

objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse =false
objXML.preserveWhiteSpace = false

' Carico news
caricoFile = objXML.Load("http://www.repubblica.it/rss/cronaca/rss2.0.xml")


' Controllo se e' stato caricato il file
If Not caricoFile Then
' In caso di errore avviso quale errore si e' verificato
Response.write "

[b]Errore[/b]
: " & objXML.parseError.errorCode & "
"
Response.Write "Linea: " & objXML.parseError.line & "/" 
Response.WRite "Colonna: " & objXML.parseError.linepos & "</p>"
Else
' In caso non vi sia nessun errore, proseguo e carico le info del file xml (feed rss)
Set Nodo = objXML.getElementsByTagName("item")

For Each objNodi In Nodo
' Sfoglio i nodi
For Each objNodo In objNodi.childNodes
Select Case objNodo.nodeName
Case "title"
titolo = objNodo.firstChild.nodevalue
Case "link"
link = objNodo.firstChild.nodevalue
Case "description"
descrizione = objNodo.firstChild.nodevalue
Case "dc:date"
data = objNodo.firstChild.nodevalue
data = Replace(data,"T"," alle ")
data = Replace(data,"+00:00","")
End Select
Next

Response.Write ("[b]<font face='Trebuchet MS' color='#0066CC' style='font-size: 14pt; ' >" & titolo & "</font>[/b]
")
Response.Write ("[url='"& link &"']<font face='Trebuchet MS' color='#000000' style='font-size: 10pt; ' > " & descrizione & "[/url]</font>
")

Next
set Nodo = Nothing
End if
%> 

volevo sapere,qualora fosse possibile come fare per leggere solo 5 news e non tutto l'rss

grazie infinite

[willybit]

<% 
'Utilizzo oggetto DOM per caricare il file xml (feed rss) 
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0") 

objXML.async = false 
objXML.setProperty "ServerHTTPRequest", True 
objXML.validateOnParse =false 
objXML.preserveWhiteSpace = false 

' Carico news 
caricoFile = objXML.Load("http://www.repubblica.it/rss/cronaca/rss2.0.xml") 
'numero massimo di news
NumeroMassimoNews=5
' Controllo se e' stato caricato il file 
If Not caricoFile Then 
	' In caso di errore avviso quale errore si e' verificato 
	Response.write "

Errore
: " & objXML.parseError.errorCode & "
" 
	Response.Write "Linea: " & objXML.parseError.line & "/" 
	Response.WRite "Colonna: " & objXML.parseError.linepos & "</p>" 
Else 
	' In caso non vi sia nessun errore, proseguo e carico le info del file xml (feed rss) 
	Set Nodo = objXML.getElementsByTagName("item") 
	cont=0
	For Each objNodi In Nodo 
		cont=cont+1
		if cont<=NumeroMassimoNews then
			' Sfoglio i nodi 
			For Each objNodo In objNodi.childNodes 
				Select Case objNodo.nodeName 
					Case "title" 
						titolo = objNodo.firstChild.nodevalue 
					Case "link" 
						link = objNodo.firstChild.nodevalue 
					Case "description" 
						descrizione = objNodo.firstChild.nodevalue 
					Case "dc:date" 
						data = objNodo.firstChild.nodevalue 
						data = Replace(data,"T"," alle ") 
						data = Replace(data,"+00:00","") 
				End Select 
			Next 
			Response.Write ("<font face='Trebuchet MS' color='#0066CC' style='font-size: 14pt; ' >" & titolo & "</font>
") 
			Response.Write ("<font face='Trebuchet MS' color='#000000' style='font-size: 10pt; ' > " & descrizione & "</font>
") 
		end if
	Next 
	set Nodo = Nothing 
End if 
%>

[Stanislao]

grazie!!