Kodestump mangler paging

Er der en venlig sjæl der vil smide paging på denne så der vises 3 x 2 (6 billeder) på hver side

<%
Dim Connect, gallery
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "db"
Set gallery = Server.CreateObject("ADODB.Recordset")
gallery.Open "Select * FROM gallery order by ID desc", Connect
%>
<center>
<TABLE width="400">
<%
Do While Not gallery.EOF
%>
<TR>
  <TD>
    <a href='<%= gallery("Stor_billede")%>'><img src='<%= gallery("Lille_billede")%>' alt='<%= gallery("Tekst")%>' border='0'></a>
  </TD>
</TR>
<%
gallery.MoveNext
Loop
%>
</TABLE>