Data fra XML på ASP side

Mon ikke du kan bruge dette: http://www.html.dk/scripts/asp/00020/

Den side har jeg kigget lidt på, men er stadig ikke helt sikker.
Jeg har lavet et script der spytter tingene ud der står på den her måde:

<?xml version="1.0"?>

<main>
<title>Our Page.xml file</title>
<heading>This is a test heading</heading>
<paragraph>This is our paragraph and you can write whatever
  you want to in this space.</paragraph>
  <testHTML><![CDATA[We will enclose some HTML code in CDATA section now :<br>
<table width="60%" border="1" bordercolor="silver" cellspacing="2"
      cellpadding="3">
    <tr>
    <td>
      You can write any HTML code or for that matter any type of text inside
      the CDATA section without a fear of getting any error.<br><br>
      Note if we write this without the CDATA tags, the xml parser will
      raise an error and won't show the document.
    </td>
    </tr>
  </table>]]></testHTML>
  </main>

Altså pakket ind i hver deres tag, men det gør de ikke i den her fil, og så er det jeg ikke helt ved hvordan jeg skal trække data ud.
Det er jo bare en linie der ser sådan ud:

<Entry Event="03" Type="Playing" Category="MUS" Id="0477" Title="HELLO" Artist="LIONEL RICHIE" Album="" Composer="" MusicId="" Duration="245000" StartTime="Fri Apr 04 10:48:56 2008" />

xmlDoc.selectNodes Bruger man det til at kalde den overordnede tag, i det her tilfælde <PlayList>, eller er jeg helt gal på den?

Det er korrekt.

Og attributterne fanger du med:

.attributes.getNamedItem("Value").

Jeg er bange for at jeg ikke helt forstår det her :(
Indtil videre har jeg klampet det her sammen, men det virker ikke, af sikkert indlysende årsager, som jeg bare ikke kan gennemskue endnu..

<%
' Adressen på filen der skal loades
extURL = "http://xxx.xxx.xxx.xxx/playlist.xml"

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

' Check at filen 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 <PlayList>
    set playlistNodes = xmlDoc.selectNodes("//PlayList/")

    for each entry in playlistNodes
        ' De obligatoriske elementer i playlist lægges i variable
        if xmlDoc.attributes.getNamedItem("Value") = "Title" then
            strTitle = entry.text
        end if
       
        response.write strTitle
    next

    ' Vi rydder op
    set playlistNodes = nothing

End If
%>

Hvordan virker det ikke?

I øvrigt kan du vist rette:
set playlistNodes = xmlDoc.selectNodes("//PlayList/")
til:
set playlistNodes = xmlDoc.documentElement

Det er jo lidt mere dynamisk.

Jeg får en fejl:

Microsoft VBScript runtime  error '800a01b6'
Object doesn't support this property or method
/xmltest.asp, line 21

og det er: for each entry in playlistNodes

Lukketid