Placer billeder fra folder i 4 rækker med objFS

Hej!

Jeg har fgl. som tager alle billeder fra en bestemt folder (/dir) og viser dem i en lang køre.

<%
ImageDir = "/pictures/"
    'Response.Write ImageDir
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
    Response.Write "<p>Der er " & objFiles.Count & " billeder i dette bibliotek</p>"
For Each Image In objFiles
    Response.Write "<img border='0' src='../nyhe/pic/"& Image.Name &"' width='100'><br>"
    Response.Write Image.Name
    Response.Write "<br><br>"
Next
Set objFS = Nothing
%>

Kan man lægge dem i en tabel så de bliver vist:

1-2-3-4
5-6-7-8
9-10-11-12

Også så der ikke opstår problemer hvis der kun er f.eks. 10 billeder:

1-2-3-4
5-6-7-8
9-10

Og den skal kunne hente et ukendt antal.

På forhånd tak!

Vagn...