<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: ADM_lista_usuario.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 21/02/07 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Esta página só pode ser acessada se o visitante já se autenticou checa_senha() 'Verifica se o perfil de usuário permite acesso a esta página Call checa_perfil_admin(""&ADMMailing&"") %> <% 'abre o banco de dados Call abre_conexao(conexao) '*** Verifica a quantidade de e-mails autorizados para envio. sqlVerificaAut= "SELECT COUNT (*) AS QTD FROM Newsletter WHERE autorizo_newsletter = 1" Set rsVerificaAut=conexao.Execute(sqlVerificaAut) TotalRegistrosAut = rsVerificaAut("QTD") rsVerificaAut.Close Set rsVerificaAut = Nothing '*** Verifica a quantidade de e-mails pendentes para envio. sqlVerificaPen= "SELECT COUNT (*) AS QTD FROM Newsletter WHERE autorizo_newsletter = 0" Set rsVerificaPen=conexao.Execute(sqlVerificaPen) TotalRegistrosPen = rsVerificaPen("QTD") rsVerificaPen.Close Set rsVerificaPen = Nothing If Request.QueryString("PN") = "" THEN PaginaCorrente = 1 Else PaginaCorrente = Request.QueryString("PN") End If If Request.QueryString("FctIntervalo")= "" THEN VarIntervalo = "20" Else VarIntervalo = Request.QueryString("FctIntervalo") End If ' consulta a tabela 'Usuarios' e 'Pedidos' e ordena por usuários que fizeram mais pedidos Set RS_Usuarios_Newsletter = Server.CreateObject("ADODB.Recordset") RS_Usuarios_Newsletter.CursorLocation = 3 RS_Usuarios_Newsletter.CursorType = 0 RS_Usuarios_Newsletter.LockType = 3 RS_Usuarios_Newsletter.Open "SELECT Newsletter.nome, Newsletter.email, Newsletter.autorizo_newsletter, Newsletter.newsletter_enviado, Newsletter.ip_usado, Newsletter.data_cadastro FROM Newsletter", Conexao %>

• Usuários newsletter <% If RS_Usuarios_Newsletter.EOF Then %> <% Else %> <% RS_Usuarios_Newsletter.PageSize = CInt(VarIntervalo) VarTotalPaginas= RS_Usuarios_Newsletter.PageCount Var_TotalRegistros = RS_Usuarios_Newsletter.recordcount RS_Usuarios_Newsletter.AbsolutePage = CInt(PaginaCorrente) DO UNTIL RS_Usuarios_Newsletter.AbsolutePage <> CInt(PaginaCorrente) OR RS_Usuarios_Newsletter.EOF If RS_Usuarios_Newsletter("autorizo_newsletter") = 0 Then status_autorizacao = "Pendente autorização" Else status_autorizacao = "Autoriza recebimento" End if If RS_Usuarios_Newsletter.AbsolutePosition Mod 2 = 0 Then strColor = "class='Linha2Tabela'" Else strColor = "class='Linha1Tabela'" End If %> > <% RS_Usuarios_Newsletter.MoveNext Loop RS_Usuarios_Newsletter.Close Set RS_Usuarios_Newsletter = Nothing %> <% End If %> NOME E-MAIL STATUS Nenhuma usuário para esta consulta. <%= RS_Usuarios_Newsletter("nome")%> <%= RS_Usuarios_Newsletter("email")%> <%= status_autorizacao%> <% 'Chama a páginação Call paginacao(VarStrAdicional,VarTotalPaginas,VarIntervalo) %> RESUMO DESTA CONSULTA Total de Registros: <%=Var_TotalRegistros%> Total de Páginas: <%=VarTotalPaginas%> Total de Registros Autorizados: <%= TotalRegistrosAut %> Total de Registros Pendentes: <%= TotalRegistrosPen %>