Leggere feed rss ma solo 1 nodo

[marcopaolo79]

Salve a tutti io uso questo script asp per leggere un feed rss:

<% 'feed rss 

Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")

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

blnLoaded = objXML.Load("http://www.sitodelfeed.it")

' guardo se ci sono errori
If Not blnLoaded Then
   Response.write "

Errore
: " & objXML.parseError.errorCode & "
"
   Response.Write "Linea: " & objXML.parseError.line & "/" 
   Response.WRite "Colonna: " & objXML.parseError.linepos & "</p>"
Else
   ' se nn ci sono errori proseguo e carico le info del 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","")
            Case "pubDate"
               on error resume next
               data = FormatDateTime(CDate(objNodo.firstChild.nodevalue),vbLongDate)
               on error goto 0
         End Select
      Next

      ' VISUALIZZO il FEED
      Response.write ("

<div id=""divlink""><a href=""" & link & """ title=""Leggi: " & titolo & """ target=""_blank"">")
      Response.Write ("" & titolo & "</a>
" & descrizione & "</div></p>")

   Next

   set Nodo = Nothing
End if
%>

questo script funziona perfettamente solo che mi fa leggere tutti i feed rss presenti sul sito.
Ora mettiamo che io in una pagina abbia necessità di leggere e visualizzare uno solo di nodi come posso modificare lo script?

[marcopaolo79]

Nessuno mi sa aiutare ?!

Ho la necessità o di leggere il nodo più recente e basta (ovvero il primo letto) oppure se ci fosse il modo di fare una estrazione random tra i nodi e visualizzarne solo uno solo.......

grazie a tutti

[Luca Rotella]

Ciao
direi che ti basta commentare due righe di codice, dove fai il ciclo:

For Each objNodo In objNodi.childNodes
....
Next

Se metti degli apici davanti a queste due righe il ciclo "non scorre" e ti verrà restituito sempre e solo il primo nodo.

[marcopaolo79]

Sarebbe stato facile così come dici tu ma infatti ma purtroppo restituisce questo errore:

Errore di run-time di Microsoft VBScript error '800a01a8'

Necessario oggetto: 'objNodo'