XML 'den belli sayıda veri çekme ?

Slm arkadaşlar, ASP ile XML 'den (aşağıya yazdığım kod ile) veri çekebiliyorum. Fakat ben 10 tanesini çekmek istiyorum? İnternette aramama rağmen bulamadım malesef yardım edebilirmisini?

Kullandığım kod:
<% ' RSS Reader

Dim objXML, objRoot, objItems
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load(" ..xml adresi burda.. ")
If (objXML.parseError.errorCode = 0) Then
Set objRoot = objXML.documentElement
If IsObject(objRoot) = False Then
response.write "<li>Connection Error!"
End If
Set objItems = objRoot.getElementsByTagName("item")
If IsObject(objItems) = True Then
For Each objItem in objItems


link = objItem.selectSingleNode("link").Text
description = objItem.selectSingleNode("description").Text
%>

<%=link%>

<%
Next
else
response.write "<li>Connection Error!"
End If
Set objItems = Nothing
Set objRoot = Nothing
End If
Set objXML = Nothing
%>

şimdiden teşekkürler ...

İşini görür;

<% ' RSS Reader

Dim objXML, objRoot, objItems
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load(" adres ")
If (objXML.parseError.errorCode = 0) Then
Set objRoot = objXML.documentElement
If IsObject(objRoot) = False Then
response.write "<li>Connection Error!"
End If
Set objItems = objRoot.getElementsByTagName("item")
If IsObject(objItems) = True Then
i=0
For Each objItem in objItems
i = i +1
link = objItem.selectSingleNode("link").Text
description = objItem.selectSingleNode("description").Text
%>

<%=link%><br />

<%
if i = 10 then response.end
Next
else
response.write "<li>Connection Error!"
End If
Set objItems = Nothing
Set objRoot = Nothing
End If
Set objXML = Nothing
%>

sağolasın @Peksoft

Peki Bunun dışında İlk ve Son Eklenene göre listeleme yapabilir miyiz?