codice:
<%
Set directory=server.createobject("scripting.filesystemobject")
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 allfiles=directory.getfolder(server.mappath("directories/" & stoin & subfolder))
else
Set allfiles=directory.getfolder(server.mappath("directories/" & subfolder))
end if
' Lists all the files found in the directory
For each directoryfile in allFiles.subfolders
%>
<% ' Removes certain MSFrontPage was directories 
if right(directoryfile.Name,3) <> "cnf" then %>
<a href="nome-pagina.asp?subf=<%= directoryfile.Name %>&stoin=<%= stoin %>">
<% =directoryfile.Name %></a>


<% end if %>
<% Next %>


Files


<% ' Lists all the files found in the directory
For each directoryfile in allFiles.files %>
<a href="directories/<% =directoryfile.Name %>">
<% 
ext=right(directoryfile.Name,3)
select case ext 
case "pdf","asp","htm","mdb","xls","ppt","doc","txt" %>
[img]directories/images/<%= ext %>.jpg[/img]
<% case else %>
[img]directories/images/unk.jpg[/img]
<% end select %>
<% =directoryfile.Name %></a>


<% Next %>