Så det blir 3 kolumner?

Någon som kan hjälpa mig så att det loopas ut 9 bilder i tre olika kolumner?

<%
vilken = Request("mapp")
Mappen	= Server.MapPath("/"& vilken &"/")

Set MappKoll	= Server.CreateObject("Scripting.FileSystemObject")
Set Mapp	= MappKoll.getFolder(Mappen)

PS = 4
       
   If Mapp.Files.Count Mod PS Then 
      Sidor = Mapp.Files.Count \ PS + 1 
   Else 
      Sidor = Mapp.Files.Count \ PS 
   End If
   Sida = Request.QueryString("sida")
   If Sida = "" Then 
       Sida = 1 
   End If  
    
   Start = (Sida - 1) * PS
   Slut = Start + PS

  If Mapp.Files.Count = 0 Then%>
       <tr> 
           <td>Finns inga bilder i denna mappen!</td> 
       </tr> 
   <%Else

   For Each File In Mapp.Files 

       bild = InStrRev(LCase(File.Name), "." ) 
       If bild < 1 Then bild = "" Else bild = Mid(LCase(File.Name),bild+1)

       If X < Start Then 
       ElseIf X < Slut Then%>
           <tr> 
		<td><a href="<%=vilken%>/<%=File.Name%>" target="_blank"><img src="<%=vilken%>/<%=File.Name%>" alt="" width="50" height="50" border="0">
		<br /><%=File.Name%></a><br /><%=Round(File.Size/1000, 1)%> kb</td>
           </tr><br /><br />
       <%Else 
          Exit For 
       End If 
       X = X + 1 
   Next
   End If
If Sidor > 1 Then%>

<tr>
  <td><hr width="100%" size="1" color="#000000" style="border:1px dashed #000000; " /></td>
</tr>
<tr>
  <td>
<%For i = 1 To Sidor
    If  i = CInt(Sida) Then
        Response.Write "<b>" & i & "</b>"
    Else
        Response.Write " <a href=?sida=" & i & ">" & i & "</a> "
    End If
Next%>
</td>
</tr>
    <tr>
      <td><hr width="100%" size="1" color="#000000" style="border:1px dashed #000000; " /></td>
    </tr>
<%End If%>