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

%>

------------------
www.jelly-head.net ---- Din nya nöjesguide!!!

I vår FAQ finns en väl fungerande version.

mvh

------------------
-------------------
What a waste it is to lose one's mind. Or not to have a mind is being very wasteful. How true that is.
Dan Quayle

FAQ:n??? Där finns ju bara frågor om webforum. och jag hittade inte den under scripts heller. kanske missat den nånstans....

------------------
www.jelly-head.net ---- Din nya nöjesguide!!!

FAQ:n för ASP, VBScript: http://cgi.webforum.nu/wf/arkiv/asp_faq.html

Länken hittar du ganska långt upp när du kommer in till detta forum...

Mvh, Vide

------------------
Varför kan inte jag äta smågrus när fotbollslaget Åtvidaberg?
Kom hem till mig...