bläddring av recordset

Jag har ett litet problem med en kod som jag håller på att modifiera. den delar upp en tabell i flera sidor med 10 poster på varje sida. Den visar bara 10 poster på sidan som den ska men den lägger inga länkar till nya sidor som skapas om det blir mer än 10.
Kan nån hjälpa mig?

//McMiller

Här är koden:

<% OPTION EXPLICIT %>
<!-- #include virtual="/jelly/adovbs.inc" -->
<%
dim Connect
dim Addera
dim next_record_count
dim the_start
dim the_last
dim RecSet
dim rs

if Request.QueryString("the_start") \<= 0 then
	the_start=1
else
	the_start=Request.QueryString("the_start")+1
end if	
the_last=the_start + 9

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/jelly/jellyn.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "SELECT * FROM names where id between "& the_start &" and "& the_last &" "
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

 %\> 

<form action=navigate.asp method=get name=frm1>
<h2> Paging Through Recordset </h2>
<TABLE WIDTH=50% BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR>
<td width=20%><h4>Employee ID </h4></td>
<td width=30%><h4>First Name</h4></td>
<td width=30%><h4>Last Name </h4></td>
</TR>
<TR>
<%
do until RecSet.EOF
Response.Write "<td>" & RecSet("ID") & "</td>"
Response.Write "<td>" & RecSet("Firstname") & "</td>"
Response.Write "<td>" & RecSet("Lastname") & "</td>"
Response.Write "</TR>"
RecSet.MoveNext
loop
if the_start>=11 then
Response.Write "<a href=" & "navigate.asp?the_start=" & the_start-6 & ">" & "Föregående & "</a>" & "&nbsp&nbsp 10 poster"
end if
Response.Write "&nbsp&nbsp&nbsp"
if the_last <= RecSet.RecordCount-1 then
if (the_last + 9) > RecSet.RecordCount then
next_record_count = RecSet.RecordCount mod 10
Response.Write "<a href=" & "navigate.asp?the_start=" & the_last & ">" & "Nästa" & "</a>" & "&nbsp&nbsp" & next_record_count & "poster"
else
Response.Write "<a href=" & "navigate.asp?the_start=" & the_last & ">" & "Nästa" & "</a>" & "&nbsp&nbsp" & "poster"
end if
end if
%>
</TABLE>
</form>
<%

RecSet.Close

connect.Close

%>