<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: ADM_home.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 09/11/06 ' '----------------------------------------------------------------------------- ' 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() 'abre o banco de dados Call abre_conexao(conexao) codigo_pedido = Request("codigo_pedido") %>

<% If Request("msg") <> "" Then%> <%= Request("msg")%> <% Else %> IP de acesso: <%= Request.ServerVariables("REMOTE_ADDR")%> Prezado <%=session("nome_usuario")%>, seja bem vindo! <% If (checa_perfil_admin_menu(""&ADMGeral&"")) Or (checa_perfil_admin_menu(""&ADMPed&"")) Or (checa_perfil_admin_menu(""&ADMProd&"")) Then %> <% If (checa_perfil_admin_menu(""&ADMGeral&"")) Or (checa_perfil_admin_menu(""&ADMProd&"")) Then %> <% End If %> <% If (checa_perfil_admin_menu(""&ADMGeral&"")) Then %> <% End If %> <% If (checa_perfil_admin_menu(""&ADMGeral&"")) Or (checa_perfil_admin_menu(""&ADMPed&"")) Then %> <% End If %> Abaixo você tem um resumo de suas operações • Alertas sobre produtos <%Call Checa_estoque("cadastrados","naoListar")%> <%Call Checa_estoque("disponiveis","naoListar")%> <%Call Checa_estoque("esgotado","listar")%> <%Call Checa_estoque("acabando","listar")%> <%Call Checa_estoque("promocaoValida","listar")%> <%Call Checa_estoque("promocaoVencida","listar")%> <%If Session("AlertasProdutos") <> "tem" Then Response.write "Sem alertas de produtos no momento" End if%> • Alertas sobre pedidos <%Call resumoPedidos("recentes","listar")%> <%Call resumoPedidos("pagos","naoListar")%> <%Call resumoPedidos("naoPagos","naoListar")%> <%Call resumoPedidos("atendidos","naoListar")%> <%Call resumoPedidos("total","naoListar")%> <%If Session("AlertasProdutos") <> "tem" Then Response.write "Sem alertas de pedidos no momento" End if%> <% End If %> <% End If %>