MapPath - vis kun jpg/JPG

Hej!

Jeg har fundet denne lille stump kode, som læser samtlige filer i et dir - men det jeg ønsker er at den kun læser jpg/JPG :) Nogen der kan hjælpe?

<%
    rootpath = server.MapPath("./galleri")
    level = 0
 
    sub getPath(strPath,level)
        Set fsObj = CreateObject("Scripting.FileSystemObject")
        Set MainFolder = fsObj.GetFolder(strPath)
        Set Files = MainFolder.Files
        Set Folders = MainFolder.subfolders

        For Each File in Files
            for a = 1 to level
                Response.Write "&nbsp;"
            next
            filnavn = server.URLEncode(file.name)
            response.write "<IMG SRC=/galleri/thumbs/" & file.name & "><br>"
        next
        set fsObj = Nothing
        set MainFolder = Nothing
    end sub
 
    call getPath(rootpath,level)
%>