Søgningsresultat der kun viser 2 emner adgangen

Jeg har nedstående kode hvor jeg bruger paging, hvis der er mere end 2 søgeemner, skal den kun vide 2 adgangen. Men der virker fint ved visning af de 2 første, hvis man så trykker på side 2 vises der bare en blank side?? kan nogen hjælpe, for så er der 200 point i vente.

------------------ ASP kode -------------------
<!-- #include file=\"shopmenu.inc\" -->
<% id = Request.Querystring(\"id\")
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If
IF id = \"\" Then %>
<div align=\"center\">
<br>
  <center>
  <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
    <tr>
      <td width=\"100%\" align=\"center\">
        <form method=\"POST\" action=\"index.asp?valg=soeg&id=1\">
          <p><input type=\"text\" name=\"Query\" size=\"25\"> <input type=\"submit\" value=\"Søg\" name=\"Soeg\" class=flatbutton>
          <input type=\"reset\" value=\"Slet\" name=\"slet\" class=flatbutton></p>
        </form>
    </td>
    </tr>
  </table>
  </center>
</div>
<% Else
Query = Request.Form(\"Query\")
If Query = \"\" AND id = 1 THEN %>
<div align=\"center\">
<br>
  <center>
  <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
    <tr>
      <td width=\"100%\" align=\"center\">
        <form method=\"POST\" action=\"index.asp?valg=soeg&id=1\">
          <p><input type=\"text\" name=\"Query\" size=\"25\"> <input type=\"submit\" value=\"Søg\" name=\"Soeg\" class=flatbutton>
          <input type=\"reset\" value=\"Slet\" name=\"slet\" class=flatbutton></p>
        </form>
      </td>
    </tr>
    <tr>
      <td width=\"100%\" align=\"center\"><% Response.Write(\"<font color=\'#FFFFFF\' size=\'2\'>Indtast først et søgeord</font><br>\")%></td>
    </tr>
  </table>
  </center>
</div>
<% Else

      Set Conn = Server.CreateObject(\"ADODB.Connection\")
      Set Rs = Server.CreateObject(\"ADODB.Recordset\")
      strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"/db/items.mdb\")
      SQL = \"SELECT ProductNum, Name, Price, ImageURL, Description, Category, Status FROM Items WHERE Name LIKE \'%\" & Query & \"%\'\"
      rs.Open SQL, strDSN, 1, 1
      If Not (rs.BOF Or rs.EOF) Then
      rs.PageSize = 2
      rs.AbsolutePage = intPage
      intRecCount = rs.PageSize
      intPageCount = rs.PageCount
     
%>
<div align=\"center\">
<br>
  <center>
  <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
    <tr>
      <td width=\"100%\" align=\"center\">
        <form method=\"POST\" action=\"index.asp?valg=soeg&id=1\">
          <p><input type=\"text\" name=\"Query\" size=\"25\"> <input type=\"submit\" value=\"Søg\" name=\"Soeg\" class=flatbutton>
          <input type=\"reset\" value=\"Slet\" name=\"slet\" class=flatbutton></p>
        </form>
      </td>
    </tr>
    <tr>
      <td width=\"100%\" align=\"center\">
      <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">

      <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td width=\"76%\" valign=\"middle\"><font color=\"#FFFFFF\">&nbsp;Produktgruppe : <% response.Write(\"Søgningsresultat\") %></font></td>
    <td width=\"24%\" valign=\"middle\" align=\"right\"><% Response.Write \"<font color=\'#FFFFFF\' size=\'2\'>&nbsp;Side&nbsp;\" & intPage & \"&nbsp;Af&nbsp;\" & intPageCount & \"</font>&nbsp;\" %></td>
  </tr>
  <tr>
    <td width=\"100%\" colspan=\"2\">
      <hr>
    </td>
  </tr>
</table>
      <%
          Do While Not rs.EOF And intRecCount > 0
          ImageURL = rs(\"ImageURL\")
        ImageURL = \"<img src=\'\" & ImageURL & \"\'>\"
       
      %>
     
      <table width=\"90%\" border=\"0\" cellspacing=\"1\" cellpadding=\"0\" bgcolor=\"#000000\">
        <tr>
          <td width=\"152\" align=\"right\" valign=\"middle\" bgcolor=\"#FFFFFF\">
            <div align=\"left\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\">
              &nbsp;Vare Nr.</font></div>
          </td>
          <td width=\"448\" bgcolor=\"#FFFFFF\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
      <% =rs(\"ProductNum\")%>
            </font></td>
        </tr>
        <tr>
          <td width=\"152\" align=\"right\" valign=\"middle\" bgcolor=\"#FFFFFF\">
            <div align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">&nbsp;Varenavn&nbsp;</font></div>
          </td>
          <td width=\"448\" bgcolor=\"#FFFFFF\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
        <% =rs(\"Name\")%>
            </font></td>
        </tr>
        <tr>
          <td width=\"152\" align=\"right\" valign=\"middle\" bgcolor=\"#FFFFFF\">
            <div align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">&nbsp;Beskrivelse&nbsp;</font></div>
          </td>
          <td width=\"448\" bgcolor=\"#FFFFFF\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
        <% =rs(\"Description\")%>
            </font></td>
        </tr>
        <tr>
          <td width=\"152\" align=\"right\" valign=\"middle\" bgcolor=\"#FFFFFF\">
            <div align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">&nbsp;Pris&nbsp;</font></div>
          </td>
          <td width=\"448\" bgcolor=\"#FFFFFF\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
        <% =rs(\"Price\")%>
            </font></td>
        </tr>
        <tr>
          <td width=\"152\" align=\"right\" valign=\"middle\" bgcolor=\"#FFFFFF\">
            <p align=\"left\">
            <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">&nbsp;Lagerstatus</font>
            </p>
          </td>
          <td width=\"448\" bgcolor=\"#FFFFFF\"><% If rs(\"Status\") = True Then %><img border=\"0\" src=\"Images/lager_ok.gif\"><% Else %><img border=\"0\" src=\"Images/lager_tom.gif\"><%End If%></td>
        </tr>
        <tr>
          <td width=\"152\" align=\"right\" valign=\"bottom\" bgcolor=\"#FFFFFF\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\"><a href=\"index.asp?valg=viskurv&amp;action=add&amp;item=<% =rs(\"ProductNum\")%>&amp;count=1\"><img src=\"Images/ikurven.gif\" border=\"0\" alt=\"Læg i kurven\"></a></font></td>
          <td width=\"448\" align=\"left\" valign=\"bottom\" bgcolor=\"#FFFFFF\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
        <% =ImageURL %>
            </font></td>
        </tr>
      </table>
      <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"> </font>
      <hr color=\"#CCCCCC\" size=\"1\" noshade>
      <%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
Else
response.Write(\"<br><br><center><Font size=\'4\'>Ingen produkter fundet</font></center><br><br>\")
Response.Redirect(\"index.asp?valg=soeg\")
end if

Response.write\"<center>\"
Response.Write \"<font color=\'#FFFFFF\' size=\'2\'>&nbsp;Gå til side&nbsp;\"
If Clng(intPage) > 1 Then
  Response.Write \"<a href=index.asp?valg=soeg&page=\" & intPage - 1 & \">&nbsp;&lt;&lt;&nbsp;</a>\"
Else
  Response.Write \"&nbsp;&lt;&lt;&nbsp;\"
End If
For intNum = 1 To intPageCount
  Response.Write \"<a href=index.asp?valg=soeg&page=\" & intNum & \">\" & intNum & \"</a> \"
Next
If Clng(intPage) < Clng(intPageCount) Then
  Response.Write \"<a href=index.asp?valg=soeg &page=\" & intPage + 1 & \">&gt;&gt;&nbsp;</a></font>\"
Else
  Response.Write \"&gt;&gt;&nbsp;</font>\"
End If
Response.write\"</center><br><br>\"
rs.Close
Set rs = Nothing
%>
      </td>
        </tr>
      </table>
  </center>
</div>

<%
End IF
End If %>