Paging problemer

Hejsa nogen der kan se hvorfor det her ikke virker?

Den skriver fint nok (eksempelvis) side 1 af 10
Men linkne til side 2 til 10 er forkerte, den næste side man kommer ind på har den ikke de rigtige resultater på, og der står så (eksempelvis) side 2 af 65

Her er det hele så I kan se hvad det er jeg snakker om:

<%
\' Henter værdien fra soeg.htm
If Trim(Request.Form(\"amin\")) = \"\" then
  stramin = 1
else
  stramin = Trim(Request.Form(\"amin\"))
End if

If Trim(Request.Form(\"amax\")) = \"\" then
  stramax = 99
Else
  stramax = Trim(Request.Form(\"amax\"))
End if

strsex = Trim(Request.Form(\"sex\"))
strpic = Trim(Request.Form(\"pic\"))

stramin = Replace(stramin,\"\'\",\"\'\'\")
stramax = Replace(stramax,\"\'\",\"\'\'\")
strsex = Replace(strsex,\"\'\",\"\'\'\")
strpic = Replace(strpic,\"\'\",\"\'\'\")


\' Opbygger en dynamisk SQL streng
strSQL = \"SELECT brugernavn, sex, foto, alder, adresse, hjem FROM users WHERE\"
strSQL = strSQL & \" (sex LIKE \'\" & strsex & \"%\')\"
strSQL = strSQL & \" and (alder BETWEEN \'\" & stramin & \"\' AND \'\" & stramax & \"\')\"
strSQL = strSQL & \" and (foto LIKE \'\" & strpic & \"%\') ORDER BY brugernavn\"

\' Skaber DSNLess forbindelse til DBen
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & server.mappath(\"database/profil.mdb\")
\'strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\\Cl-p_db\\profil.mdb\"
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

\' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)

intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set rspage = Server.CreateObject(\"ADODB.RecordSet\")
rspage.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
      Response.Write(\"<table border=\'0\' width=\'100%\' bgcolor=\'#8090C0\' cellspacing=\'0\' cellpadding=\'0\'><tr><td width=\'20%\' bgcolor=\'#8090C0\'><font face=\'Arial\'><b>&nbsp;&nbsp;Profil / nick</b></font></td><td width=\'16%\' bgcolor=\'#8090C0\' align=\'center\'><font face=\'Arial\'><b>Køn</b></font></td><td width=\'16%\' bgcolor=\'#8090C0\' align=\'center\'><font face=\'Arial\'><b>Alder</b></font></td><td width=\'16%\' bgcolor=\'#8090C0\' align=\'left\'><font face=\'Arial\'><b>Bopæl</b></font></td><td width=\'16%\' bgcolor=\'#8090C0\' align=\'center\'><font face=\'Arial\'><b>Billede</b></font></td><td width=\'16%\' bgcolor=\'#8090C0\' align=\'center\'><font face=\'Arial\'><b>Hjemmeside</b></font></td></tr>\")

      rspage.PageSize = 10
      rspage.AbsolutePage = intPage
      intRecCount = rspage.PageSize
      intPageCount = rspage.PageCount
    If rspage.EOF then
      Response.Write(\"<br><br><b><font face=\'Arial\'><center>Der er ikke fundet noget på denne søgning.</b></font></center>\") & vbCrLF
    End If
  Do While Not rs.EOF And intRecCount > 0

      Response.Write(\"<tr><td width=\'16%\' colspan=\'6\' bgcolor=\'#8090C0\'><hr></td></tr>\")
      Response.Write(\"<tr><td width=\'20%\'><b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>&nbsp;&nbsp;<a onfocus=this.blur() onmouseover=\'window.status\' title=\'Klik her for at se min profil\' href=\'checkbrugeradvse.asp?bruger=\" & rs(\"brugernavn\") & \"\' target=\'window\'>\" & rs(\"brugernavn\") & \"</a>\" & \"</b></font>\" & vbCrLf & \"</td>\")
      if rs(\"sex\") = \"1\" then 
      Response.Write(\"<td width=\'16%\' align=\'center\'><b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & \"<img align=\'middle\' border=\'0\' src=\'images/male.gif\' WIDTH=\'13\' HEIGHT=\'21\'>\" & \"</b></font>\" & vbCrLf & \"</td>\")
      end if
      if rs(\"sex\") = \"2\" then
      Response.Write(\"<td width=\'16%\' align=\'center\'><b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & \"<img align=\'middle\' border=\'0\' src=\'images/female.gif\' WIDTH=\'13\' HEIGHT=\'21\'>\" & \"</b></font>\" & vbCrLf & \"</td>\")
      end if
      if rs(\"sex\") = \"\" then
      Response.Write(\"<td width=\'16%\' align=\'center\'><b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & \"&nbsp;\" & vbCrLf & \"</td>\")
      end if     
      Response.Write(\"<td width=\'16%\' align=\'center\'><b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & rs(\"alder\") & \"</b></font>\" & vbCrLf & \"</td>\")
      If rs(\"adresse\") = \"\" then
      Response.Write (\"<td width=\'16%\' align=\'left\'> &nbsp; </td>\")
      Else    
      Response.Write(\"<td width=\'16%\' align=\'left\'><b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & left(rs(\"adresse\"),10) & \"</b></font>\" & vbCrLf & \"</td>\")
      End if
      if rs(\"foto\") = \"1\" then
      Response.Write(\"<td width=\'16%\' align=\'center\'><b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & \"<img align=\'middle\' alt=\'Billedprofil\' border=\'0\' src=\'images/pic_profil.gif\' WIDTH=\'21\' HEIGHT=\'21\'>\" & vbCrLf & \"</td>\")
      Else
      Response.Write(\"<td width=\'16%\' align=\'center\'><b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & \"&nbsp;\" & vbCrLf & \"</td>\")
      end if
      If rs(\"hjem\") <> \"http://\" and rs(\"hjem\") <> \"\" then
      Response.Write(\"<td width=\'16%\' align=\'center\'><b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'><a onfocus=this.blur() href=\'\" & rs(\"hjem\") & \"\' target=\'window\'>\" & \"<img align=\'middle\' border=\'0\' src=\'images/house.gif\' WIDTH=\'23\' HEIGHT=\'21\' alt=\" & rs(\"hjem\") & \">\" & \"</a>\" & \"</b></font>\" & vbCrLf & \"</td></tr>\")
      else
      Response.Write (\"<td width=\'16%\' align=\'center\'> &nbsp; </td></tr>\")
      end If

        intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
    Response.Write \"</table>\"
Else
    \' Hvis der ikke er fundet poster på søgningen
    Response.Write(\"<table border=\'0\' width=\'100%\' bgcolor=\'#8090C0\' cellspacing=\'0\' cellpadding=\'0\'><tr><td width=\'100%\' bgcolor=\'#8090C0\'><br><br><font face=\'Arial\'><p align=\'center\'><b>Der er ikke fundet noget på denne søgning.</b></font></p></td></tr></table>\")
End If

\' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
<table border=\"0\" width=\"100%\" bgcolor=\"#8090C0\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
  <td width=\"100%\" align=\"center\">
<%
Response.Write \"<br><br><p><b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>Side \" & intPage & \" af \" & intPageCount & \" <br>\"
For intNum = 1 To intPageCount
if Clng(intNum) = Clng(intPage) then
  Response.Write \"\" & intNum & \"&nbsp;\"
  else
  Response.Write \"<a onfocus=this.blur() href=search.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
End if
Next

Response.Write \"<br>\"
If Clng(intPage) > 1 Then
  Response.Write \"<a onfocus=this.blur() href=search.asp?page=\" & intPage - 1 & \">&lt;&lt;</a>\"
Else
  Response.Write \"&lt;&lt;\"
End If

Response.Write \"&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write \"<a onfocus=this.blur() href=search.asp?page=\" & intPage + 1 & \">&gt;&gt;</a> \"
Else
  Response.Write \"&gt;&gt;\"
End If
%> 
<br>
<a onfocus=this.blur() href=\"seprofilnavn.asp\">Tilbage til oversigt</b></font></a> 
  </td>
  </tr>
</table>

Håber nogen kan hjælpe.

Mvh
Jack!!