liste billeder i en mappe

<%
Function ShowFolderList()
    folderspec = server.mappath(\".\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    if lcase(right(file, 3)) = \"jpg\" OR lcase(right(file, 3)) = \"gif\" then
    tmp = tmp & \"<a href=\'\" & file.name & \"\'><img src=\'\" & file.name & \"\'></A><BR>\"
    end if
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>