Bildvisning i 4 kolumner istället för 3

Hej!
Har ett litet bildgalleri som visar bilder i tre kolumner, har försökt
att ändra så det blir 4 kolumner istället men får inte ordning på
det. Koden för tre kolumner finns längre ner.

Tänkte passa på å fråga om det är någon som har en kodsnutt
som visar hur man använder Aspimage för att göra thumbs under
uppladdning, en som är ca. 120x80 och en 400x300

Kod till bildvisningen:

<!-- bild visning start --> 
                        
<% 

'## -- hur många poster ska visas per sida -- 
intPageSize = 12 '## -- byt ut till hur många poster du vill ska visas per sida -- 

'## -- vilken sida ska visas -- 
intPage = Request.QueryString("page") 

'## -- kontrollera så att inte intPage variabeln är tom -- 
If intPage = "" Then intPage = 1 '## -- visa första sidan som default -- 

'## -- sql-fråga för att hämta data från databasen -- 
SQL = "SELECT * FROM TBL_Images ORDER BY ID DESC" 

'## -- öppna recordsetet -- 

  With RS 
      .ActiveConnection = Connect 
      .Source = SQL 

      '## -- bestämmer hur många poster som varje sida ska bestå av i recordsetet -- 
      .PageSize = intPageSize 
      .CursorType = 3 
      .LockType = 1 
      .Open 
  End With 

  '## -- kontrollera om några poster har returnerats eller inte -- 
  If Not RS.EOF Then 
      '## -- poster har returnerats -- 

      '## -- visa rätt sida i recordsetet -- 
      RS.AbsolutePage = intPage 

      '## -- hur många sidor består recordsetet av -- 
      intTotalPages = RS.PageCount 

      '## -- visa sidnavigeringen -- 
      'Call PageNavigation(intPage, intTotalPages) 

      '## -- loopa igenom recordsetet och visa posterna för besökaren/användaren -- 
     ' Do Until RS.EOF OR intCounter >= intPageSize 
         ' intCounter = intCounter + 1 

           %> 
<div align="center"> 
  <center> 
  <table border="0" cellpadding="0" cellspacing="5" width="410"> 
    <tr>
	<% Do Until RS.EOF OR intCounter >= intPageSize 
          intCounter = intCounter + 1 

          '## -- printa ut informationen till besökare/användaren ---------------------------------------------------

     checkcounter = FormatNumber(Round(intCounter/3,2),1)
      If right(checkcounter,1) <> "0" Then %>
<td valign="top" align="center" width="33%"><a href="bild.asp?ID=<%=RS("ID") %>" onMouseOver="window.status=''; return true"><img border="1" src="thumbs/<%=RS("Thumbs") %>" width="120" height="80"></a><br><br>
      <a href="bild.asp?ID=<%=RS("ID") %>" onMouseOver="window.status=''; return true"><font face="Verdana" size="1"><%=RS("Beskrivning")%></a></font></td>
     <% Else %> 
<td valign="top" align="center" width="33%"><a href="bild.asp?ID=<%=RS("ID") %>" onMouseOver="window.status=''; return true"><img border="1" src="thumbs/<%=RS("Thumbs") %>" width="120" height="80"></a><br><br> 
      <a href="bild.asp?ID=<%=RS("ID") %>" onMouseOver="window.status=''; return true"><font face="Verdana" size="1"><%=RS("Beskrivning")%></a></font></td>
<%
    RS.MoveNext 
     
%>

<td valign="top" align="center" width="33%"><a href="bild.asp?ID=<%=RS("ID") %>" onMouseOver="window.status=''; return true"><img border="1" src="thumbs/<%=RS("Thumbs") %>" width="120" height="80"></a><br><br>
      <a href="bild.asp?ID=<%=RS("ID") %>" onMouseOver="window.status=''; return true"><font face="Verdana" size="1"><%=RS("Beskrivning")%></a></font></td>

    </tr> 
  </table> 
  </center> 
</div><br>
<div align="center"> 
  <center> 
  <table border="0" cellpadding="0" cellspacing="5" width="410"> 
    <tr>
          <%  End If
           
          '##------------------------------------------------------------------------------------------------ 
    

          RS.MoveNext 
      Loop 

  Else 
      '## -- inga poster returnerades -- 
      '## -- visa meddelande att inga poster hittades för användaren -- 
 End If 

  '## -- rensa up -- 
  RS.Close 
Set RS = Nothing 

  Connect.Close 
Set Connect = Nothing 
%> 

            
           </td> 
         </tr> 
         <tr> 
           <td> 
            </td>
          </tr>
        </table>
      </div>
 </center>
<!-- bild visning slut -->