SCRIPT NAO VERIFICA USUARIO NEM EMAIL CADASTRADO

GONTIJOBR 17/04/2012 12:16:25
#400065
Então agora aconteceu uma coisa....................................

Ele não verificava nada....... porém agora verifica o email.......... depois de algumas alterações aqui e pesquisa no google...... mas ele não verifica se o apelido está cadastrado................
KERPLUNK 17/04/2012 12:24:29
#400067
O código que passei está bem simplificado. Mesmo não sendo muito familiarizado com tecnologias microsoft, está facinho de entender.
GONTIJOBR 17/04/2012 12:35:19
#400070
Aconteceu algo estranho.... eu mex em algumas configurações.... ele valida o email, mas não valida o apelido................
KERPLUNK 17/04/2012 12:43:23
#400072
As validações são praticamente iguais, no código que te passei, veja:
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
GONTIJOBR 17/04/2012 13:04:37
#400078
Eu descobri, ele nao busca o apelido
GONTIJOBR 17/04/2012 14:48:02
#400086
[txt-color=#e80000]acho que pode ajudar.... este é o fonte completo da página:[/txt-color]


<!--#include file=[Ô]Header.asp[Ô]-->


<%
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
%>
<table width=[Ô]90%[Ô] border=[Ô]0[Ô] align=[Ô]center[Ô] cellpadding=[Ô]0[Ô] cellspacing=[Ô]0[Ô]>
<tbody>
<tr>
<td height=[Ô]30[Ô]><div align=[Ô]center[Ô] class=[Ô]TextoDestaque[Ô]>
<div align=[Ô]left[Ô] class=[Ô]SubTitulo[Ô]>Cadastro para participação em leilões on-line</div>
</div></td>
</tr>
</tbody>
</table>
<br>
<table width=[Ô]640[Ô] height=[Ô]309[Ô] border=[Ô]0[Ô] align=[Ô]center[Ô] cellpadding=[Ô]1[Ô] cellspacing=[Ô]1[Ô] background=[Ô]IMG/BgFundoBusca.jpg[Ô]>


<tr>
<td width=[Ô]144[Ô] height=[Ô]24[Ô] align=[Ô]right[Ô] class=[Ô]Fonte12[Ô] > </td>

</tr>


<tr>
<td align=[Ô]center[Ô] class=[Ô]BoxLeiloes_SubTitulo[Ô]>Cadastro efetuado com sucesso!</td>
</tr>
<tr>
<td align=[Ô]center[Ô] > </td>
</tr>
<tr>
<td >
<table width=[Ô]95%[Ô] border=[Ô]0[Ô] align=[Ô]center[Ô] cellpadding=[Ô]1[Ô] cellspacing=[Ô]1[Ô]>
<tr>
<td align=[Ô]center[Ô] >

<div class=[Ô]DestacaYellow[Ô]>
<p><br />
AGRADECEMOS SEU CADASTRO! </p>
<p>EM BREVE RECEBERÁ POR E-MAIL A LIBERAÇÃO PARA PARTICIPAR DOS LEILÕES. </p>
<p>OBRIGADO E BONS NEGÓCIOS!<br />
<br>
<br>
</p>
</div>
</td>
</tr>
<tr>
<td><br></td>
</tr>
<tr>
<td class=[Ô][Ô]><br></td>
</tr>
</table>
</td>
</tr>
<tr>

<td height=[Ô]145[Ô]> </td>
</tr>
</table>

<!--#include file=[Ô]Footer.asp[Ô]-->
GONTIJOBR 17/04/2012 15:18:23
#400089
[txt-size=1][txt-color=#e80000]Galera, obrigado pela ajuda..... consegui resolver o problema!!!!!!!!!!!!!!!!!!!!!!!![/txt-color][/txt-size]
Página 2 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar