<%
modo = request("modo")
select case modo%>
<%
'********************************************** NOVO CLIENTE
case "novo_cliente"%>
| * CPF/CNPJ: | |
| * IE/RG: | |
| * Nome/Razão Social: | |
| * E-mail: | |
| * Telefone: | |
| * Celular: | |
| * E-mail para login: | |
| * Senha: | |
| * Confirma Senha: | |
Endereço Entrega: | |
| * Logradouro: | * Endereço: |
| * Número: | Complemento: |
| * Bairro: | |
| * Cidade: | |
| * Local de Entrega (UF): | |
| * CEP: | |
| Endereço Cliente: | |
| * Logradouro: | * Endereço: |
| * Número: | Complemento: |
| * Bairro: | |
| * Cidade: | |
| * Local de Entrega (UF): | |
| * CEP: | |
| Endereço Cobrança: | |
| * Logradouro: | * Endereço: |
| * Número: | Complemento: |
| * Bairro: | |
| * Cidade: | |
| * Local de Entrega (UF): | |
| * CEP: | |
<%
'********************************************** GRAVA NOVO CLIENTE
case "grava_novo_cliente"%>
<%
session("erro") = false
documento = valida_q(request("documento"),"CPF/CNPJ")
nome = valida_q(request("nome"),"NOME/RAZÃO SOCIAL")
ddd_tel = valida_q(request("ddd_tel"),"DDD TELEFONE")
telefone = valida_q(request("telefone"),"TELEFONE")
ddd_cel = valida_nq(request("ddd_cel"))
celular = valida_nq(request("celular"))
email = valida_q(request("email"),"EMAIL")
logradouro = valida_q(request("logradouro"),"LOGRADOURO")
endereco = valida_q(request("endereco"),"ENDEREÇO")
numero = valida_q(request("numero"),"NÚMERO")
complemento = valida_nq(request("complemento"))
bairro = valida_q(request("bairro"),"BAIRRO")
cidade = valida_q(request("cidade"),"CIDADE")
cep = valida_q(request("cep"),"CEP")
logradouro_cob = valida_q(request("logradouro_cob"),"LOGRADOURO de COBRANÇA")
endereco_cob = valida_q(request("endereco_cob"),"ENDEREÇO de COBRANÇA")
numero_cob = valida_q(request("numero_cob"),"NÚMERO de COBRANÇA")
complemento_cob = valida_nq(request("complemento_cob"))
bairro_cob = valida_q(request("bairro_cob"),"BAIRRO de COBRANÇA")
cidade_cob = valida_q(request("cidade_cob"),"CIDADE de COBRANÇA")
cep_cob = valida_q(request("cep_cob"),"CEP de COBRANÇA")
uf_cob = valida_q(request("uf_cob"),"UF de COBRANÇA")
logradouro_ent = valida_q(request("logradouro_ent"),"LOGRADOURO de ENTREGA")
endereco_ent = valida_q(request("endereco_ent"),"ENDEREÇO de ENTREGA")
numero_ent = valida_q(request("numero_ent"),"NÚMERO de ENTREGA")
complemento_ent = valida_nq(request("complemento_ent"))
bairro_ent = valida_q(request("bairro_ent"),"BAIRRO de ENTREGA")
cidade_ent = valida_q(request("cidade_ent"),"CIDADE de ENTREGA")
cep_ent = valida_q(request("cep_ent"),"CEP de ENTREGA")
uf = valida_q(request("uf"),"UF")
documento = valida_doc(documento)
cod_local = valida_num(request("cod_local"))
ie_rg = valida_q(request("ie_rg"),"IE/RG")
login_cli = valida_q(request("login_cli"),"LOGIN")
senha = valida_q(request("senha"),"SENHA")
conf_senha = valida_q(request("conf_senha"),"CONFIRMAÇÃO DE SENHA")
if cod_local = 0 then
session("erro") = true
response.write "
" & alerta(14)
end if
if senha <> conf_senha then
session("erro") = true
response.write "
" & alerta(15)
end if
strsql = "select id_cliente from tbl_clientes where login_cli='"&login_cli&"'"
set consulta = conexao.execute(strsql)
if not consulta.eof then
session("erro") = true
response.write "
"&login_cli&" - " & alerta(16)
end if
set consulta = nothing
strsql = "select id_cliente from tbl_clientes where documento='"&documento&"'"
set consulta = conexao.execute(strsql)
if not consulta.eof then
session("erro") = true
response.write "
"&cpf&" - " & alerta(16)
end if
set consulta = nothing
if documento = 0 then
session("erro") = true
response.write "
"& alerta(17)
end if
strsql = "select uf from tbl_locais where id_local="&valida_num(cod_local)
set consulta = conexao.execute(strsql)
if not consulta.eof then
uf_ent = consulta("uf")
end if
set consulta = nothing
strsql = "insert into tbl_clientes("
strsql = strsql & "cod_site,"
strsql = strsql & "documento,"
strsql = strsql & "nome,"
strsql = strsql & "ddd_tel,"
strsql = strsql & "telefone,"
strsql = strsql & "ddd_cel,"
strsql = strsql & "celular,"
strsql = strsql & "email,"
strsql = strsql & "logradouro,"
strsql = strsql & "endereco,"
strsql = strsql & "numero,"
strsql = strsql & "complemento,"
strsql = strsql & "bairro,"
strsql = strsql & "cidade,"
strsql = strsql & "cep,"
strsql = strsql & "uf,"
strsql = strsql & "logradouro_cob,"
strsql = strsql & "endereco_cob,"
strsql = strsql & "numero_cob,"
strsql = strsql & "complemento_cob,"
strsql = strsql & "bairro_cob,"
strsql = strsql & "cidade_cob,"
strsql = strsql & "cep_cob,"
strsql = strsql & "uf_cob,"
strsql = strsql & "logradouro_ent,"
strsql = strsql & "endereco_ent,"
strsql = strsql & "numero_ent,"
strsql = strsql & "complemento_ent,"
strsql = strsql & "bairro_ent,"
strsql = strsql & "cidade_ent,"
strsql = strsql & "cep_ent,"
strsql = strsql & "uf_ent,"
strsql = strsql & "data_cadastro,"
strsql = strsql & "ie_rg,"
strsql = strsql & "login_cli,"
strsql = strsql & "senha,"
strsql = strsql & "cod_local,"
strsql = strsql & "ativo"
strsql = strsql & ")values("
strsql = strsql & cod_site&","
strsql = strsql & "'"&documento&"',"
strsql = strsql & "'"&nome&"',"
strsql = strsql & "'"&ddd_tel&"',"
strsql = strsql & "'"&telefone&"',"
strsql = strsql & "'"&ddd_cel&"',"
strsql = strsql & "'"&celular&"',"
strsql = strsql & "'"&email&"',"
strsql = strsql & "'"&logradouro&"',"
strsql = strsql & "'"&endereco&"',"
strsql = strsql & "'"&numero&"',"
strsql = strsql & "'"&complemento&"',"
strsql = strsql & "'"&bairro&"',"
strsql = strsql & "'"&cidade&"',"
strsql = strsql & "'"&cep&"',"
strsql = strsql & "'"&uf&"',"
strsql = strsql & "'"&logradouro_cob&"',"
strsql = strsql & "'"&endereco_cob&"',"
strsql = strsql & "'"&numero_cob&"',"
strsql = strsql & "'"&complemento_cob&"',"
strsql = strsql & "'"&bairro_cob&"',"
strsql = strsql & "'"&cidade_cob&"',"
strsql = strsql & "'"&cep_cob&"',"
strsql = strsql & "'"&uf_cob&"',"
strsql = strsql & "'"&logradouro_ent&"',"
strsql = strsql & "'"&endereco_ent&"',"
strsql = strsql & "'"&numero_ent&"',"
strsql = strsql & "'"&complemento_ent&"',"
strsql = strsql & "'"&bairro_ent&"',"
strsql = strsql & "'"&cidade_ent&"',"
strsql = strsql & "'"&cep_ent&"',"
strsql = strsql & "'"&uf_ent&"',"
strsql = strsql & data_sistema&","
strsql = strsql & "'"&ie_rg&"',"
strsql = strsql & "'"&login_cli&"',"
strsql = strsql & "'"&senha&"',"
strsql = strsql & cod_local&","
strsql = strsql & "1)"
if session("erro") = false then
conexao.execute(strsql)
call capta_email(nome,email)
strsql = "select max(id_cliente) as maximo from tbl_clientes"
set consulta = conexao.execute(strsql)
session("log_cli") = consulta("maximo")
set consulta = nothing
%>
<%call alerta(18)%>
<%
'modo="home"
response.redirect("carrinho.asp?cod_site="&cod_site)
else%>
<%call alerta(19)%>
<%
end if
%>
<%
'********************************************** GRAVA ALTERAÇÃO DE CADASTRO DO CLIENTE
case "grava_altera_cadastro"%>
<%
session("erro") = false
nome = valida_q(request("nome"),"NOME/RAZÃO SOCIAL")
ddd_tel = valida_q(request("ddd_tel"),"DDD TELEFONE")
telefone = valida_q(request("telefone"),"TELEFONE")
ddd_cel = valida_nq(request("ddd_cel"))
celular = valida_nq(request("celular"))
email = valida_q(request("email"),"EMAIL")
logradouro = valida_q(request("logradouro"),"LOGRADOURO")
endereco = valida_q(request("endereco"),"ENDEREÇO")
numero = valida_q(request("numero"),"NÚMERO")
complemento = valida_nq(request("complemento"))
bairro = valida_q(request("bairro"),"BAIRRO")
cidade = valida_q(request("cidade"),"CIDADE")
cep = valida_q(request("cep"),"CEP")
logradouro_cob = valida_q(request("logradouro_cob"),"LOGRADOURO de COBRANÇA")
endereco_cob = valida_q(request("endereco_cob"),"ENDEREÇO de COBRANÇA")
numero_cob = valida_q(request("numero_cob"),"NÚMERO de COBRANÇA")
complemento_cob = valida_nq(request("complemento_cob"))
bairro_cob = valida_q(request("bairro_cob"),"BAIRRO de COBRANÇA")
cidade_cob = valida_q(request("cidade_cob"),"CIDADE de COBRANÇA")
cep_cob = valida_q(request("cep_cob"),"CEP de COBRANÇA")
uf_cob = valida_q(request("uf_cob"),"UF de COBRANÇA")
logradouro_ent = valida_q(request("logradouro_ent"),"LOGRADOURO de ENTREGA")
endereco_ent = valida_q(request("endereco_ent"),"ENDEREÇO de ENTREGA")
numero_ent = valida_q(request("numero_ent"),"NÚMERO de ENTREGA")
complemento_ent = valida_nq(request("complemento_ent"))
bairro_ent = valida_q(request("bairro_ent"),"BAIRRO de ENTREGA")
cidade_ent = valida_q(request("cidade_ent"),"CIDADE de ENTREGA")
cep_ent = valida_q(request("cep_ent"),"CEP de ENTREGA")
uf = valida_q(request("uf"),"UF")
ativo = valida_a(request("ativo"))
documento = valida_doc(documento)
cod_local = valida_num(request("cod_local"))
ie_rg = valida_q(request("ie_rg"),"IE/RG")
login_cli = valida_q(request("login_cli"),"LOGIN")
senha = valida_q(request("senha"),"SENHA")
conf_senha = valida_q(request("conf_senha"),"CONFIRMAÇÃO DE SENHA")
if cod_local = 0 then
session("erro") = true
response.write " <%call alerta(18)%>
<%
end if
modo="home"
else%>
<%call alerta(19)%>
<%
end if
%>
<%
'********************************************** ABRE CADASTRO DO CLIENTE
case "abre_cadastro"%>
<%
if len(session("log_cli"))> 0 then
strsql = "select * from tbl_clientes where id_cliente="&session("log_cli")
set consulta = conexao.execute(strsql)
if not consulta.eof then
%>
<%
if len(request("msg")) > 0 then
%>
<%end if%>
Endereço Entrega
<%else%>
<%call alerta(20)%>
<%end if%>
<%
else
response.write alerta(21)
end if
'********************************************** ABRE UM PEDIDO DE COMPRAS PARA VISUALIZAÇÃO
case "abrir_pedido"
if len(session("log_cli"))> 0 then
%>
Abre um pedido para visualização
<%
else
response.write alerta(21)
end if
'********************************************** CANCELA UM PEDIDO DE COMPRAS
case "cancela_pedido"
if len(session("log_cli"))> 0 then
%>
Grava cancelamento do pedido
<%
else
response.write alerta(21)
end if
'********************************************** EFETUA O LOGOFF
case "logoff"%>
executa logoff
<%
'********************************************** PROCESSA LOGIN
case "loga"
login_cli = valida_nq(request("login_cli"))
senha = valida_nq(request("senha"))
strsql = "select id_cliente from tbl_clientes where login_cli='"&login_cli&"' and senha='"&senha&"' and ativo=1"
set consulta = conexao.execute(strsql)
if not consulta.eof then
session("log_cli") = consulta("id_cliente")
set consulta = nothing
if len(session("cod_pedido_temp")) > 0 then
response.redirect("carrinho.asp?cod_site="&cod_site)
else
response.redirect("cadastro_cli.asp?cod_site="&cod_site)
end if
else
set consulta = nothing
modo = ""
response.write " " & alerta(22)
end if
end select
if modo = "envia_senha" then
documento = valida_doc(request("documento"))
email = valida_nq(request("email"))
login_cli = valida_nq(request("login_cli"))
if documento > 0 then
strsql = "select login_cli,senha,email,nome from tbl_clientes where documento='"&documento&"'"
end if
if len(login_cli) > 0 then
strsql = "select login_cli,senha,email,nome from tbl_clientes where login_cli='"&login_cli&"'"
end if
if len(email) > 0 then
strsql = "select login_cli,senha,email,nome from tbl_clientes where email='"&email&"'"
end if
if len(strsql)>0 then
set consulta = conexao.execute(strsql)
if not consulta.eof then
strsql2 = "select email from tbl_usuarios where relaciona like '%Loja Virtual%'"
set consulta2 = conexao.execute(strsql)
if not consulta2.eof then
email_de = consulta2("email")
end if
set consulta2 = nothing
nome_de = nome_site_principal
email_para = consulta("email")
assunto = "Lembrete de Senha"
mensagem = " Lembrete de senha: Nome: "&consulta("nome")&" Acesse o site: "&endereco_site&" para se logar e efetivar suas compras."
if envia_email(nome_para,email_para,nome_de,email_de,assunto,mensagem) then
response.write alerta(23)
else
response.write alerta(24)
end if
else
response.write alerta(25)
end if
else
response.write alerta(26)
end if
end if
if modo = "lembra_senha" then
%>
<%call alerta(27)%>
<%call alerta(28)%>
Cliente: <%=consulta("nome")%>
<%
set consulta = nothing
%>
"&alerta(14)
end if
if senha <> conf_senha then
session("erro") = true
response.write "
"&alerta(15)
end if
strsql = "select id_cliente from tbl_clientes where login_cli='"&login_cli&"' and id_cliente<>"&valida_num(request("id_cliente"))
set consulta = conexao.execute(strsql)
if not consulta.eof then
session("erro") = true
response.write "
"&login_cli&" - "&alerta(16)
end if
set consulta = nothing
strsql = "select uf from tbl_locais where id_local="&valida_num(cod_local)
set consulta = conexao.execute(strsql)
if not consulta.eof then
uf_ent = consulta("uf")
end if
set consulta = nothing
strsql = "update tbl_clientes set "
strsql = strsql & "nome='"&nome&"',"
strsql = strsql & "ddd_tel='"&ddd_tel&"',"
strsql = strsql & "telefone='"&telefone&"',"
strsql = strsql & "ddd_cel='"&ddd_cel&"',"
strsql = strsql & "celular='"&celular&"',"
strsql = strsql & "email='"&email&"',"
strsql = strsql & "logradouro='"&logradouro&"',"
strsql = strsql & "endereco='"&endereco&"',"
strsql = strsql & "numero='"&numero&"',"
strsql = strsql & "complemento='"&complemento&"',"
strsql = strsql & "bairro='"&bairro&"',"
strsql = strsql & "cidade='"&cidade&"',"
strsql = strsql & "cep='"&cep&"',"
strsql = strsql & "uf='"&uf&"',"
strsql = strsql & "logradouro_ent='"&logradouro_ent&"',"
strsql = strsql & "endereco_ent='"&endereco_ent&"',"
strsql = strsql & "numero_ent='"&numero_ent&"',"
strsql = strsql & "complemento_ent='"&complemento_ent&"',"
strsql = strsql & "bairro_ent='"&bairro_ent&"',"
strsql = strsql & "cidade_ent='"&cidade_ent&"',"
strsql = strsql & "cep_ent='"&cep_ent&"',"
strsql = strsql & "uf_ent='"&uf_ent&"',"
strsql = strsql & "logradouro_cob='"&logradouro_cob&"',"
strsql = strsql & "endereco_cob='"&endereco_cob&"',"
strsql = strsql & "numero_cob='"&numero_cob&"',"
strsql = strsql & "complemento_cob='"&complemento_cob&"',"
strsql = strsql & "bairro_cob='"&bairro_cob&"',"
strsql = strsql & "cidade_cob='"&cidade_cob&"',"
strsql = strsql & "cep_cob='"&cep_cob&"',"
strsql = strsql & "uf_cob='"&uf_cob&"',"
strsql = strsql & "data_cadastro="&data_sistema&","
strsql = strsql & "ie_rg='"&ie_rg&"',"
strsql = strsql & "login_cli='"&login_cli&"',"
strsql = strsql & "senha='"&senha&"',"
strsql = strsql & "cod_local="&cod_local
strsql = strsql & " where id_cliente="&valida_num(request("id_cliente"))
if session("erro") = false then
conexao.execute(strsql)
if len(request("msg")) > 0 then
response.redirect("carrinho.asp?cod_site="&cod_site)
else
%>
* CPF/CNPJ:
" class=campo readonly>
* IE/RG:
" class=campo>
* Nome/Razão Social:
" class=campo>
* E-mail:
" class=campo>
* Telefone:
" class=campo> " class=campo>
* Celular:
" class=campo> " class=campo>
* E-mail para login:
" class=campo>
* Senha:
" class=campo>
* Confirma Senha:
" class=campo>
* Logradouro:
* Endereço:
" class=campo>
* Número:
" class=campo>
Complemento:
" class=campo>
* Bairro:
" class=campo>
* Cidade:
" class=campo>
* Local de Entrega (UF):
* CEP:
" class=campo>
Endereço Cliente:
* Logradouro:
* Endereço:
" class=campo>
* Número:
" class=campo>
Complemento:
" class=campo>
* Bairro:
" class=campo>
* Cidade:
" class=campo>
* UF:
* CEP:
" class=campo>
Endereço Cobrança
* Logradouro:
* Endereço:
" class=campo>
* Número:
" class=campo>
Complemento:
" class=campo>
* Bairro:
" class=campo>
* Cidade:
" class=campo>
* UF:
* CEP:
" class=campo>
Login: "&consulta("login_cli")&"
Senha: "&consulta("senha")
mensagem = mensagem & "
: : <%call alerta(129)%>
<%
end if
if modo = "" then
if len(session("log_cli"))> 0 then
modo = "home"
else
%>
: : <%call alerta(129)%>
: : <%call alerta(100)%>
<%
end if
end if
%>
<%if modo ="home" then
if request("carrinho") = "sim" then
response.redirect("carrinho.asp?cod_site="&cod_site)
end if
'********************************************** HOME DE CADASTRO
if len(session("log_cli"))> 0 then
strsql = "select nome from tbl_clientes where id_cliente="&session("log_cli")
set consulta = conexao.execute(strsql)
if not consulta.eof then
%>
<%call alerta(150)%>
<%call alerta(12)%>
<%call alerta(30)%>
<%call alerta(29)%>
<%
strsql = "select id_pedido,data_compra,tbl_pedidos_status.nome as status,desconto,valor_produtos,valor_entrega,desconto_frete from tbl_pedidos,tbl_pedidos_status where status = id_status and id_cliente="&session("log_cli")
set consulta = conexao.execute(strsql)
if not consulta.eof then
%>
<%
else
response.write alerta(31)
end if
set consulta = nothing
else
set consulta = nothing
response.write alerta(20)
end if
else
response.write alerta(21)
end if
end if
%>
Código do Pedido Data da Compra Total do Pedido Status "><%=consulta("id_pedido")%> "><%=consulta("data_compra")%> R$ <%=formatnumber(total,2)%> <%=consulta("status")%>