Verificar campo em asp

[fabiosc80 0]

beleza PessoalTo com uma dúvida aqui besta.Como faço pra verificar se um e-mail já está cadastrado num campo de uma tabela no banco de dados?O banco é Access.Obrigado desde já.

[fabiosc80 0]

Alguem pelo amor de deus...

[Mário Monteiro 179]

apenas selecionar tiozinho

 

"SELECT CAMPO FROM TABELA WHERE EMAIL = '" & EMAIL & "'"

depois é so perguntar se achou

 

IF NOT RS.EOF THEN	reponse.write("ACHOU")ELSE	reponse.write("NÃO ACHOU")END IF

[Davidmg 0]

<%Email = "teste@ondetemfesta.com.br"Set Verifica = Conexao.Execute("Select * from tabela Where Campo = '"&email&"'")If Not Verifica.EOF thenMensagem = "Email já Existe"ElseMensagem = "Email não Cadastrado"End If%>

[fabiosc80 0]

Tipo aconteceu beleza mas ta com bug.ele só acha a primeira letra.ou seja se tiverlaercio@ig.com.br no bancoe eu for cadastrar luis@ig.com.brele diz que ja existe.Pq?

<%Email = "teste@ondetemfesta.com.br"Set Verifica = Conexao.Execute("Select * from tabela Where Campo = '"&email&"'")If Not Verifica.EOF thenMensagem = "Email já Existe"ElseMensagem = "Email não Cadastrado"End If%>

[Salgado 4]

Se o código está exatamente dessa forma que você colocou, sem receber dados de um formulário, com uma variavel fixa, e o email existir vai sempre dizer que existe.

[Davidmg 0]

Isso é verdade, tem que receber o email que será verificado por um form...

[fabiosc80 0]

Olhem como fiz

 

AbrebancoDim BCDim Sql2,TB3Sql2 = "select pp_email from tba_pp_clientes where pp_email='"&mail&"'"Set TB3 = BC.Execute(Sql2)if not TB3.eof thenFechaBancoresponse.write "<center>O E-mail informado já consta em nosso banco de dados, por favor volte e informe outro.<br>"response.write "<a href=javascript:window.history.go(-1)>Voltar</a></center>"response.endelseend if

[Salgado 4]

Testa, só trocando o nome no request.

mail = Request("CampodoForm")
If Mail <> "" Then
Mail = Replace(Mail,"'","''")
Else
Response.Write "<center>Digite um e-mail para a busca!"
response.write "<a href=javascript:window.history.go(-1)>Voltar</a></center>"
response.end
End If

Abrebanco
Dim BC
Dim Sql2,TB3
Sql2 = "select pp_email from tba_pp_clientes where pp_email='"& mail &"'"
Set TB3 = BC.Execute(Sql2)

if not TB3.eof then
FechaBanco
response.write "<center>O E-mail informado já consta em nosso banco de dados, por favor volte e informe outro.<br>"
response.write "<a href=javascript:window.history.go(-1)>Voltar</a></center>"
response.end
else

end if

[fabiosc80 0]

Não entendi salgado.Tipo a verificação pra ver se o e-mail esta vindo em branco eu ja fiz mais acima.

[Salgado 4]

Testa só com esse.

[fabiosc80 0]

Aconteceu a mesma coisa.

Testa só com esse.

[Salgado 4]

Aconteceu a mesma coisa.

Testa só com esse.

Então tem aguma outra coisa errada. Seu form tem alguma validação JavaScript? Tem certeza que no BD não consta esses e-mails?

[fabiosc80 0]

meu form tem validação de JS mas é só pra ver se o campo ta em branco, esses e-mails que to colocando realmente nao constam no banco.

Aconteceu a mesma coisa.

Testa só com esse.

Então tem aguma outra coisa errada. Seu form tem alguma validação JavaScript? Tem certeza que no BD não consta esses e-mails?

[Salgado 4]

meu form tem validação de JS mas é só pra ver se o campo ta em branco, esses e-mails que to colocando realmente nao constam no banco.

Se tiver como postar um link online para testarmos.

[fabiosc80 0]

Salgado acho melhor eu não colocar o link porcausa que o site nao tem uns padroes bons de se mostrar.

 

 

mas olha oque eu fiz e deu a mesma coisa...

 

Cara to desesperado já.

 

Alias o banco é access.

 

AbrebancoDim BCDim Sql2,TB3Sql2 = "SELECT DISTINCT pp_email FROM tba_pp_clientes WHERE ucase(trim(pp_email))=ucase('"&email&"')"Set TB3 = BC.Execute(Sql2)if not tb3.eof thenFechabancoresponse.write "<center>O E-mail informado já consta em nosso banco de dados, por favor volte e informe outro.<br>"response.write "<a href=javascript:window.history.go(-1)>Voltar</a></center>"response.endelseend if

[fabiosc80 0]

Access aceita Distinct né?

[Mário Monteiro 179]

aceita sim fabioo que ta passando???

[fabiosc80 0]

Por enquanto nadaJa que aceita acho que meus problemas acabaramse der outra zica eu chamo aqui.

aceita sim fabioo que ta passando???

[Mário Monteiro 179]

ok então http://forum.imasters.com.br/public/style_emoticons/default/joia.gif