Har brugt dette eks:
http://activedeveloper.dk/aspdigital/kapitel2/paging.aspPrøv med dette, det mulig du vil flytte lidt rundt på det med linksene til de andre sider:
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
set conn1 = server.createobject("ADODB.connection")
set RS = server.createobject("ADODB.recordset")
path = Server.MapPath("kundekartotek.mdb")
conn1.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL = "SELECT * FROM Adresseliste ORDER By AdresselisteID"
RS.Open SQL, Conn1, 1
%>
<html>
<head>
<title>List brugere</title>
<script src="js.js"></script>
<link href="email.css" rel="stylesheet" type="text/css">
<base target="_self">
</head>
<body topmargin="0" leftmargin="0">
<table border="0" width="100%" cellspacing="0" cellpadding="10">
<tr>
<td width="100%">
<div align="center">
<center> <table border="1" cellpadding="3" cellspacing="0" bordercolor="#FFFFFF" width="773">
<tr>
<td bordercolor="#FCDDEA" bgcolor="#FCDDEA">
<div align="center">
<center>
<table border="0" cellpadding="3" cellspacing="0" width="768">
<tr>
<td bgcolor="#FCDDEA" class="bold"><font color="#CC6699"><b>ID</b></font></td>
<td bgcolor="#FCDDEA" class="bold"><b><font color="#CC6699">Navn:</font></b></td>
</center>
<td bgcolor="#FCDDEA" class="bold">
<p align="left"><b><font color="#CC6699">Email:</font></b></p>
</td>
<center>
<td bgcolor="#FCDDEA" class="bold"><b><font color="#CC6699">Brugernavn</font></b></td>
<td bgcolor="#FCDDEA" class="bold"><b><font color="#CC6699">Password</font></b></td>
<td bgcolor="#FCDDEA" class="bold" align="center"><b><font color="#CC6699">Rediger</font></b></td>
<td bgcolor="#FCDDEA" class="bold" align="center"><b><font color="#CC6699">Slet</font></b></td>
</tr>
<%
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
bgskift=0
Do While Not rs.EOF And intRecCount > 0
bgskift=bgskift + 1
if bgskift = 2 then
bgskift = 0
end if
if bgskift = 0 then
color="bgcolor='#F2F2F2'"
else
color="bgcolor='#FDFDFD'"
end if
%>
<tr>
<td <%=color%> class="copy" bgcolor="#FFFFFF"><% response.write RS("AdresselisteID") %></td>
<td <%=color%> class="copy" bgcolor="#FFFFFF"><% response.write RS("Fornavn") %> <% response.write RS("Efternavn") %></td>
<td <%=color%> class="copy" bgcolor="#FFFFFF"><A HREF="mailto:<%=RS("E-post-adresse")%>"><%=RS("E-post-adresse")%></a></td>
<td <%=color%> class="copy" bgcolor="#FFFFFF"><% response.write RS("Brugernavn") %></td>
<td <%=color%> class="copy" bgcolor="#FFFFFF"><% response.write RS("Password") %></td>
<td <%=color%> class="copy" align="center" bgcolor="#FFFFFF"><% response.write "<A href='ret_brugere_form.asp?AdresselisteID=" & RS("AdresselisteID")%>'><img src="update.gif" border="0" alt="Opdater Bruger"></td>
<td <%=color%> class="copy" align="center" bgcolor="#FFFFFF"><a href="sletpost_brugere.asp?id=<%=RS("AdresselisteID")%>"><img src="trash.gif" border="0" alt="Slet Bruger"></a></td>
</tr>
<%
intRecCount = intRecCount - 1
RS.movenext
loop
%>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td bordercolor="#FCDDEA" bgcolor="#FCDDEA">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<img border="0" src="back_pil.gif">
</td>
<td>
<p class="copy"> <a href="java script:history.go(-1)">Tilbage</a></td>
</tr>
</table>
</td>
</tr>
</table></center>
</div>
</td>
</tr>
</table>
<%
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
</body>
</html>
