hjælp til paging

Hvordan får jeg føjet paging til denne kode



<%
    Set Conn = Server.CreateObject("ADODB.Connection")

    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/xxxxxx/xxxxxx.mdb")
    Conn.Open DSN

    strSQL = "select * from test where medl=true"
    set RS = conn.execute( strSQL )
%>
    <tr>
        <td valign=top><a href="minside.asp>"><img src="/images/foto.jpg"></a></td>
    </tr>
<%
    RS.movenext
    loop

    conn.close
    set conn = nothing   
%>