Placering af dim ved rekursiv function

Nedenstående rekursive funktion kalder en sub-routine. Fejlen i browseren er "Invalid procedure call or argument: 'Mid'"
Min fejltestning har i det mindste afsløret, at det har noget at gøre med dim'erne. Men uanset hvor jeg placerer dem, vil det ikke lykkes :-(

Dim Open, OpenEnd, OpenID, arrPageID, arrParentID, arrTitle, arrPublic

Open = "23-1-"

Sub FirstOpen
    Open = replace(Open,"#-","")
    OpenEnd = Instr(Open,"-")
    OpenID = Mid(Open,1,OpenEnd-1)
End Sub

'arrays med data
arrPageID = Split(arrPageID,"#")
arrParentID = Split(arrParentID,"#")
arrTitle = Split(arrTitle,"#")
arrPublic = Split(arrPublic,"#")

'Funktion som undersøger for undersider
Function Sider(intID)
   
  For m = 1 to Ubound(arrPageID)
 
  ' Hvis underside til den side som funktionen er kaldt med
  If Cint(arrParentID(m)) = Cint(intID) Then
   
        if Open <> "" then
                Call FirstOpen
           
                if OpenID = arrPageID(m) then
                    Sider = Sider & "<img src=""minus.gif"">"
                else
                    Sider = Sider & "<img src=""plus.gif"">"
                end if
           
            Open = replace(Open,""& OpenID &"","#")
        else
       
            Sider = Sider & "<img src=""plus.gif"">"
        end if
    end if
       
    Sider = Sider & ""& arrTitle(m) &""
   
    Sider = Sider & Sider(arrPageID(m))
   
  End If       
Next
End Function

'Kald funktionen med alle niveau0-sider
Response.Write Sider(0)