Questo è il codice che ho adattato e presenta i problemi che già sai:
codice:
Cartelle


<%

id = request.querystring("id")

strSQL = "select * from consistenza_cp where id="&id
set rs = server.createObject("ADODB.Recordset")
rs.open strSQL, cn, 1, 3

cartella = rs("cartella")

Dim objFso, objFolder, objFiles, strFolder, strFile
strPath = cartella
     
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
Set objFiles = objFolder.Files


dim subfolder
subfolder=""
if request.querystring("subf")<>"" then
subfolder=request.querystring("subf") & "/"
end if

Set objFolderr = objFso.GetFolder(Server.MapPath(strPath &"/"& subfolder))


For each directoryfile in objFolderr.subfolders
%>
<%   
    if right(directoryfile.Name,3) <> "cnf" then %>
[img]images/dir.jpg[/img]
<a href="consistenza.asp?subf=<% =directoryfile.Name %>" target="_blank">
<% =directoryfile.Name %></a>


<% end if %>
<% Next %>


Documentazione


<% 
For each directoryfile in objFolderr.files %>
<a href="<%=strPath%>/<% =directoryfile.Name %>">
<% 
ext=right(directoryfile.Name,3)
select case ext 
case "pdf","asp","htm","mdb","xls","ppt","doc","txt" %>
[img]images/<%= ext %>.jpg[/img]
<% case else %>
[img]images/unk.jpg[/img]
<% end select %>
<% =directoryfile.Name %></a>


<% Next 
 
Set objFso = Nothing
Set objFolder = Nothing
Set objFiles = Nothing

rs.close
cn.Close

set rs = nothing
set cn = Nothing

%>