dim objFSO,objFolder,objFile
set objFSO=Server.CreateObject("Scripting.FileSystemObject")
set objFolder=objFSO.GetFolder(server.mappath("bildmappen"))
for each objFile in objFolder.Files
if instr(objFile.Name,"vovve")>0 then response.write "<IMG SRC=""bildmappen/" objFile.Name & """>"
next
set objFile=Nothing
set objFolder=Nothing
set objFSO=Nothing