galleri - opstil i rækker/kolonner

Hej, jeg har denne stump kode, som trækker billede fra en mappe, og stiller billederne op efter hinanden, blot med et mellemrum imellem hvert billede. Det jeg ønsker, er at billeder bliver stillet op i 6 rækker, således at de vises som:
1  2  3  4  5  6
7  8  9 10 11 12
13 14 15 16 17 18

<%
    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)

        if lcase(right(file.name,4))=".jpg" then response.write "<a href=/?side=visbillede&id=" & file.name & "><IMG BORDER=0 SRC=/galleri/thumbs/" & file.name & "></a> "
        next
        set fsObj = Nothing
        set MainFolder = Nothing
    end sub
 
    call getPath(rootpath,level)
%>

På forhånd tak for svar :)