<% '##### CLIENTES 'Sub ClientesASP() If Request("acaba") = "sim" Then Session("adm_descprod") = "" Session("adm_email") = "" End If Select Case strAcao Case "ver" strTextoHtml = strTextoHtml & " Administrar clientes cadastrados na loja

---

" finalera = Request.QueryString("final") pag = Request.QueryString("itens") pesss = Trim(Request.QueryString("pesq")) pagdxx = Request.QueryString("pagina") pesqsa = Request.QueryString("pesqsa") catege = Request("cat") if pesss = "" Then pesss = "-" palavra = Split(Trim("asdfghjklçqwertyuiopzxcvbnm"), " ") Else pesss = pesss palavra = Split(Trim(Request.QueryString("pesq")), " ") End If If pag = "" Then inicial = 0 final = 10 Else inicial = pag final = 10 End If If pesqsa = "" Then restinho = "" catege = "todos" ElseIf catege = "todos" Or catege = "xxx" Or catege = "" Then resto = "" Else resto = "idsessao = '" & catege & "' and" End If palavraz = Split(Trim(pesqsa), " ") if VersaoDb = 1 then restinho = "WHERE nome LIKE '%" & Cripto(palavraz(0),true) & "%'" else restinho = "WHERE nome LIKE '%" & Cripto(palavraz(0),true) & "%'" end if Set rs = conexao.Execute("SELECT * FROM clientes " & restinho & " ORDER by nome asc") If rs.EOF Or rs.bof Then strTextoHtml = strTextoHtml & "

" strTextoHtml = strTextoHtml & "Cliente(s) encontrado(s): 0" & totalreg & " " strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & " Para uma busca mais detalhada dos clientes cadastrados na loja realize uma pesquisa com o nome e/ou palavra-chave do cliente que você procura. " strTextoHtml = strTextoHtml & " " strTextoHtml = strTextoHtml & " " strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & " Nenhum cliente foi encontrado na base de dados da loja. " strTextoHtml = strTextoHtml & " " strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & " " strTextoHtml = strTextoHtml & " Voltar para Página Inicial

" Else Set rs2 = conexao.Execute("SELECT count(nome) AS total FROM clientes " & restinho & ";") totalreg = rs2("total") rs2.Close Set rs2 = Nothing numiz = Request("pagina") & "0" numiz = CInt(numiz) iz = iz + numiz strTextoHtml = strTextoHtml & "

" strTextoHtml = strTextoHtml & "Cliente(s) encontrado(s): " & totalreg & " " strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & " Para uma busca mais detalhada dos clientes cadastrados na loja realize uma pesquisa com o nome e/ou palavra-chave do cliente que você procura. " strTextoHtml = strTextoHtml & " " strTextoHtml = strTextoHtml & " " If Request("status") = "sucesso" Then strTextoHtml = strTextoHtml & " CLIENTE EXCLUÍDO COM SUCESSO! " Else strTextoHtml = strTextoHtml & " " End If strTextoHtml = strTextoHtml & "" While Not rs.EOF iz = iz + 1 varestoq = "" & Cripto(rs("email"), False) & "" & vbNewLine strTextoHtml = strTextoHtml & "" & vbNewLine strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & " " strTextoHtml = strTextoHtml & " " & iz & ") " & UCASE(Cripto(rs("nome"),False)) & "       Data do cadastro: " & rs("datacad") & "    E-mail: " & varestoq & " Ação: Ver | Excluir  " rs.movenext Wend strTextoHtml = strTextoHtml & " Voltar para Página Inicial

