Paging Problemer

Først koden:

<%Response.Buffer=True%>
<%
startdato = request.form(\"startdato\")
startdato = month(startdato) & \"-\" & day(startdato) & \"-\" & year(startdato)
slutdato = request.form(\"slutdato\")
slutdato = month(slutdato) & \"-\" & day(slutdato) & \"-\" & year(slutdato)

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

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL =\"SELECT Resultater.FeilID,Resultater.Dato, Resultater.Enhetsnummer, Resultater.PIB, Resultater.Forrettningsområde, Resultater.Gjelder, Resultater.Beskrivelse As Beskrivelse2, Last(oppfølging.Beskrivelse) AS SisteAvBeskrivelse, Resultater.Lost FROM Resultater LEFT JOIN oppfølging ON Resultater.FeilID = oppfølging.FeilID GROUP BY Resultater.FeilID, Resultater.Dato, Resultater.Enhetsnummer, Resultater.PIB, Resultater.Forrettningsområde, Resultater.Gjelder, Resultater.Beskrivelse, Resultater.Lost HAVING (((Resultater.Dato) BETWEEN #\" & StartDato & \"# AND #\" & SlutDato & \"#))\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"/fpdb/Registrering_av_feil_PiB.mdb\")
rs.Open strSQL, strDSN, 1

If (rs.BOF Or rs.EOF) Then
    response.Write \"Ingen poster funnet\"
    else
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write \"<p><b>Side \" & intPage & \" av \" & intPageCount & \"</b></p>\"
%>
<b>
Det ble funnet: <%Response.write ialt%> poster\'er</b>
<p><br>
<%
if( LEN(request(\"orderBy\")) > 0 ) then
strSQL = strSQL & \" ORDER BY \" & request(\"orderBy\")
else
  strSQL = strSQL & \" ORDER BY PiB\"
end if

with response
    .write \"<table width=100%, align=center, border=2><tr><td  width=100>\"
    .write \"<a>FeilID</a>\"
  .write \"</td><td width=10>\"
  .write \"<a>Dato</a>\"
  .write \"</td><td width=100>\"
  .write \"<a href=\'?Startdato=\"&Startdato&\"&Slutdato=\"&Slutdato&\"orderBy=PiB\'>PiB</a>\"
  .write \"</td><td width=100>\"
  .write \"<a>Beskrivelse</a>\"
  .write \"</td><td width=400>\"
  .write \"<a>Siste oppfølging</a>\"
  .write \"</td><td width=100>\"
  .write \"<a>Løst</a>\"
end with

Do While Not rs.EOF And intRecCount > 0

If counter mod 2 = 0 Then
bgcolor = \"#C0C0C0\"
Else
bgcolor = \"#ffffff\"
End If
counter = counter + 1
with response
    .write \"<tr><td width=10%, bgcolor=\'\"&bgcolor&\"\'&>\" & RS(\"FeilID\") & \"</td>\"
    .write \"<td width=10%, bgcolor=\'\"&bgcolor&\"\'&>\" & RS(\"Dato\") & \"</td>\"
    .write \"<td width=20%, bgcolor=\'\"&bgcolor&\"\'&>\" & RS(\"PiB\") & \"</td>\"
    .write \"<td width=20%, bgcolor=\'\"&bgcolor&\"\'&>\"
    strTemp = RS(\"Beskrivelse2\")
if( strTemp <> \"\" ) then
  response.write strTemp
else
  response.write \"&nbsp; \"
end if 
  response.write \"</td>\"
    .write \"<td width=20%, bgcolor=\'\"&bgcolor&\"\'&>\"

  strTemp = RS(\"SisteAvBeskrivelse\")
if( strTemp <> \"\" ) then
  response.write strTemp
else
  response.write \"&nbsp; \"
end if
  end with
  response.write \"</td>\"
  response.write \"<td width=10%, bgcolor=\'\"&bgcolor&\"\'&>\"& RS(\"Lost\") &\"</td></tr>\"
  intRecCount = intRecCount - 1
  RS.MoveNext
Loop
End If
RS.Close
Set RS=Nothing
response.write \"</table>\"
Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
Response.Write \"<a href=rapport_pib3.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next
Response.Write \"<p>\"
If Clng(intPage) > 1 Then
Response.Write \"<a href=rapport_pib3.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=rapport_pib3.asp?page=\" & intPage + 1 & \">&gt;&gt;</a> \"
Else
Response.Write \"&gt;&gt;\"
End IF
End if
%>
</p>
<p>&nbsp;</p>


Denne koden fungerer fint på side 1. Men når jeg skal gå til side 2 o.s.v  går koden til denne :
  If (rs.BOF Or rs.EOF) Then
    response.Write \"Ingen poster funnet\"
    else

Og jeg får opp resultatet \" Ingen poster funnet\", selv om resultater innheholder 20 sider.

Er det noen som kan hjelpe meg med dette??

Odd