Rekrusiv funktion

Først lidt kode...

<%
'Start den rekrisive function
Function Rek(Dir)
   
    'Henter listen af dir.
    strDir = objFTP.sListDir(Dir,"16")
    Response.write strDir & "<br><br>"

    If strDir <> "" Then
    'parse the listing til et array
    aList = Split(strDir,";")
    For nX = 0 to UBound(aList)
       
        'Response.Write aList(nX) & "<br>"
        'Response.Write Dir & "/" & aList(nX) & "<br>"

        'Her kalder den sig selv
        Call Rek(Dir & "/" & aList(nX))

    Next
    End If

    strFile = objFTP.sListDir("","128")
    Response.write strFile  & "<br><br>"

End Function
'Slut den rekrisive function
%>

Problemet er når den kalder sig selv skriver den:
"This array is fixed or temporarily locked: 'aList'"

Vil det sige at jeg har lavet noget forkert eller kan man ikke lave rekrusive funktioner i asp???

MVH Jesper