Hvad er der galt?

Jeg er ved at lave et lille søge script, den søger fint og den viser det 10 første poster men nå man tryker på Next (næste side) så vise den ingen poster!

Hvorfor?

Her er scriptet:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>Lista imena</title>
<style TYPE=\"text/css\">
.txt { font-family: Verdana, Arial; font-weight: none; font-size: 10px; color: #000000 }
</style>
</HEAD>
<BODY>

<!-- Lista pocinje -->
<%
    strIme = Request.Form(\"Ime\")
    strSpol = Request.Form(\"Spol\")

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

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM Imenik WHERE (Ime LIKE \'\" & strIme & \"%\') AND (Spol LIKE \'\" & strSpol & \"\')\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"imenik.mdb\")
rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write \"<p><span class=\'txt\'><br><b>&nbsp;Stranica \" & intPage & \" od \" & intPageCount & \"</b></span></p>\"
    Do While Not rs.EOF And intRecCount > 0
   
        \'Ime i Spol
    strID = rs(\"ID\")

    \' napravi link za banka.asp sa Id-værdien u URL
    strLink = \"<a href=\'ime.asp?ime=\" & strID & \"\'>\" & strIme & \"</a>\"
%>

<p>
<center>
  <table border=\"0\" style=\"border-collapse: collapse\" bordercolor=\"#111111\" width=\"378\">
    <tr>
      <td align=\"left\" width=\"70\"><span class=\"txt\"><b>Ime</b></span></td>
      <td width=\"1\">
      <img border=\"0\" src=\"../banke/l_uspravna_izmedju.gif\" width=\"1\" height=\"16\"></td>
      <td align=\"left\" width=\"306\"><span class=\"txt\">&nbsp;<% Response.Write rs(\"Ime\") %></span></td>
    </tr>
    <tr>
      <td colspan=\"3\" align=\"left\" width=\"377\">
      <img border=\"0\" src=\"../banke/l_375_izmedju.gif\" width=\"375\" height=\"1\"></td>
    </tr>
    <tr>
      <td align=\"left\" width=\"70\"><span class=\"txt\"><b>Spol</b></span></td>
      <td width=\"1\">
      <img border=\"0\" src=\"../banke/l_uspravna_izmedju.gif\" width=\"1\" height=\"16\"></td>
      <td align=\"left\" width=\"306\"><span class=\"txt\">&nbsp;<% Response.Write rs(\"Spol\") %></span></td>
    </tr>
  </table>
</p>

<%
   
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If

rs.Close
Set rs = Nothing

\'Response.Write \"<p>Gå til side \"
\'For intNum = 1 To intPageCount
\'  Response.Write \"<a href=lista.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
\'Next

Response.Write \"<p>\"
If Clng(intPage) > 1 Then
    Response.Write \"<a href=proba.asp?stranica=\" & intPage - 1 & \"><span class=\'txt\'>&laquo; Nazad</span></a>\"
Else
    Response.Write \"<span class=\'txt\'>&laquo; Nazad</span>\"
End If

Response.Write \"&nbsp;&nbsp;&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write \"<a href=proba.asp?stranica=\" & intPage + 1 & \"><span class=\'txt\'>Naprijed &raquo;</span></a>\"
Else
    Response.Write \"<span class=\'txt\'>Naprijed &raquo;</span>\"
End If
%>
</center>
<!-- Lista pocinje -->

</BODY>
</HTML>