undgå at page med 1-2 osv

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

order = request.querystring("sort")
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/nyheder/db.mdb")


if order = "" then
strSQL = "select * from nyheder order by id desc"
elseif order = "all" then
strSQL = "select * from nyheder"

else
strSQL = "select * from nyheder"
end if

rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Do While Not rs.EOF And intRecCount > 0
        strRsNyhed = rs("nyheden")
        If Len(strRsNyhed) > 18 Then
            strRsNyhed = Left(strRsNyhed,15) & "..."
        End If
               
        Response.Write "&nbsp;&nbsp;&nbsp; <A HREF=""../nyheder/nyhed.asp?id="& rs("id") & """><font face="" "&fontface&" "" font size="" "&fontsize&" "" color=""#000000"">"& strRsNyhed & "<br></A>"
       
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If

Response.Write("<center>")
If Clng(intPage) > 1 Then
    Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?id=" & Request.QueryString("id") & "&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=" & Request.ServerVariables("SCRIPT_NAME") & "?id=" & Request.QueryString("id") & "&page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
Response.Write("</center>")

if Request.Querystring("do") = "random" then
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/nyheder/db.mdb")
    Set count = Conn.Execute("SELECT COUNT(*) AS ANTAL from nyheder")
    Randomize
    int_go = int(rnd * int(count("antal")))
   
    Set rs = Conn.Execute("SELECT * FROM nyheder")
    for i = 1 to int_go
        rs.movenext
    next
    nyheden = rs("nyheden")
                datoen = rs("dato")
    Conn.Execute("UPDATE nyheder SET antal=antal+1 WHERE id = " & rs("id"))
end if

if request.querystring("id") <> "" then
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/nyheder/db.mdb")
strSQL = "Select * from nyheder where (id = "& request.querystring("id") &")"
set user = conn.execute(strSQL)
nul = "[Ingen Data]"
tmp = user("nyheden")
if tmp = "" then
nyheden = nul
else
nyheden = tmp
datoen = user("dato")
end if
Conn.Execute("UPDATE nyheder SET antal=antal+1 WHERE id = " & user("id"))
end if

på alle mine sider, men det indvirker jo på paging på andre siden, nogen måde man kan komme rundt om dette ?
Hvis Ja, hvordan