Hvorfor virker mit PAGING script ikke ??

Hej eksperter

Jeg sidder og er ved at blive godt rundtosset, for jeg kan ikke finde fejlen i mit paging script.

Alt ser ellers ud til at virke, siden vises med den valgte opdeling (pagesize) og der laves det antal sider (side 1 - 2 - 3 af 3) som der skal til for at hele kan recordset vises, men det er kun side 1 der vises uanset om jeg trykker på side 1, 2 eller 3.

Herunder kode
<<<<<<<<<<<<<<<<<<   
<%
        Set resNyhed = Server.CreateObject("ADODB.RecordSet")
    sqlNyhed ="SELECT * FROM T_Nyhed"
    resNyhed.Open sqlNyhed, strDSN, 1

    intPage = Request("page")
    If isNumeric(intPage) = False Or intPage < 1 Then
          intPage = 1
    End If
%>
<%
    If Not(resNyhed.EOF OR resNyhed.BOF) Then               
        resNyhed.PageSize = 3
        resNyhed.AbsolutePage = intPage
        IntRecCount = resNyhed.PageSize
        intPageCount = resNyhed.PageCount
    Do While Not resNyhed.EOF And intRecCount > 0
        RowCount = RowCount +1
        If RowCount Mod 2 = 0 Then
            Cellbgcolor = "#EFCEBD"
        Else
            Cellbgcolor = "#F3F3FF"
        End If%>
<TR BGCOLOR="<%response.write(Cellbgcolor)%>">
    <TD><%=ResNyhed("N_Autonr")%></TD>
    <TD><%=ResNyhed("N_Dato")%></TD>
    <TD><%=ResNyhed("N_Teaser")%></TD>
    <TD><%=ResNyhed("N_Overskrift")%></TD>
</TR>
<%   
intRecCount = intRecCount - 1
    resNyhed.MoveNext
loop
End If
Response.Write "Gå til side "
For intNum = 1 To intPageCount
    Response.Write"<A HREF=rednyhed.asp?side="& intnum & ">" & intNum & "</A>&nbsp;"
Next
    Response.Write " af " & intPageCount
    Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
If Clng(intPage) > 1 Then
    Response.Write"<A HREF=rednyhed.asp?side="& intPage  - 1 & ">&LT;&LT;&nbsp;</A>"
Else
    Response.Write"&LT;&LT;&nbsp;Forrige&nbsp;"
End If
If Clng(intPage) < Clng(intPageCount) Then
    Response.Write"<A HREF=rednyhed.asp?side="& intPage + 1 & ">Næste&nbsp;&GT;&GT;</A>"
Else
    Response.Write"Næste&nbsp;&GT;&GT;"
End If
resNyhed.Close
Set resNyhed = Nothing%>
>>>>>>>>>>>>>>>>>>