Læser indhold af en .xml fil - ikke alle "poster" kommer med ud

Jeg har et problem med at få alle poster med ud,
Med nedenstående kode og XML fil får jeg følgende ud - men der mangler en "post" - under hver empnr (Number i XML fil) kan der være en eller flere datoer - men jeg får kun den første med ud,
nogen som kan hjælpe med hvordan jeg kan få alle med ud?

*** Her er hvad jeg får ud
empnr 11562
kode EMS
startdato 2008-01-17
slutdato2008-01-17

empnr 11565
kode EMS
startdato 2008-01-24
slutdato2008-01-24

empnr 11567
kode EMS
startdato 2008-01-31
slutdato2008-01-31

*** Men jeg burde jo få dette ud

empnr 11562
kode EMS
startdato 2008-01-17
slutdato2008-01-17

empnr 11565
kode EMS
startdato 2008-01-24
slutdato2008-01-24

empnr 11565
kode EMS
startdato 2008-01-31
slutdato2008-01-31

empnr 11567
kode EMS
startdato 2008-01-31
slutdato2008-01-31


Min kode ser sådan ud
**** Kode start ****
    'Lav en instance af MS XML object:
    DIM objXMLDOM : Set objXMLDOM = CreateObject("microsoft.xmldom")
   
    DIM loadBool
    DIM objNodeList
    DIM objRootNode
   
    objXMLDOM.async = False   
   
    'Åben filen
      loadBool = objXMLDOM.load(Server.MapPath("\importxml.xml"))

IF loadBool=false Then
  response.write "Der findes ikke en import fil med det rigtige filnavn « importxml.xml » !"
ELSE     

Set Number      = objXMLDOM.getElementsByTagName("Number")
Set GndActCode = objXMLDOM.getElementsByTagName("GndActCode")
Set StartTime  = objXMLDOM.getElementsByTagName("StartTime")
Set EndTime    = objXMLDOM.getElementsByTagName("EndTime")

  'Now Iterate through the List and Display

  For i = 0 to (Number.Length-1)
    empnr         = Number.item(i).childNodes(0).text
    kode         = GndActCode.item(i).childNodes(0).text
    startdato     = left(StartTime.item(i).childNodes(0).text,10)
    slutdato    = left(EndTime.item(i).childNodes(0).text,10)

      response.write "<br>empnr  " & empnr
      response.write "<br>kode " & kode
      response.write "<br>startdato " & startdato
      response.write "<br>slutdato" & slutdato
  Next

END IF       

**** Kode slut  ****

Min XML fil ser sådan ud
**** XML start ****

    <GetOnActResponse>
      <GetOnActResponse>
        <OnAct>
          <OnAct>
            <Number>11562</Number>
            <Type>C</Type>
            <Forkort>OSL</Forkort>
            <ActDays>
              <ActDays>
                <GndActCode>EMS</GndActCode>
                <StartTime>2008-01-17T08:30:00</StartTime>
                <EndTime>2008-01-17T16:30:00</EndTime>
              </ActDays>
            </ActDays>
          </OnAct>
          <OnAct>
            <Number>11565</Number>
            <Type>C</Type>
            <Forkort>OSL</Forkort>
            <ActDays>
              <ActDays>
                <GndActCode>EMS</GndActCode>
                <StartTime>2008-01-24T08:30:00</StartTime>
                <EndTime>2008-01-24T16:30:00</EndTime>
              </ActDays>
              <ActDays>
                <GndActCode>EMS</GndActCode>
                <StartTime>2008-01-31T08:30:00</StartTime>
                <EndTime>2008-01-31T16:30:00</EndTime>
              </ActDays>
            </ActDays>
          </OnAct>
          <OnAct>
            <Number>11567</Number>
            <Type>C</Type>
            <Forkort>OSL</Forkort>
            <ActDays>
              <ActDays>
                <GndActCode>EMS</GndActCode>
                <StartTime>2008-01-10T08:30:00</StartTime>
                <EndTime>2008-01-10T16:30:00</EndTime>
              </ActDays>
            </ActDays>
          </OnAct>
      </OnAct>
        <Result>
          <Description>OK</Description>
          <Status>0</Status>
        </Result>
      </GetOnActResponse>
    </GetOnActResponse>

**** XML slut ****