meinst du sowas?
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set objFldr = fso.GetFolder(server.mappath("bilder"))
Set objFileColl = objFldr.Files
For Each file in objFileColl
if instr(lcase(file.Name),".gif") <> 0 OR instr(lcase(file.Name),".jpg") <> 0 OR instr(lcase(file.Name),".jpeg") <> 0 then
Response.Write "<a href='bilder/"&file.Name&"'>" & file.Name & "</a><br>"
end if
Next
Set objFldr = Nothing
Set objFileColl = Nothing
Set fso = nothing
%>