Hier mal ein funktionierendes und einfaches Paging:
<%
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adUseClient = 3
Const adCmdText = 1
IF Request.QueryString("P") <> "" THEN
nPage = CInt(Request.QueryString("P"))
ELSE
nPage = 1
END IF
Response.Write "<P>nPage: " & nPage & "</P>"
nPageSize = 5
rs.PageSize = nPageSize
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM NEWS ORDER BY N_Date DESC", Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
IF NOT rs.EOF AND NOT rs.BOF THEN
nPages = rs.PageCount
nRecs = rs.RecordCount
IF nPage > nPages THEN nPage = nPages
IF nPage < 1 THEN nPage = 1
rs.AbsolutePage = nPage
FOR i=1 TO nPageSize
IF NOT rs.EOF THEN
Response.Write "<P>" & rs("N_Text") & "</P>"
rs.MoveNext
END IF
NEXT
END IF
rs.Close
IF nPage > 1 THEN
Response.Write "<A HREF=""paging.asp?P=" & nPage - 1 & """ TITLE=""Zur vorigen Seite""><<</A> "
ELSE
Response.Write "<< "
END IF
FOR i = 1 TO nPages
Response.Write "<A HREF=""paging.asp?P=" & i & """ TITLE=""Zur " & i & ". Seite"">" & i & "</A> "
NEXT
IF nPage < nPages THEN
Response.Write "<A HREF=""paging.asp?P=" & nPage +1 & """ TITLE=""Zur nächsten Seite"">>></A>"
ELSE
Response.Write ">>"
END IF
%>