ASP udtræk fra XML fil

Hej.

Jeg er ved at lave et script der trækker ud fra en xml fil.
Det jeg har lavet fungere sådan set meget godt, og jeg tage udgangs punkt i den demo der er på html.dk.
Men når jeg kommer til at skal lave et udtræk af en sublinie, så ligger den det sammen i stedet for hverfor sig.
Hvor fikser den så alt hvad jeg har i betitems ikk kommer til at ligge sammen.
Her er min kode: (mit output kan ses her: (http://www.rnn.dk/rss_read.asp?vis=bb)

<%
' RSS-feedet loades
'set xmlDoc = createObject("Msxml.DOMDocument")

Set xmldoc = CreateObject("MsXml2.DomDocument.3.0")
xmldoc.async = false
xmldoc.setProperty "ServerHTTPRequest", true
xmldoc.load("http://www.betbutler.com/xmlgames.php")


' 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 elementerne <item>
    set itemNodes = xmlDoc.selectNodes("//game/*")

    For each item in itemNodes
        ' Elementerne i channel lægges i variable med #%# som adskillelse
        if item.tagName = "gametype" then
            strItemGametype = strItemGametype & item.text & "#%#"
        elseif item.tagName = "name" then
            strItemName = strItemName & item.text & "#%#"
        elseif item.tagName = "id" then
            strItemID = strItemID & item.text & "#%#"
        elseif item.tagName = "country" then
            strItemCountry = strItemCountry & item.text & "#%#"
        elseif item.tagName = "competition" then
            strItemCompetition = strItemCompetition & item.text & "#%#"
        elseif item.tagName = "starts" then
            strItemStarts = strItemStarts & item.text & "#%#"
        elseif item.tagName = "sport" then
            strItemSport = strItemSport & item.text & "#%#"
        elseif item.tagName = "betitems" then
            strItemBetitems = strItemBetitems & item.text & ";" & "#%#"
       
        end if
    next

    ' Elementerne i channel splittes i arrays
    arrItemName = split(strItemName,"#%#")
    arrItemID = split(strItemID,"#%#")
    arrItemCountry = split(strItemCountry,"#%#")
    arrItemCompetition = split(strItemCompetition,"#%#")
    arrItemGametype = split(strItemGametype,"#%#")
    arrItemSport = split(strItemSport,"#%#")
    arrItemBetitems = split(strItemBetitems,"#%#")
   
    ' Elementerne i game udskrives

        for a = 0 to UBound(arrItemID) - 1
   
        ODDS = Replace((arrItemBetitems(a))," ",";")
    %>   
       
            <font size="1" face="verdana">   
            <strong>ID: <%= arrItemID(a)%><br></strong>
            Name: <%= arrItemName(a)%><br>
            Country: <%= arrItemCountry(a)%><br>
            Sport: <%= arrItemSport(a)%><br>
            Competition: <%= arrItemCompetition(a)%><br>
            Gametype: <%= arrItemGametype(a)%><br>
            ODDS: <%= ODDS %><br>

            <br>
           
           
        <%
        next


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

End If

%>