" rs.Close Set rs = Nothing End If Case "exclui" notz = Request.QueryString("cli") Set dados = conexao.Execute("delete from clientes where clienteid = " & notz & ";") Response.Redirect "?link=clientes&acao=ver&status=sucesso" Case "olhar" if VersaoDb = 1 then Set dados = conexao.Execute("SELECT clienteid, datacad AS data, nome, email, senha, nascimento, cpf, rg, endereco, bairro, cidade, estado, cep, pais, tel , contato FROM clientes WHERE clienteid='" & Request("cli") & "';") else Set dados = conexao.Execute("SELECT clientes.*, clientes.datacad AS data FROM clientes WHERE clienteid=" & Request("cli")) end if If dados.EOF Or dados.EOF Then Conn.Close Set Conn = Nothing Response.Redirect "administrador.asp" Else strNome = Cripto(dados("nome"), False) strEmail = Cripto(dados("email"),False) strNasc = Cripto(dados("nascimento"),False) strCpf = Cripto(dados("cpf"),False) strRg = Cripto(dados("rg"),False) strEndereco = Cripto(dados("endereco"),False) strBairro = Cripto(dados("bairro"),False) strCidade = Cripto(dados("cidade"),False) strEstado = Cripto(dados("estado"),False) strCep = Cripto(dados("cep"),False) strData = dados("data") strPais = Cripto(dados("pais"),False) strClienteid = dados("email") strFone = Cripto(dados("tel"),False) strContato = Cripto(dados("contato"), False) strSenha = Cripto(dados("senha"),False) numero = InStr(1, strNasc, "/") dia = Left(strNasc, numero) s = "" For x = 1 To Len(dia) ch = Mid(dia, x, 1) If Asc(ch) >= 48 And Asc(ch) <= 57 Then s = s & ch End If Next dia = s Mes = Mid(strNasc, 4, 2) SELECT CASE Mes CASE "01" Mes = "janeiro" CASE "02" Mes = "fevereiro" CASE "03" Mes = "março" CASE "04" Mes = "abril" CASE "05" Mes = "maio" CASE "06" Mes = "junho" CASE "07" Mes = "julho" CASE "08" Mes = "agosto" CASE "09" Mes = "setembro" CASE "10" Mes = "outubro" CASE "11" Mes = "novembro" CASE "12" Mes = "dezembro" End SELECT Ano = Right(strNasc, 4) Select Case strEstado Case "AC" estadoz = "Acre" Case "AL" estadoz = "Alagoas" Case "AP" estadoz = "Amapá" Case "AM" estadoz = "Amazonas" Case "BA" estadoz = "Bahia" Case "CE" estadoz = "Ceará" Case "DF" estadoz = "Distrito Federal" Case "ES" estadoz = "Espirito Santo" Case "GO" estadoz = "Goiás" Case "MA" estadoz = "Maranhão" Case "MT" estadoz = "Mato Grosso" Case "MS" estadoz = "Mato Grosso do Sul" Case "MG" estadoz = "Minas Gerais" Case "PA" estadoz = "Pará" Case "PB" estadoz = "Paraiba" Case "PR" estadoz = "Parana" Case "PE" estadoz = "Pernambuco" Case "PI" estadoz = "Piauí" Case "RJ" estadoz = "Rio de Janeiro" Case "RN" estadoz = "Rio Grande do Norte" Case "RS" estadoz = "Rio Grande do Sul" Case "RO" estadoz = "Rondônia" Case "RR" estadoz = "Roraima" Case "SC" estadoz = "Santa Catarina" Case "SP" estadoz = "São Paulo" Case "SE" estadoz = "Sergipe" Case "TO" estadoz = "Tocantins" End Select Set rs = conexao.Execute("select * from compras where clienteid='" & strClienteid & "';") strTextoHtml = strTextoHtml & " Ver cliente cadastrado na loja

---

" strTextoHtml = strTextoHtml & "

---

" strTextoHtml = strTextoHtml & "Voltar e ver mais clientes" strTextoHtml = strTextoHtml & "

---

" strTextoHtml = strTextoHtml & "

---

" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" Set rs2 = conexao.Execute("SELECT count(pedido) AS total FROM compras WHERE clienteid = '" & strClienteid & "';") totalreg = rs2("total") rs2.Close Set rs2 = Nothing numiz = Request("pagina") & "0" numiz = CInt(numiz) * 2 iz = iz + numiz strTextoHtml = strTextoHtml & "

