"Type mismatch: Ubound" i function

Nedenstående giver fejlen: Type mismatch: 'Ubound' og henviser til linien "For m = 1 to Ubound(arrPageID)"
Jeg kan ikke se, hvad der skal gøres anderledes. Kan I?


Sub WriteMenus   
   
    'henter data
    Set rsPages = MyConn.Execute("Select PageID,Title,ParentPageID from Pages")

    Do
        'laver strenge
        arrPageID = arrTitle & "#" & rsPages("PageID")
          arrTitle = arrTitle & "#" & rsPages("Title")
          arrParentID = arrParentID & "#" & rsPages("ParentPageID")
     
      rsPages.MoveNext
    Loop while not rsPages.eof
   
        'Laver arrays
        arrPageID = Split(arrPageID,"#")
        arrTitle = Split(arrTitle,"#")
        arrParentID = Split(arrParentID,"#")
   
            'skriver fil på serveren
            Set FSO = Server.CreateObject("Scripting.FileSystemObject")
                TheFile = Server.Mappath("../admin/write/Menu/LoggedOutMenu.txt")
                Set File = FSO.OpenTextFile(TheFile, 2)

                    'bruger den rekursive funktion WriteLines til at
                    'skrive sidetitler med ParentPageID = 0 og deres undersider
                    WriteLines(0)
                   
            Set fso = nothing

    rsPages.Close
    Set rsPages = Nothing

End Sub


Function WriteLines(intID)   
For m = 1 to Ubound(arrPageID)

  'Hvis underside til den side som funktionen er kaldt med
  If Cint(arrParentID(m)) = Cint(intID) Then

            File.WriteLine(""& arrTitle(m) &"")

    'ser om der er undersider
    WriteLines(arrPageID(m))
     
  End If       
Next
End Function

Call WriteMenus