codice:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>File</title>
</head>
<body>
<%
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) = "jpg" then
response.write "[img]& f1.name &[/img]"
end if
Next
ShowFolderList = s
End Function
response.Write ShowFolderList(server.MapPath("/"))%>
</body>
</html>
Roby