Ich mache das so,...
und such mal auf
asp101.com
unter Samples müsstest du Paging finden!!!
<%
intPage = Request("Eintrag")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM gruesse order by id desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0
response.write "<center>"
Response.Write "<table width=""420"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Response.write "<tr>"
Response.write "<td bgcolor=""#2B507D""><div align=""left""><font color=""#FFFFFF"" face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">" & rs("Name") & "</td>"
Response.write "<td bgcolor=""#2B507D""><div align=""right""><font color=""#FFFFFF"" face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">" & rs("Datum") & "</td>"
Response.write "</tr>"
Response.write "<tr>"
Response.write "<td colspan=""2""><div align=""left""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">" & rs("Gruesse") & "</td>"
Response.write "</tr>"
Response.write "</table>"
Response.write "<br>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<center>"
Response.Write "<table width=""420"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=center>"
Response.Write "<td>"
Response.Write "<div align=""center"">"
Response.Write "<p><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">"
For intNum = 1 To intPageCount
Response.Write "<a href=main.asp?Seite=2&Eintrag=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<br>"
If Clng(intPage) > 1 Then
Response.Write "<a href=main.asp?Seite=2&Eintrag=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=main.asp?Seite=2&Eintrag=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
Response.Write "</table>"
%>