Antes que nada gracias por responder tan rápido.
Éste es el códigoq ue encontré por aquí:
Código:
Dim Conn, rs, SQL
Dim PaginaActual
Dim RegistrosTotales
Dim PaginasTotales
Dim TamPagina
Dim UltimoRegistro
Dim CuantosRegistros
TamPagina = 50 'Nº DE REGISTRO POR PAGINA
if Request.Querystring("pagina") = "" then PaginaActual = 1 else PaginaActual = Cint(Request.Querystring("pagina"))
Set Conn = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Conn.Open "Cadena de BaseD"
'Ahora creamos la sentencia SQL
'sSQL=""'"SELECT id_solicitud, correoenviado, correoelectronico, fecha, promocioninteres, observaciones FROM Solicitudes WHERE fecha >= #14/09/2007# AND correoenviado = false AND promocioninteres ='" & Promos & "'"' AND
rs.PageSize = TamPagina
rs.CacheSize = TamPagina
rs.Open sSQL, Conn, 1, 2
PaginasTotales = rs.PageCount
if PaginaActual < 1 then PaginaActual = 1
if PaginaActual > PaginasTotales then PaginaActual = PaginasTotales
if PaginasTotales=0 then
textotd = "No se encontraron resultados."
else
UltimoRegistro = rs.Absoluteposition
RegistrosTotales = rs.RecordCount
rs.AbsolutePage = PaginaActual
textotd = "Pagina " & PaginaActual & " de " & PaginasTotales
Y despues tengo esto:
Código:
<% rsB.MoveFirst %></p>
<table width="100%" border="0" id="resultados">
<tr class="encabezado">
<td width="3%">#</td>
<td width="3%"><img src="imgs/snd.gif" alt="snd" width="26" height="19"></td>
<td width="16%">Nombre</td>
<td width="7%">Correo </td>
<td width="8%">TelÉfono</td>
<td width="13%">DirecciÓn</td>
<td width="17%">PromociÓn</td>
<td width="10%">Fecha</td>
<td width="18%">Observaciones</td>
<td width="2%">Enviado</td>
<td width="3%"> </td>
</tr>
<% rs.MoveFirst %>
<%
'Contamos Campo
Num_Campos=rs.Fields.Count
total=0
numero =0
Do While Not Rs.EOF AND CuantosRegistros < TamPagina
numero= numero+1
%>
<tr>
<td class="datos"><%Response.Write(numero)%></td>
<td class="datos"><input name="id_solicitudes" type="checkbox" class="datos" id="id_solicitudes" value=<%=rs("id_solicitud")%> checked></td>
<td class="datos"><%=rs("nombreyapellidos")%></td>
<td class="datos"><%=rs("correoelectronico")%></td>
<td class="datos"><%=rs("telefono")%></td>
<td class="datos"><%=rs("direccion")%></td>
<td class="datos"><%=rs("promocioninteres")%></td>
<td class="datos"><%=rs("fecha")%></td>
<td class="datos"><%=rs("observaciones")%></td>
<td class="datos"><%
if rs("correoenviado") = true then
response.write ("<input type='checkbox' name='wcasilla_verificacion' value='True'checked>")
response.write ("Marcado")
else
response.write ("<input type='checkbox' name='wcasilla_verificacion' value='True'>")
'response.write ("No Marcado")
end if
%></td>
<td class="datos"><a href="edita.asp?solicitud=<%=rs("id_solicitud")%> "onClick="window.open('','editar','height=280,width=580');" target="editar">editar</a><br />
<a href="borra.asp?solicitud=<%=rs("id_solicitud")%>" onClick="window.open('','borrar','height=280,width=580');" target="borrar">borrar</a></td>
</tr>
<%
CuantosRegistros=CuantosRegistros + 1
rs.movenext
total= total+1
loop
%>
</table>
<%
end if
rs.Close
Conn.Close
set rs = nothing
set Conn = nothing
%>
<div align="center">
<p><br>
<input type="submit" name="Submit" value="Enviar" >
</p>
</div>
<p align="center" class="encabezado">Mostrando página <%=PaginaActual%> de <%=PaginasTotales%> <%=UltimoRegistro%> de <%=RegistrosTotales%> registros </p>
</form>
<%
Response.Write("<p>")
if PaginaActual > 2 then Response.Write("<A HREF=?pagina="& 1 &">Primera Pagina</A> - ") Else Response.Write("Primera Pagina - ")
if PaginaActual > 1 then Response.Write("<A HREF=?pagina="& PaginaActual-1 &">"&TamPagina&" Anteriores</A> - ") Else Response.Write(""&TamPagina&" Anteriores - ")
if PaginaActual < PaginasTotales then Response.Write("<A HREF=?pagina=" & PaginaActual+1 &">"&TamPagina&" Siguientes</A> - ") Else Response.Write(""&TamPagina&" Siguientes - ")
if PaginaActual + 1 < PaginasTotales then Response.Write("<A HREF=?pagina=" & PaginasTotales &">Ultima Pagina</A> - ") Else Response.Write("Ultima Pagina - ")
%>
En realidad tengo ya resuelto indicar la página en la que se está así como el total de páginas, también puse el total de registros pero quiero enontrar la manera de decir "Estas en la página 3 de 80 que contiene los registros 100 - 150 de un total de 3000" eso es lo que necesito saber.