Dados do Cliente
Data do cadastro:	" & strData & "
Nome / Razão Social:	" & strNome & "
E-mail:	" & strEmail & "
Senha:	" & strSenha & "
Nascimento:	" & dia & " de " & Mes & " de " & Ano & "
CPF / CNPJ:	" & strCpf & "
RG / IE:	" & strRg & "
Endereço:	" & strEndereco & "
Bairro:	" & strBairro & "
Cidade:	" & strCidade & "
Estado:	" & estadoz & "
CEP:	" & strCep & "
País:	" & strPais & "
Telefone:	" & strFone & "
Nome do Contato:	" & strContato & "
Compras efetuadas

" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "

Compra(s) efetuada(s): " & totalreg & "

" If Request("status") = "sucesso" Then strTextoHtml = strTextoHtml & "COMPRA EXCLUÍDA COM SUCESSO! " Else End If strTextoHtml = strTextoHtml & "" While Not rs.EOF iz = iz + 1 Select Case rs("estadoentrega") Case "AC" estadoz = "Acre" Case "AL" estadoz = "Alagoas" Case "AP" estadoz = "Amapá" Case "AM" estadoz = "Amazonas" Case "BA" estadoz = "Bahia" Case "CE" estadoz = "Ceará" Case "DF" estadoz = "Distrito Federal" Case "ES" estadoz = "Espirito Santo" Case "GO" estadoz = "Goiás" Case "MA" estadoz = "Maranhão" Case "MT" estadoz = "Mato Grosso" Case "MS" estadoz = "Mato Grosso do Sul" Case "MG" estadoz = "Minas Gerais" Case "PA" estadoz = "Pará" Case "PB" estadoz = "Paraiba" Case "PR" estadoz = "Parana" Case "PE" estadoz = "Pernambuco" Case "PI" estadoz = "Piauí" Case "RJ" estadoz = "Rio de Janeiro" Case "RN" estadoz = "Rio Grande do Norte" Case "RS" estadoz = "Rio Grande do Sul" Case "RO" estadoz = "Rondônia" Case "RR" estadoz = "Roraima" Case "SC" estadoz = "Santa Catarina" Case "SP" estadoz = "São Paulo" Case "SE" estadoz = "Sergipe" Case "TO" estadoz = "Tocantins" End Select Set rs3 = conexao.Execute("select nome, email from clientes where email='" & strClienteid & "'") on error resume next strTextoHtml = strTextoHtml & " " & vbNewLine strTextoHtml = strTextoHtml & "" & vbNewLine strTextoHtml = strTextoHtml & " " & iz & ") Compra feita por: " & UCase(Cripto(rs3("nome"),false)) & "       Frete para: " & estadoz & "    Total da compra: R$ " & FormatNumber(-1 + Cripto(rs("totalcompra"),false) + Cripto(rs("frete"),false) + 1, 2) & " Ação: Ver | Excluir  " rs.movenext pagn = inicial + 20 Wend paga = pagn - 40 strTextoHtml = strTextoHtml & "

" strTextoHtml = strTextoHtml & "

---

Voltar para Página Inicial" End If Case "verc" Set rs = conexao.Execute("select * from compras where idcompra=" & Request("compra") & ";") Set rs3 = conexao.Execute("select * from clientes where email='" & rs("clienteid") & "'") strTextoHtml = strTextoHtml & " Ver detalhes da compra

---

" strTextoHtml = strTextoHtml & "

---

" strTextoHtml = strTextoHtml & "Voltar e ver detalhes do cliente " & Cripto(rs3("nome"),false) & "" strTextoHtml = strTextoHtml & "

---

" strTextoHtml = strTextoHtml & "

---

