<%
Set fileCreate = CreateObject(" Scripting.FileSystemObject" )
Set fileGet = fileCreate.GetFolder(Server.MapPath(" /immagine" ))
Set files = fileGet.Files %>
<% For Each file in files
response.Write(" <a href= " &file.name & " > <img src=" & file.name & " width=50 height=50 /></a></p>" )
Next
Set fileCreate=Nothing
Set fileGet=Nothing
Set files=Nothing
%>