SCRIPT NAO VERIFICA USUARIO NEM EMAIL CADASTRADO

GONTIJOBR 17/04/2012 10:18:40
#400039
[txt-color=#e80000]ALGUéM PODERIA ME AJUDAR..... TENHO ESSE SCRIPT, MAS QUANDO EU PROCESSO O CADASTRO DO CLIENTE ELE NÃO VERIFICA SE JÁ EXISTE O APELIDO E NEM O EMAIL................................... ALGUéM SABE O QUE ESTÁ ERRADO???? FICO NO AGUARDO.....
[/txt-color]


<%
Cpf = clean(request.form([Ô]txtCpf[Ô]))
apelido = clean(request.form([Ô]txApelido[Ô]))
interesses = request([Ô]txt_interesses[Ô])

If Cpf <> [Ô][Ô] and apelido <> [Ô][Ô] then
Dim CodCliente
CodCliente = ClientExists(Cpf)

[ô]Session([Ô]CliCodigo[Ô]) = CodCliente

If CodCliente = 0 then
[ô]Verifica se o email do cadastro já está destinado a outra pessoa
Set rr = Conn.execute([Ô]Select codcliente From clientes Where lcase(rtrim(ltrim(Email))) = [ô][Ô] & lcase(rtrim(ltrim(request.form([Ô]Email[Ô])))) & [Ô][ô] And CPF <> [ô][Ô] & Cpf & [Ô][ô][Ô])
if not rr.eof then
%>
<script language=[Ô]javascript[Ô]>
alert([ô]O email informado, já está registrado para outro cliente![ô]);
history.back();
</script>
<%
else
[ô]Verifica se o apelido já existe para outra pessoa

Set rt = Conn.execute([Ô]Select codcliente From clientes Where lcase(rtrim(ltrim(apelido))) = [ô][Ô] & lcase(rtrim(ltrim(request.form([Ô]apelido[Ô])))) & [Ô][ô] And CPF <> [ô][Ô] & Cpf & [Ô][ô][Ô])
if not rt.eof then
%>
<script language=[Ô]javascript[Ô]>
alert([ô]O apelido informado, já está registrado para outro cliente![ô]);
history.back();
</script>
<%
else

ClienteInsert()

end if
end if
rt.close
Set rt = nothing
else
%>
<script language=[Ô]javascript[Ô]>
alert([ô]Cpf já cadastrado![ô]);
window.location = [ô]login.asp?type=1[ô];
</script>
<%
end if
end if
KERPLUNK 17/04/2012 10:20:34
#400040 Resposta escolhida
Verifique o valor de:
CodCliente = ClientExists(Cpf)
GONTIJOBR 17/04/2012 10:30:58
#400043
Então, programação em ASP não é muito meu negócio.... como verificar isso???
KERPLUNK 17/04/2012 10:35:10
#400044
CodCliente = ClientExists(Cpf)
%>
<script language=[Ô]javascript[Ô]>
alert([ô]<% CodCliente %>[ô]);
history.back();
</script>
<%

...Restante do código
GONTIJOBR 17/04/2012 10:41:04
#400046
Nao aconteceu nada.... apareceu uma pagina em branco.... mas o valor é o CPF da pessoa......
GONTIJOBR 17/04/2012 10:57:44
#400048
Alguem pode me ajudar???
KERPLUNK 17/04/2012 11:01:18
#400050
Então, se o valor de CodCliente é o CPF da pessoa, então NUNCA vai entrar no bloco condicional
If CodCliente = 0 then


Acho que deveria ser
If CodCliente <> 0 then

Assim, quando tiver um valor de CPF daí sim, vai entrar nas validações que você quer.
GONTIJOBR 17/04/2012 11:19:45
#400053
Eu sei pessoal que já estou chato, mas não resolveu..... o valor CPF ele pega do formulário.............

Dai quando coloco lá [txt-color=#e80000]If CodCliente <> 0 then[/txt-color] ele pula pra cá:
[txt-color=#e80000]
%>
<script language=[Ô]javascript[Ô]>
alert([ô]CPF Já Cadastrado![ô]);
window.location = [ô]login.asp?type=1[ô];
</script>
<%[/txt-color]
KERPLUNK 17/04/2012 11:28:57
#400056
A lógica das queries está estranha...
Para verificar se o e-mail existe, seria:
Set rr = Conn.execute([Ô]Select count(0) as conta From clientes Where lcase(rtrim(ltrim(Email))) = [ô][Ô] & lcase(rtrim(ltrim(request.form([Ô]Email[Ô])))))
if rr([Ô]conta[Ô]) >0 then
%>
<script language=[Ô]javascript[Ô]>
alert([ô]O email informado, já está registrado para outro cliente![ô]);
history.back();
</script>
<%
end if
Set rt = Conn.execute([Ô]Select count(0) as conta From clientes Where lcase(rtrim(ltrim(apelido))) = [ô][Ô] & lcase(rtrim(ltrim(request.form([Ô]apelido[Ô])))))
if rt([Ô]conta[Ô]) > 0 then
%>
<script language=[Ô]javascript[Ô]>
alert([ô]Apelido Já Cadastrado![ô]);
window.location = [ô]login.asp?type=1[ô];
</script>
<%
end if
Set rt = Conn.execute([Ô]Select count(0) as conta From clientes Where CPF = [ô][Ô] & cpf & [Ô][ô][Ô])
if rt([Ô]conta[Ô]) > 0 then
%>
<script language=[Ô]javascript[Ô]>
alert([ô]CPF Já Cadastrado![ô]);
window.location = [ô]login.asp?type=1[ô];
</script>
<%
end if


Eu faria isso...
GONTIJOBR 17/04/2012 11:59:11
#400063
Desculpa a insistência, mas é que não trabalho com plataforma Microsoft.... Eu estou ajudando um amigo que tem uma empresa dando manutenção..... Eu vi ASP somente na faculdade em 2007 e nunca mais!!

Eu vi uma variavel [Ô]conta[Ô] ela seria o CPF?
KERPLUNK 17/04/2012 12:11:58
#400064
[Ô]conta[Ô] é um campo da SQL, ela contém a soma do número de registros que a query contempla:
Select count(0) as [txt-color=#e80000]conta [/txt-color]From clientes Where CPF = [ô][Ô] & cpf & [Ô][ô][Ô]
Página 1 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar