ich beantworte meine frage nun selbst, könnte auch andern ASP-ler behilflich sein.
----------------------------------------------------
<html>
<head>
<link rel=stylesheet type=text/css href=../formate.css>
</head>
<body>
<h1>Bilder zu Lawinenarten</h1>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set objFldr = fso.GetFolder(server.mappath("/thinkquest/Website/bildergalerie/arten"))
Set objFileColl = objFldr.Files
Dim Spalten
Spalten = 0
%>
<table>
<tr>
<%
For Each file in objFileColl
Spalten = Spalten + 1
if Spalten > 3 then
Spalten = 1
response.write("</tr><tr>")
end if
response.write("<td valign=bottom>")
if instr(lcase(file.Name),".gif") <> 0 OR instr(lcase(file.Name),".jpg") <> 0 OR instr(lcase(file.Name),".jpeg") <> 0 then
Response.Write "<img width=150pt src=arten/"&file.Name&"><br>"
Response.Write "<center><a href=arten/"&file.Name&">" & file.Name & "</a></center>"
end if
response.write("</td>")
Next
Set objFldr = Nothing
Set objFileColl = Nothing
Set fso = nothing
%>
</tr>
</table>
</body>
</html>
----------------------------------------------------
thx @quentin für die hilfe beim script ;-)