max 30 billeder pr. side

Jeg skal have lavet denne om, så der kun vises 30 billeder pr side:


<% ' ASP
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set f = objFSO.getFolder("d:\Webhotel\hjaelp.dk\Docs\Admin\Nyheder\Upload\billeder")

%>


<table width="90%" align="center">
<tr><td align="left" width='30%'><b>Række 1</b></font></td>
  <td width='30%'><b>Række 2</b></td>
  <td width='30%'><b>Række 3</b></td>
</tr>
<% ' ASP
Cnt = 1
For Each Item in f.Files
  if Cnt = 1 then
    Response.Write("<tr>" & vbCrLf)
  end if
  Response.Write("<td align='left'><img src='Nyheder/Upload/billeder/" & Item.Name & "' Width='142' Height='116'><br> " & Item.Name & "</td>" & vbCrLf)
  if Cnt = 3 then
    Response.Write("</tr>" & vbCrLf)
  end if
  Cnt = Cnt + 1
  if Cnt = 4 then
    Cnt = 1
  end if
Next %>

</table>

Hjaelp