<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' 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(""&ADMRelat&"") %> <% 'abre o banco de dados Call abre_conexao(conexao) codigo_pedido = Request("codigo_pedido") 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 = Server.CreateObject("ADODB.Recordset") RS_Usuarios.CursorLocation = 3 RS_Usuarios.CursorType = 0 RS_Usuarios.LockType = 3 If request("status") = "compraram" Then RS_Usuarios.Open "SELECT usuarios.user_id, usuarios.nome_entrega, usuarios.cookieID, Count(pedidos.codigo_pedido) AS conta_pedidos FROM usuarios, pedidos WHERE usuarios.user_id = pedidos.user_id GROUP BY usuarios.user_id, usuarios.nome_entrega, usuarios.cookieID ORDER BY Count(pedidos.codigo_pedido) DESC;", Conexao Elseif request("status") = "newsletter" Then RS_Usuarios.Open "SELECT usuarios.user_id, usuarios.nome_entrega, usuarios.cookieID FROM usuarios WHERE usuarios.autorizo_newsletter=1", Conexao Else RS_Usuarios.Open "SELECT usuarios.user_id, usuarios.nome_entrega, usuarios.cookieID FROM usuarios", Conexao End if %> <%=Application("NomeLoja")%>
<% If request("status") = "compraram" Then %> • Usuários compradores <% Elseif request("status") = "newsletter" Then %> • Usuários newsletter <% Else %> • Usuários cadastrados <% End If %>

<%If request("msg_resultado") <> "" Then%> <%End If%> <% If request("status") = "compraram" Then %> <% End if %> <% If RS_Usuarios.EOF Then %> <% Else %> <% RS_Usuarios.PageSize = CInt(VarIntervalo) VarTotalPaginas= RS_Usuarios.PageCount Var_TotalRegistros = RS_Usuarios.recordcount RS_Usuarios.AbsolutePage = CInt(PaginaCorrente) DO UNTIL RS_Usuarios.AbsolutePage <> CInt(PaginaCorrente) OR RS_Usuarios.EOF If RS_Usuarios.AbsolutePosition Mod 2 = 0 Then strColor = "class='Linha2Tabela'" Else strColor = "class='Linha1Tabela'" End If %> onMouseOver="this.style.backgroundColor='#FFECEC'; this.style.cursor='hand';" onMouseOut="this.style.backgroundColor='';" onclick="javascript: window.location='ADM_mostra_pedido.asp?user_id=<%= RS_Usuarios("user_id") %>&orderby=codigo_pedido&status=<%=request("status")%>';"> <% If request("status") = "compraram" Then %> <% End if %> <% RS_Usuarios.MoveNext Loop RS_Usuarios.Close Set RS_Usuarios = Nothing ' FctStrAdicional monta uma string com as variavies relacionados ao produto/busca. ' - As variaveis (NOME_PAGAMENTO). If Request("status") <> "" Then VarStrAdicional = VarStrAdicional & "&status=" & Request("status") End If If Request("procura") <> "" Then VarStrAdicional = VarStrAdicional & "&procura=" & Request("procura") End If %> <% End If %>
<%=request("msg_resultado")%>
NOME E-MAILPEDIDOS
Nenhuma usuário para esta consulta.
<%= RS_Usuarios("nome_entrega")%> <%= RS_Usuarios("user_id")%>
<% 'Chama a páginação Call paginacao(VarStrAdicional,VarTotalPaginas,VarIntervalo) %>

RESUMO DESTA CONSULTA
Total de Registros: <%=Var_TotalRegistros%>
Total de Páginas: <%=VarTotalPaginas%>