jobbigt paging fel :(

KOD:

<%
Set objRs = Server.Createobject("Adodb.Recordset")
strSQL = "Select * from anvandare Order by id asc"

strConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" &_
Server.MapPath("/") & "/data/db.mdb"

intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1

with objRs
.cursorlocation = 3 'adUseClient
.open strSQL, strConString 'öppnar databasen och hämtar info.
.pagesize = 50 'bestämmer hur många poster per sida.
.absolutepage = intPageId 'bestämmer vilken sida som skall visas.
end with

intPages = cint( objRs.pagecount ) 'Kollar hur många sidor som finns i recordsettet.
intCurrentPost = 0 'Nollställer räknaren som skall hålla kolla på vilken post vi är på.

do while not objRs.eof and intCurrentPost < objRs.pagesize
strContents = strContents &_
"<tr><td><font face='Verdana' size='1'>" & objRs( "Namn" ) & "</td>" &_
"<td><font face='Verdana' size='1'>" & objRs( "kon" ) & "" & objRs( "Alder" ) & "</td></tr>"
intCurrentPost = intCurrentPost + 1
objRs.MoveNext
loop

function getFirstLink()
getFirstLink = " <a href='?id=com/users&pageid=1'>Första sidan</a> "
end function

function getPreviousLink( intPageId )
if intPageId > 1 then
getPreviousLink = " <a href='?id=com/users&pageid=" & intPageId - 1 & "'><<</a> "
end if
end function

for i = 1 to objRs.pagecount
strNavigation = strNavigation & " <a href='?id=com/users&pageid=" & i & "'>" & i & "</a>"
next

function getNextLink( intPageId, intPageCount )
if cint( intPageId ) < cint( intPageCount ) then
getNextLink = " <a href='?id=com/users&pageid=" & intPageId + 1 & "'>>></a> "
end if
end function

function getLastLink( intPageCount )
getLastLink = " <a href='?id=com/users&pageid=" & intPageCount & "'>Sista sidan</a> "
end function

function getPageInfo( intPageId, intPageCount )
getPageInfo = " Antal sidor: " & intPageCount & ", nuvarande sida: " & intPageId & " "
end function
%>

<b><%=response.write("" & getPageInfo(intPageId, intPages) & "") %></b>
<br>
<table cellpadding="7" width="100%">
<tr>
<td>

<%
response.write "<table>" & strContents & "</table>"

response.write ("<br><table><tr><td><font face='Verdana' size='1'><b>" & getFirstLink() & "</b>  " & getPreviousLink(intPageId) & "")

response.write ("" & strNavigation & "")

response.write ("" & getNextLink(intPageId, intPages) & "  <b>" & getLastLink(intPages) & "</b></td></tr></table>")
%>

</font>
</td>
</tr>
</table>
</td>
</tr>
</table>

Får felmeddelandet:

Feltyp:
ADODB.Recordset (0x800A0CC1)
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.

Raden det står att det är fel på är:
strContents = strContents &_