Udskriv RSS på min hjemmeside

Hej.
Jeg vil gerne have skrevet nogle RSS nyheder ud på min
hjemmeside som han gør på følgende side: www.newsbot.dk

Altså en overskrift, en beskrivelse og et link eller lign.

Jeg har fået den til at skrive det hele ud med en kode
jeg har fundet på www.html.dk under RSS.

Men den skriver hele artiklen ud og ikke kun overskriften
af filen. Det skulle gerne være sådan man kan se de 10
sidste nyheder og trykke på dem for at se det.
Nogen der kan hjælpe mig, eller måske kan finde ud af at
rette kode her til:

<%
' Adressen på det RSS-feed der skal loades
extURL = "http://www.html.dk/rss/dk.edb.internet.webdesign.xml"

' RSS-feedet loades
set xmlDoc = createObject("Msxml.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load(extURL)

' Check at RSS-feedet er loadet korrekt
If (xmlDoc.parseError.errorCode <> 0) then
    ' Udskriv eventuelle fejl (for nem fejlretning)
    Response.Write "XML error: " & xmlDoc.parseError.reason
' Fortsæt hvis alt er ok
Else

    ' Åbn elementet <channel>
    set channelNodes = xmlDoc.selectNodes("//channel/*")

    for each entry in channelNodes
        ' De tre obligatoriske elementer i channel lægges i variable
        if entry.tagName = "title" then
            strChannelTitle = entry.text
        elseif entry.tagName = "description" then
            strChannelDescription = entry.text
        elseif entry.tagName = "link" then
            strChannelLink = entry.text
        end if
    next

    ' De tre obligatoriske elementer i channel udskrives
    response.write "<h1>" & strChannelTitle & "</h1>"
    response.write "<p>" & strChannelDescription & "</p>"
    response.write "<p><a href='" & strChannelLink & "'>Besøg " & strChannelTitle & "</a></p>"
    response.write "<hr />"

    ' Åbn elementerne <item>
    set itemNodes = xmlDoc.selectNodes("//item/*")

    For each item in itemNodes
        ' Elementerne i channel lægges i variable med #%# som adskillelse
        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

    ' Elementerne i channel splittes i arrays
    arrItemTitle = split(strItemTitle,"#%#")
    arrItemLink = split(strItemLink,"#%#")
    arrItemDescription = split(strItemDescription,"#%#")

    ' Elementerne i channel udskrives
    response.write "<ul>"
        for a = 0 to UBound(arrItemTitle) - 1
            response.write "<li>"
            response.write "<a href='" & arrItemLink(a) & "'>" & arrItemTitle(a) & "</a>"
                ' Description udskrives hvis den eksisterer
                if strItemDescription <> "" then
                    response.write "<br />" & arrItemDescription(a)
                end if
            response.write "</li>"
        next
    response.write "</ul>"

    ' Vi rydder op
    set channelNodes = nothing
    set itemNodes = nothing

End If

%>