Paging

Jaja, jag vet. Det finns hur många trådar om detta som hellst men men. Har sökt och får upp hur många träffar som hellst. Jag har läst och läst och provat och provat... Men inte lyckats.

Jag ska som ni säkert förstår lägga in paging på min sida.

Koden för sidan ser ut såhär:

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

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

If Request.QueryString("sort") = "" Or Request.QueryString("sort") = "datum" Then
SQL = "SELECT * From lankar order by ID desc"

ElseIf Request.QueryString("sort") = "namn" Then
SQL = "SELECT * From lankar order by namn"

ElseIf Request.QueryString("sort") = "klick" Then
SQL = "SELECT * From lankar order by namn"
End IF

recset.Open SQL, Conn
Do while NOT recset.EOF %>

<tr <% if color = 1 then %> bgcolor="#CED6DE" <% else %> bgcolor="#FFFFFF"<% end if %>>
<td><%=recset("datum")%></td><td><a href="<%=recset("url")%>" target="_blank"><%=recset("namn")%></a></td><td><%=recset("klick")%></td><td><%=recset("tipsare")%></td><td><a href="#" title="Mer info"><img src="bilder/bullet.gif" border=0></a></td>
</tr>
<%
if color = 1 then
color = 0
else
color = 1
end if
recset.MoveNext
Loop
recset.Close
%>

Jag är mycket tacksam om någon kunde hjälpa mig att lägga in paging i detta.