forrige - næste...

<html>
<head>
<title>Recordset Paging</title>
</head>
<body>

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

Set rs = Server.CreateObject(\"ADODB.RecordSet\")

strSQL = \"SELECT * FROM Banner\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"demo.mdb\")

rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
  \'No of Records on each Page
  rs.PageSize = 3
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
 
  Response.Write \"<p><b>Page \" & intPage & \" of \" & intPageCount & \"</b></p>\"
  Do While Not rs.EOF And intRecCount > 0
 
\'    Et eller andet...

  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing

Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
  Response.Write \"<a href=Paging.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next

Response.Write \"<p>\"
If Clng(intPage) > 1 Then
  Response.Write \"<a href=Paging.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=Paging.asp?page=\" & intPage + 1 & \">&gt;&gt;</a> \"
Else
  Response.Write \"&gt;&gt;\"
End If
%>

</body></html>

Så skal du bare lave rs.Pagesize om til 10. Det glemte jeg :-)

det er en sQL????

Ja, den skal jo kunne se hvormange recordsets der er ikk?!!!!!

Den skal vise hvor mange der ialt, hvor man er henne og man skal kunne blade med næste 10 og forige 10, og det er SQL

lidt forklaring bag:

du skal bruge en speciel teknik til det du vil - det er noget der hedder paging. det kræver ikke den store viden da koden til det \"er som den er\" og derfor ikke skal ændres meget:

http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp

hvorfor tager du selv pointene???