RSS Vis kun 5 post.

Hej.

Jeg har en RSS reader her:
<%
extURL = "http://www.dr.dk/nyheder/service/feeds/allenyheder"

set xmlDoc = createObject("Msxml.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load(extURL)
If (xmlDoc.parseError.errorCode <> 0) then
    Response.Write "XML error: " & xmlDoc.parseError.reason
Else
    set channelNodes = xmlDoc.selectNodes("//channel/*")
    set itemNodes = xmlDoc.selectNodes("//item/*")
    For each item in itemNodes
        if item.tagName = "title" then
            strItemTitle = strItemTitle & item.text & "#%#"
        elseif item.tagName = "link" then
            strItemLink = strItemLink & item.text & "#%#"
        elseif item.tagName = "description" then
            strItemDescription = strItemDescription & item.text & "#%#"
        end if
    next
    arrItemTitle = split(strItemTitle,"#%#")
    arrItemLink = split(strItemLink,"#%#")
    arrItemDescription = split(strItemDescription,"#%#")
        for a = 0 to UBound(arrItemTitle) - 1
        %>

<a href="<%=arrItemLink(a)%>"><b><%=arrItemTitle(a) %></b><br />
<%                if strItemDescription <> "" then
                    response.write "<br />" & arrItemDescription(a)
                end if
                %>
<br />
            <%
        next
    set channelNodes = nothing
    set itemNodes = nothing
End If
%>


Hvordan gør jeg at den kun udskriver de seneste 5 poste?