Tjek lige dette !

Jeg er ved at lave en paging sammen med en søgemaskine men når jeg trykker på pil frem eller tilbage i pagingen ja så viser den pludselig ikke noget. Her er koden :

      <form method=\"POST\" action=\"Search.asp\">
        <p><input type=\"text\" name=\"Search\" size=\"20\">
        <input type=\"submit\" value=\"Søg\" name=\"Action\"></p>
      </form>
      <%
        If Request.Form(\"Search\") <> \"\" Then
          Sql = \"Select * From Topics Where\"
          Sql = Sql & \" (T_Subject LIKE \'%\" & Request.Form(\"Search\") & \"%\')\"
          Sql = Sql & \" Or (T_Message LIKE \'%\" & Request.Form(\"Search\") & \"%\')\"
          Rs.Open Sql, Dsn, 1
            If Not (rs.BOF Or rs.EOF) Then
            rs.PageSize = 1
            rs.AbsolutePage = intPage
            intRecCount = rs.PageSize
            intPageCount = rs.PageCount
            Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\"
            %>
              <table width=\"500\">
                <tr>
                  <td class=\"main\" bgcolor=\"#999999\" width=\"206\"><b>Overskrift</b></td>
                  <td class=\"main\" bgcolor=\"#999999\" width=\"188\"><b>Tekst</b></td>
                  <td class=\"main\" bgcolor=\"#999999\" width=\"86\"><b>Dato</b></td>
                </tr>
                <%
                  Do While Not rs.EOF And intRecCount > 0
                %>
                <tr>
                  <td class=\"main\" bgcolor=\"#DDDDDD\" width=\"206\" valign=\"top\"><%= Rs(\"T_Subject\")%></td>
                  <td class=\"main\" bgcolor=\"#DDDDDD\" width=\"188\"><%= Rs(\"T_Message\")%></td>
                  <td class=\"main\" bgcolor=\"#DDDDDD\" width=\"86\" valign=\"top\"><%= Formatdate(Rs(\"T_Last_Post\"))%></td>
                </tr>
              <%
              intRecCount = intRecCount - 1
              rs.MoveNext
              Loop
              %>
              </table>
              <%
              Else
              %>
              <table border=\"0\" width=\"500\">
                <tr>
                  <td width=\"100%\" class=\"error\" align=\"center\">Din søgning gav intet resultat !</td>
                </tr>
              </table>
            <%
              End If
              End If
            %>
      <%
        Response.Write \"<p>Gå til side \"
        For intNum = 1 To intPageCount
            Response.Write \"<a href=Search.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
        Next

        Response.Write \"<p>\"
        If Clng(intPage) > 1 Then
          Response.Write \"<a 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 href=Search.asp?page=\" & intPage + 1 & \">&gt;&gt;</a> \"
        Else
          Response.Write \"&gt;&gt;\"
        End If
      %>

/websam