RSS reader - begræns poster

For i = 0 To 5
' Udskriv titel, link og et link for hver <item>
Response.Write "<li>"
Response.Write "<a href='" & Item.ChildNodes.Item(1).text & "'>"
Response.Write Item.ChildNodes.Item(0).text
Response.Write "</a><br />"
Response.Write Item.ChildNodes.Item(2).text
Response.Write "</li>"
Next

//>Rune

Sådan her ikke?
-----------------------------------------------------------------------
For i = 0 To 5
' Udskriv titel, link og et link for hver <item>
Response.Write "..::"
Response.Write "<a href='" & Item.ChildNodes.Item(1).text & "'>"
Response.Write Item.ChildNodes.Item(0).text
Response.Write "</a><br /><br />"
Next
-----------------------------------------------------------------------

Jeg får nemlig en fejl nu:
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/news/Default.asp,


line 153 =  Response.Write "<a href='" & Item.ChildNodes.Item(1).text & "'>"

Ahh ok... Sådan her:

intCount = 0
For each Item in oNode
If intCount <= 5 Then
' Udskriv titel, link og et link for hver <item>
Response.Write "<li>"
Response.Write "<a href='" & Item.ChildNodes.Item(1).text & "'>"
Response.Write Item.ChildNodes.Item(0).text
Response.Write "</a><br />"
Response.Write Item.ChildNodes.Item(2).text
Response.Write "</li>"
End If
intCount = intCount + 1
Next