Ho un problema:
devo visualizzare il contenuto di una cartella e fin qui ok
ecco il codice che ho usato

<%
Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s, cont
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
cont = 1
For Each f1 in fc
if right(f1.name, 3) = "mov" then
response.write ""& f1.name &""
end if %>



<% Next
ShowFolderList = s
End Function

response.Write ShowFolderList(server.MapPath("movies/"))%>

mi serve anche pero' creare il linkad ogni singolo oggetto della cartella.
Grazie