Visning af tumbnails med 4 i hver række

Er der nogen der kan hjælpe mig her, den udskriver kun ét billede i hver række ???

<HEAD>
</HEAD>
<BODY>
<table border="0" width="100%">
<%
' Vi sætter variablen ImageDir til at være det interessante katalog
ImageDir = "/xsmo/gallery/thumbnails/"

cellCount = 0

' Vi laver et objekt, der kan navigere i filsystemet = filesystemobject
Set objFS = CreateObject("Scripting.FileSystemObject")

' Vi bruger filsystemobjektet til at åbne det interessante katalog
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))

' Vi putter alle filer i kataloget ind i variablen objFiles
Set objFiles = objFolder.Files

' Her tager den en fil ad gangen og skriver den - dvs billedet - på skærmen
For Each Image In objFiles
if right(image.name,3) = "gif" then Response.Write "<img src=" & ImageDir & Image.Name &"> "
if right(image.name,3) = "GIF" then Response.Write "<img src=" & ImageDir & Image.Name &"> "
if right(image.name,3) = "jpg" then Response.Write "<img src=" & ImageDir & Image.Name &"> "
if right(image.name,3) = "JPG" then Response.Write "<img src=" & ImageDir & Image.Name &"> "
if right(image.name,3) = "bmp" then response.write "<img src=" & ImageDir & Image.Name &"> "
if right(image.name,3) = "BMP" then response.write "<img src=" & ImageDir & Image.Name &"> "

cellCount = cellCount + 1

if cellCount = 1 then Response.Write "<tr valign=""middle"">" & vbCrlf
                Response.Write "<td width=""120"" align=""center"">"
if cellCount = 4 then Response.Write "</tr>" & vbCrlf

cellCount = 0

Next

Set objFS = Nothing

%>
</td>
</table>

</BODY>
</HTML>