| Re: paginar muchas paginas
<%
orden=request.querystring("orden")
if orden="" or orden=null then
orden="regdate"
end if
session("orden_lista")=orden
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "etc ,etc"
Set rs = new paginado
rs.cnn = cnn '* Conexión a la base de datos
if custo<>"" then
rs.consulta = "SELECT * FROM BASE order by id"
else
rs.consulta = "SELECT * FROM BASE order by id"
end if
rs.desde = Int(Request.Querystring("ref")) '* Registro desde donde comienza el paginado, dejar como está
rs.por_pagina = 50 'Cantidad de Registros por página (10 por defecto)
rs.encabezado = "ID, RAZON_SOCIAL, RFC, CURP, NUMERO_EMPLEADOS, TAMAÑO, CONTACTO, CARGO, DIRECCION, COLONIA, DELEGACION, ESTADO, CP, LADA, TELEFONO, FAX, RAMA, SECTOR, SUBSECTOR, EMAIL, AREA, SERVICIO_COMPITE, FECHA_SERVICIO" '*Texto de cada Columna de datos
rs.orden_lista = "ID, RAZON_SOCIAL, RFC, CURP, NUMERO_EMPLEADOS, TAMAÑO, CONTACTO, CARGO, DIRECCION, COLONIA, DELEGACION, ESTADO, CP, LADA, TELEFONO, FAX, RAMA, SECTOR, SUBSECTOR, EMAIL, AREA, SERVICIO_COMPITE, FECHA_SERVICIO"
rs.ancho_encabezado = "3%,5%,5%,15%,10%,15%,15%,3%,5%,5%,15%,10%,15%,15% ,3%,5%,5%,15%,10%,15%,15%,3%,5%" '*Ancho de cada Columna de datos (pixeles o porcentaje)
rs.alineacion = "center" 'Alineación de la tabla que muestra los datos ("center" por defecto)
rs.ancho = "90%" 'Ancho de la tabla que muestra los datos (100% por defecto)
rs.paginar() '* Método que realiza la paginación y genera la tabla
If Err.Description <> "" then%>
<center>
<font class=texto_error><b>Error</b>: <%=Err.Description%></font>
</center>
<br>
<%
end if
set rs = Nothing
%>
<!-- #include file="class.asp" --> |