INMEPE MAIA

<%@ Language=VBScript %> <%Option Explicit %> <% Response.Expires = 0 %> <% If IsEmpty(Session("admin")) Then Response.Redirect "index.asp" End If %> <% Dim lista,cat_id,cat_nome,nome,lista_produtos,marcas_id,pag_act,pag_ant,cat_nombre nome="" Dim oConn,rs,a,SQL Dim PaginaActual ' en qué pagina estamos Dim PaginasTotales ' cuántas páginas tenemos Dim TamPagina ' cuantos registros por pagina Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos Dim registros 'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA TamPagina=15 'Leemos qué página mostrar. La primera vez será la inicial if Request.Querystring("pagina")="" then PaginaActual=1 else PaginaActual=CInt(Request.Querystring("pagina")) end if set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") ' Conexión por OLEDB oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("..\..\private\786214dcpw.mdb") SQL ="SELECT * FROM clientes ORDER BY email" ' Defino el tamaño de las páginas rs.PageSize=TamPagina rs.CacheSize=TamPagina ' Defino el cursor en el cliente: adUseClient rs.CursorLocation = 3 %> INMEPE MAIA

Lista de E-mail de Visitantes Cadastrados

Logoff

E-mail

<%a = 0%> <% ' Abro el recordset rs.Open SQL, oConn,3,3 'Cuento las páginas PaginasTotales=rs.PageCount 'Compruebo que la pagina actual está en el rango if PaginaActual < 1 then PaginaActual = 1 end if if PaginaActual > PaginasTotales then PaginaActual = PaginasTotales end if 'Por si la consulta no devuelve registros! if PaginasTotales=0 then %> <%else 'Vamos a paginar rs.AbsolutePage=PaginaActual CuantosRegistros=0 do while not rs.EOF and CuantosRegistros < TamPagina a = a + 1 If rs.EOF Then %> <%End If 'Pinto una línea de la tabla por cada registro Dim prod_id,prod_acesso,prod_nome,prod_empresa,prod_email,prod_foneddd,prod_fonenumero,prod_comentarios,c,num_pag prod_id = rs.Fields("id") prod_nome = rs.Fields("nome") prod_empresa = rs.Fields("empresa") prod_email = rs.Fields("email") prod_foneddd = rs.Fields("foneddd") prod_fonenumero = rs.Fields("fonenumero") prod_comentarios = rs.Fields("comentarios") %> <% CuantosRegistros=CuantosRegistros+1 rs.MoveNext %>

<%=prod_email%>

<%loop %> <% end if registros = rs.RecordCount cat_nombre = nome rs.Close oConn.Close set rs=nothing set oConn=nothing %>

Foram encontrados <%=registros%> visitantes cadastrados

<%Response.Write(" Pagina " & PaginaActual & " de " & PaginasTotales)%>

<% 'Muestro los enlaces Response.Write("") if PaginaActual > 1 then pag_ant = PaginaActual-1 ' Response.Write(" Anterior ") %> Anterior <% Response.Write("") end if if PaginaActual <= PaginasTotales then c = 0 for num_pag = 1 to PaginasTotales c = c + 1 'Response.Write c %> <%Response.Write c%> <%next end if if PaginaActual < PaginasTotales then pag_act = PaginaActual+1 %> Próxima <%end if %>


Total de Visitantes	Ver todos os E-mail	Busca por Nome	Busca por Empresa	Cadastro x Formulário