<% if request("link") = "todos" then %>

CONFIRA ABAIXO OS CLIENTES CADASTRADOS

<%if request("mensagem") <> "" then%>

<%=request("mensagem")%>

<%end if%> <% 'CHAMA OS DEPARTAMENTOS CADASTRADOS Set rs = Server.CreateObject("adodb.recordset") registroporpagina = 10 RS.PageSize = registroporpagina 'quantidade de registros por página. Você pode alterar sem conforme precise. RS.CursorLocation = 3 RS.CacheSize = registroporpagina 'Vamos fazer a busca na tabela contatos if request("chave") = "" then sql = "SELECT * FROM clientes ORDER by nome ASC" else sql = "SELECT * FROM clientes WHERE nome LIKE '%"& hash(request("chave")) &"%' or email LIKE '%"& hash(request("chave")) &"%' ORDER by nome ASC" end if rs.Open sql,conexao,3 If rs.EOF Or rs.bof Then%> Nenhum cliente foi encontrado. Clique aqui para voltar. <% else IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> rs.PageCount then intpagina=rs.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF 'Fim das verificações de exceções 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta rs.AbsolutePage = intpagina ' Inicia o contador que vai controlar os registros mostrados intrec=0 %>

Foram encontrados <%=rs.RecordCount %> clientes cadastrados divididos em <%=rs.PageCount %> páginas

Você está navegando na página de número <%=intpagina %>

Buscar    


<% 'Enquanto o contador for menor que a quantidade de registros mostrados ou ' não for o final do arquivo While intrec < rs.PageSize and not rs.EOF 'numiz = CInt(intpagina & "0") 'profissao = hash(rs("profissao")) 'if profissao = "hospitalparticular" then 'profissao = "Hospital Particular" 'elseif profissao = "hospitalpublico" then 'profissao = "Hospital Público" 'elseif profissao = "clinicamedica" then 'profissao = "Clínica Médico" 'elseif profissao = "clinicaveterinaria" then 'profissao = "Clínica Veterinária" 'elseif profissao = "profissionalliberal" then 'profissao = "Profissional Liberal" 'elseif profissao = "fisioterapeuta" then 'profissao = "Fisioterapeuta" 'elseif profissao = "outras" then 'profissao = "Outra" 'end if %>

 » <%= hash(rs("nome")) %> - (<%= hash(rs("email")) %>)
      End.: <%= hash(rs("endereco")) %> 
      Cep: <%= hash(rs("cep")) %>       Cidade: <%= hash(rs("cidade")) %>       Estado: <%= hash(rs("estado")) %> 
<% ' indicacao = hash(rs("indicacao")) ' if indicacao = "buscador" then ' indicacao = "Site de Busca" ' elseif indicacao = "indicacao" then ' indicacao = "Indicado por Vendedor"''' ' elseif indicacao = "revista" then ' indicacao = "Anúncio em Revista" ' elseif indicacao = "jornal" then ' indicacao = "Anúncio em Jornal" ' ' elseif indicacao = "outros" then ' indicacao = "Outros" ' end if %>       Data: <%=rs("datacad")%>      Telefone: <%= hash(rs("tel")) %>
">

();">
<% rs.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF rs.EOF then response.write " " END IF Wend 'fim do loop%>
   
   
<% 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página IF (intpagina) <> 0 then %> Página: <% for i = 1 to RS.PageCount %> &pagina=<%=i%>"> [ <%Response.Write i%> ]    <%response.Write" "%> <%next%> <% END IF %>
   
 
<%end if%>
<% elseif request("link") = "mostrar" then idcliente = request("id") set rs = conexao.execute("SELECT * FROM clientes WHERE clienteid="&idcliente&"") %>

CONFIRA ABAIXO OS CLIENTES CADASTRADOS

<%if request("mensagem") <> "" then%>

<%=request("mensagem")%>

<%end if%>

<%= hash(rs("nome")) %>
 
Data de Cadastro:
 <%=rs("datacad")%>

E-mail:

 <%= hash(rs("email")) %>
Senha de Acesso:
 <%= hash(rs("senha")) %>
   
Endereço:
 <%= hash(rs("endereco")) %>
CEP:
 <%= hash(rs("cep")) %>
Bairro:
 <%= hash(rs("bairro")) %>
Cidade:
 <%= hash(rs("cidade")) %>
Estado:
 <%= hash(rs("estado")) %>
   
CPF:
 <%= hash(rs("cpf")) %>
RG:
 <%= hash(rs("rg")) %>
   
Telefone:
 <%= hash(rs("tel")) %>
   
   
 
CONFIRA ABAIXO AS COMPRAS DO CLIENTE.
<% Set compra = Server.CreateObject("adodb.recordset") compra.CursorLocation = 3 sqlcompra = "SELECT * FROM compras WHERE clienteid='"&rs("email")&"'" compra.Open sqlcompra,conexao,3 if compra.eof or compra.bof then %>
Este cliente não efetuou nenhuma compra até a data de hoje.

<%else %>
<%while not compra.eof Select Case compra("status") Case "0" status = "Aguardando confirmação de Pagamento do Pedido." Case "1" status = "Pagamento confirmado. Encaminhado para envio." Case "2" status = "Produto enviado. Aguardando confirmação de recebimento." Case "3" status = "Produto entregue ao cliente. Venda Concluída!" Case "4" status = "Produto Extraviado. Aguardando retorno do produto ao lojista." Case "5" status = "Produto enviado para substituição ou garantia." Case "6" status = "Compra cancelada por fim do prazo para pagamento." Case "7" status = "Favor entrar em contato com o Lojista." Case "8" status = "Compra cancelada. Favor entrar em contato." end select %> <%compra.movenext wend%>
Data Valor Status
"><%=compra("datacompra")%> ">R$ <%=formatnumber( hash(compra("totalcompra")) ,2)%> "><%=status%>
<%end if rs.close set rs = nothing %>
 
<% end if %>

CONFIRA ABAIXO OS CLIENTES CADASTRADOS

Vizualize os clientes cadastrados na loja
Com esta opção você poderá ver a lista completa de clientes cadastrados em sua loja e ver a lista de compra de cada cliente