Hjælp til paging

Hej Eksperter

Er der en som kan hjælpe mig med at få puttet noget paging på denne side ?

Her er eks. på siden som den gerne på se ud:
http://www.lumination.dk/test/default.asp?emne=leucos&bill=sortiment


Her er kilden på den side hvor pagigen skal finde sted.

<%
Set Query = Conn.Execute("SELECT * From undersider Where emne = '" & emne & "' ")
%>
<% Do until Query.EOF%>
<table  WIDTH="350" HEIGHT="100%" cellspacing="0" cellpadding="0" border="0">
<tr valign="top"><td id="auto">
<DIV style="OVERFLOW: auto; HEIGHT: 100%">

<table WIDTH="350" HEIGHT="100%" cellspacing="0" cellpadding="0" border="0" valign="top">
  <tr valign="top">
    <td width="66%" HEIGHT="30" colspan="2" valign="center"><br><h1><%=Query("overskrift")%></h1></td>
    <td width="34%" HEIGHT="30" align="right" valign="center"><a href="java script:history.back(-1)">Tilbage</a></td>
  </tr>
  <tr>
    <td width="100%" colspan="3">
    <br>
<h2><%=Query("indhold")%></h2>
    </td>
  </tr>
  <tr>
    <td width="33%" HEIGHT="10" align="left"><<-- Tilbage</td>
    <td width="33%" HEIGHT="10" align="center">1 2 3 4</td>
    <td width="34%" HEIGHT="10" align="right">Frem -->></td>
  </tr>
</table>

</div>
</td>
</tr>
</table>
<%Query.MoveNext
loop
%>

Mvh. Sevelsted