" strTextoHtml = strTextoHtml & "Compra efetuada pelo cliente: " & UCase(Cripto(rs3("nome"),false)) & "
" strTextoHtml = strTextoHtml & "Pedido n^o : #" & rs("pedido") & "
" strTextoHtml = strTextoHtml & "
" Select Case rs("estadoentrega") Case "AC" estadoz = "Acre" Case "AL" estadoz = "Alagoas" Case "AP" estadoz = "Amapá" Case "AM" estadoz = "Amazonas" Case "BA" estadoz = "Bahia" Case "CE" estadoz = "Ceará" Case "DF" estadoz = "Distrito Federal" Case "ES" estadoz = "Espirito Santo" Case "GO" estadoz = "Goiás" Case "MA" estadoz = "Maranhão" Case "MT" estadoz = "Mato Grosso" Case "MS" estadoz = "Mato Grosso do Sul" Case "MG" estadoz = "Minas Gerais" Case "PA" estadoz = "Pará" Case "PB" estadoz = "Paraiba" Case "PR" estadoz = "Parana" Case "PE" estadoz = "Pernambuco" Case "PI" estadoz = "Piauí" Case "RJ" estadoz = "Rio de Janeiro" Case "RN" estadoz = "Rio Grande do Norte" Case "RS" estadoz = "Rio Grande do Sul" Case "RO" estadoz = "Rondônia" Case "RR" estadoz = "Roraima" Case "SC" estadoz = "Santa Catarina" Case "SP" estadoz = "São Paulo" Case "SE" estadoz = "Sergipe" Case "TO" estadoz = "Tocantins" End Select If rs("status") = "0" Then estatuzz = "Aguardando confirmação de pagamento" End If If rs("status") = "1" Then estatuzz = "Pagamento confirmado e Processar Compra" End If If rs("status") = "2" Then estatuzz = "Compra já enviada ao cliente" End If If rs("status") = "3" Then estatuzz = "Compra Já Entregue" End If If rs("status") = "4" Then estatuzz = "Compra Cancelada" End If If rs("status") = "5" Then estatuzz = "Compra Negada" End If If rs("status") = "6" Then estatuzz = "Outras - Contate o Atendimento" End If strTextoHtml = strTextoHtml & "STAUS DA COMPRA EFETUADA:

---

" strTextoHtml = strTextoHtml & "

Status da compra:

" & estatuzz & " Clique aqui para mudar o Status acima

" strTextoHtml = strTextoHtml & "
DADOS PARA ENTREGA DO PEDIDO:

---

" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" estimativa = CDate(rs("datacompra")) + 10 If Mid(estimativa, 2, 1) = "/" Then estimativa = "0" & estimativa Else estimativa = estimativa End If If Mid(estimativa, 5, 1) = "/" Then estimativa = Mid(estimativa, 1, 3) & "0" & Mid(estimativa, 4, 99) Else estimativa = estimativa End If strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "

Data da compra:	" & rs("datacompra") & "
Estimativa para entrega:	" & estimativa & "
Endereço:	" & Cripto(rs("endentrega"),false) & "
Bairro:	" & Cripto(rs("bairroentrega"),false) & "
Cidade:	" & Cripto(rs("cidadeentrega"),false) & "
Estado:	" & estadoz & "
País:	Brasil
CEP:	" & Cripto(rs("cepentrega"),false) & "
Telefone:	" & Cripto(rs("telentrega"),false) & "

" strTextoHtml = strTextoHtml & "DADOS DA COMPRA E PAGAMENTO:

---

" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" Set rs10 = conexao.execute("SELECT * FROM pedidos WHERE idcompra = '" & Request("compra") & "';") If rs10.EOF Then Else While Not rs10.EOF Set prod = conexao.Execute("select * from produtos where idprod = " & rs10("idprod") & ";") If prod.bof Or prod.EOF Then strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" End If rs10.movenext Wend rs10.Close End If totalcompra = Cripto(rs("totalcompra"),false) totalfrete = Cripto(rs("frete"),false) Status = rs("status") pagamento = rs("pagamentovia") intcomprasz = totalcompra + 1 + totalfrete - 1 comprasz = intcomprasz comprasz = Replace(comprasz, "-", "") data = rs("datacompra") Select Case pagamento Case "0" ver = "Cartão de Crédito - Visa" Case "1" ver = "Cartão de Crédito - Mastercard" Case "2" ver = "Cartão de Crédito - Dinners" Case "3" ver = "Cartão de Crédito - American Express" Case "4" ver = "SEDEX à cobrar" Case "5" ver = "Depósito Bancário" Case "6" ver = "Transferência Eletrônica" Case "7" ver = "Boleto Bancário" End Select If Status = "0" Then estatus = "Aguardando confirmação de pagamento" If pagamento = "0" or pagamento = "1" or pagamento = "2" or pagamento = "3" or pagamento = "4" Then ver2 = "Aguardando confirmação com a operadora do cartão de credito" Else ver2 = "Aguardando confirmação de pagamento" End If End If If Status = "1" Then estatus = "Pagamento confirmado e Compra em processamento" If pagamento = "0" or pagamento = "1" or pagamento = "2" or pagamento = "3" or pagamento = "4" Then ver2 = "Pagamento confirmado com a operadora do cartão de credito, com envio de email informando ao cliente" Else ver2 = "Pagamento confirmado, com envio de email informando ao cliente" End If End If If Status = "2" Then estatus = "Compra já enviada ao cliente" ver2 = "Compra enviada, com envio de email informando ao cliente" End If If Status = "3" Then estatus = "Compra Já Entregue" ver2 = "Pagamento já efetuado" End If If Status = "4" Then estatus = "Compra Cancelada" ver2 = "Pagamento cancelado, com envio de email confirmando ao cliente" End If If Status = "5" Then estatus = "Compra Negada" ver2 = "Pagamento cancelado, com envio de email informando ao cliente" End If If Status = "6" Then estatus = "Outras - Contate o Atendimento" ver2 = "Pagamento ou Compra com problemas, com envio de email informando ao cliente para entrar em contato" End If comprazw = FormatNumber(comprasz, 2) totalfretezw = FormatNumber(totalfrete, 2) totalcomprazw = FormatNumber(totalcompra, 2) select case pagamento case 0,1,2,3 strInf = "" strInf = strInf & "" strInf = strInf & "" strInf = strInf & "" case else strInf = "" end select strTextoHtml = strTextoHtml & "

Cód.	Produto	Quant.	Valor Unit.	Valor Total
#	O produto comprado não estão mais presente na loja" Else codigo = prod("idprod") prodnome = prod("nome") preconormal = prod("preco") quantidade = rs10("quantidade") subpreco = FormatNumber(preconormal, 2) totpreco = FormatNumber((quantidade * preconormal), 2) strTextoHtml = strTextoHtml & "
" & codigo & "	" & prodnome & "	" & quantidade & "	R$ " & subpreco & "	R$ " & totpreco & "
Número do Cartão	" & Cripto(rs("numero"),false) & "
Vencimento	" & Cripto(rs("codigo_seguranca"),false) & "
Vencimento	" & Cripto(rs("vencimento"),false) & "
Titular do Cartão	" & Cripto(rs("titular"),false) & "

---

" strTextoHtml = strTextoHtml & "

Sub-total

R$ " & totalcomprazw & "

" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "

Frete	R$ " & totalfretezw & "
Valor total da compra	R$ " & comprazw & "

---

" select case pagamento case 0,1,2,3 strInf = "" strInf = strInf & "" strInf = strInf & "" strInf = strInf & "" case else strInf = "" end select strTextoHtml = strTextoHtml & strInf strTextoHtml = strTextoHtml & "

Forma de Pagamento	" & ver & "
Número do Cartão	" & Cripto(rs("numero"),false) & "
Código de Segurança	" & Cripto(rs("codigo_seguranca"),false) & "
Vencimento	" & Cripto(rs("vencimento"),false) & "
Titular do Cartão	" & Cripto(rs("titular"),false) & "
Status Visível p/ o Cliente	" & ver2 & "

" strTextoHtml = strTextoHtml & "

---

Voltar para página inicial
" Case "excluirc" notz = Request.QueryString("compra") Set exc_compras = conexao.Execute("delete * from compras where idcompra=" & notz & ";") 'Sem esta rotina, aparece "carrinhos-fantasmas" ... Set exc_pedidos = conexao.Execute("delete * from pedidos where idcompra='" & notz & "';") Response.Redirect "?link=clientes&acao=olhar&cli=" & Request("cli") & "&status=sucesso" End Select 'End Sub %>