Set fso = Server.CreateObject(“Scripting.FileSystemObject”)
Set folder = fso.GetFolder(“c:\MyFolder”)
For Each file in folder.Files
fullname = split( file, "\" )
filename = split( fullname(ubound(fullname)), "." )
if filename(ubound(filename)) = "jpg" then
Response.Write(“<p>”&file)
end if
Next