formatering i en løkke

Hej.
Jeg har lavet følgende kode:

<%
Function ShowFolderListPic()
  Dim fso, f, f1, fc, s, folderspec
  folderspec = Server.MapPath("/lykke/presse/pressebilleder") 
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(folderspec)
  Set fc = f.Files
  For Each f1 in fc
 
      If f1.Type = "JPEG Image" Then

    Response.Write "<a href='presse/pressebilleder/" & f1.name & "' target='_blank'><img src='presse/pressebilleder/" & f1.name & "' height='100' width='100' border='1'></a>&nbsp;&nbsp;&nbsp;&nbsp;"
 
    End If
 
         
  Next
  ShowFolderListPic = s
End Function


Response.Write ShowFolderListPic()

%>

Når jeg ser siden så ligger den alle billederne ved siden af hinanden. Hvordan kan jeg lave det sådan at jeg evt. har 3-4 på en vandret række og så ellers det antal rows ned af som der er billeder?

Jeg har slet ingen anelse om hvad retning jeg skal tænke i på det her spørgsmål... Nogen der kan guide mig lidt på vej?

Se evt selv på http://www.thomas-simonsen.dk/lykke/presse.asp