5 billeder per linje

kan man ikke lave dette script om sådan der kun konner 5 billeder per linje altså sådan at der bliver lavet en tabel og for hver 5 billed bliver der lavet en ny række!!

<%
ImageDir = "/fester/" & Request.Querystring("sub") ' Mappen med filerne

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set RS = Server.CreateObject("ADODB.Recordset")

RS.Fields.Append "navn", 200, 50
RS.Open

For Each file in objFolder.Files
  RS.Addnew
  RS("navn") = file.Name
  RS.Update 
Next
RS.Sort = "navn ASC"

intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

intPageSize = 20 ' Antal filer på hver side
intImgCount = RS.RecordCount
intPageCount = -Int(-(intImgCount/intPageSize))
tmp=intPageSize
RS.Move((intPage-1)*intPageSize)

do while (not RS.EOF) and tmp>0
  Response.Write "<a href=""#"" onclick=""showLargeImage('../fester/img.asp?img=" & ImageDir & "stor/" & RS("navn") & "')"">"
  Response.Write "<img border='0' src='" & ImageDir & RS("navn") & "'></a>&nbsp;"
  tmp=tmp-1
  RS.MoveNext
loop

strScriptName = Request.Servervariables("ScriptName")
Response.Write "<br>"
Response.Write "Gå til side "
For i = 1 To intPageCount
Response.Write "<a href=" & strScriptName & "?side=billeder2&page=" & i & "&sub=" & Request.Querystring("sub") & ">" & i & "</a> "   
Next
Set objFS = Nothing
%>


Enten det eller hvis i kender et bedre script til at lave et billed galeri??

\\Niko