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