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
dim stoin
stoin=subfolder

if request.QueryString("stoin")<>"" then
stoin=request.QueryString("stoin")
Set objFolderr =directory.getfolder(server.mappath(strPath & "/" & stoin & subfolder))
else
Set objFolderr =directory.getfolder(server.mappath(strPath &"/"& subfolder))
end if


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 %>&id=<%= id %>&stoin=<%= stoin %>" 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

%>
prova così credo che vada