Funksjon feiler når man legger den i en sub

Når jeg kjører den uten å legge den i en sub så virker den helt fin! Hva kan dette komme av?

<%
Sub SubSiteMap()
    set adoCn = Server.CreateObject("ADODB.Connection")
    adoCn.Open strConn

    Set rsEntries = adoCn.Execute("SELECT DocID, DocSub, DocParent, DocMenuTitle, DocFKWPLanguageID FROM tblWPDocuments ORDER BY DocPriority DESC, DocMenuTitle ASC")

    If rsEntries.EOF Then
        Response.Write "<a href=index.asp>Start | Home | Hjem</a>"
        Response.End
    End if

    Do
      arrID = arrID & "," & rsEntries("DocID")
      arrRE = arrRE & "," & rsEntries("DocParent")
      arrSU = arrSU & "," & rsEntries("DocMenuTitle")
      arrSUB = arrSUB & "," & rsEntries("DocSub")
      arrLangID = arrLangID & "," & rsEntries("DocFKWPLanguageID")
      rsEntries.MoveNext
    Loop while not rsEntries.eof

    arrID = Split(arrID,",")
    arrRE = Split(arrRE,",")
    arrSU = Split(arrSU,",")
    arrSUB = Split(arrSUB,",")
    arrLangID = Split(arrLangID,",")

    Function Threads(intID,level)'HER FEILER DEN! 
      dim m
      dim v
      dim i
      dim str
      i = 1
      For m = 1 to Ubound(arrID)
        If Cint(arrRE(m)) = Cint(intID) Then
          str=""
          for l=1 to level
            str = str & " &nbsp; &nbsp; "
          next
               
            Threads = Threads & "<br>"
               
            'Sub
            If arrSUB(m) Then
                    Threads = Threads & str & "<a href=index.asp?DocID=" & arrID(m) & "&Lang=" & arrLangID(m) & ">" & arrSU(m) & "</a>"
            'under doc/meny       
            Else
                Threads = Threads & str & "<a href=index.asp?DocID=" & arrID(m) & "&Lang=" & arrLangID(m) & ">" & arrSU(m) & "</a>"
            End if
               
            Threads = Threads & Threads(arrID(m),level+1)     
             
        End If 
       
        i = i + 1
    Next

    End Function

    adoCn.Close
    Set adoCn = Nothing

    Response.Write Threads(0,0)
End Sub
%>