Leggere files all'interno di directory con ASP

[[trodat]]

Ciao, ho questo codice asp per la visualizzazione di directory e file; il problema è che cliccando su una directory invece di aprire l'elenco dei files in essa contenuti, mi rimanda al link della directory e lo script va in errore, dove sbaglio:?

 Folders


<%
Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath("directories/"))

' 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="directories/<% =directoryfile.Name %>" target="_blank">
<% =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 %>