espero te sirva este codigo
<!--#include file="conection.asp"-->
set rslista = server.CreateObject("ADODB.recordset")
sqllista = "select id,usuario,nombre,activo from mayoreo_clientes"
NumRec = 30
with rslista
.ActiveConnection = dbInfo
.CursorLocation = 3
.CursorType = 3
.PageSize = NumRec
end with
rslista.open sqllista
'seleccion de la pagina a presentar
if trim(request("pagact")) = "" then
strPagAct = 1
else
strPagAct = trim(request("pagact"))
end if
select case trim(request("nav"))
case "1"
CurrentPage = strPagAct + 1
case "-1"
CurrentPage = strPagAct - 1
case ""
if trim(Request("pag")) = "" then
CurrentPage = strPagAct
else
CurrentPage = trim(Request("pag"))
end if
end select
if rslista.EOF and rslista.BOF then
NumTotal = 0
TotPaginas = 0
else
rslista.AbsolutePage = clng(CurrenTpage)
TotPaginas = rslista.PageCount
end if
%>
Esta parte es para lo de siguiente anteriro y pagina 1 2 3 ....
<tr>
<td colspan="5" align="center"> <font size="2" face="Verdana"> <%
strURl = "&PagAct=" & currentpage
strURL = "listado_clientes.asp?nav=-1" & strUrl
if cint(currentpage) <> 1 then
%> <a href="<%=strURL%>">Pagina anterior</a> <%end if%> <%
strURl = "&PagAct=" & currentpage
strURL = "listado_clientes.asp?nav=1" & strUrl
if cint(currentpage) < totpaginas then
%> <a href="<%=strURL%>">Siguiente pagina</a> <%end if%> </font>
</tr>
<tr>
<td colspan="5"> <%for i = 1 to rslista.PageCount%> <%if i = rslista.AbsolutePage then%>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FF0000"><b><%=i%>
• </b></font> <%else%> <a href="listado_clientes.asp?PagAct=<%=i%>"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FF0000"><b><%=i%></b></font></a>
<%end if%> <%next%> </td>
</tr>
<%
cRec = 1
do while cRec <= rslista.PageSize and not rslista.EOF
%>
Aqui va el html q quieres desplegar
<%
cRec = cRec + 1
rslista.MoveNext()
loop
%>