Verificar se E-mail ja esta cadastrado no banco.

[fabiosc80 0]

Procurei no forum e não achei.

Preciso fazer uma consulta no banco de dados (access) para que na hora de inserir um cadastro ele verifique se ja existe algum cadastro com aquele e-mail.

E se existir dar uma mensagem de falando que ja existe.

Olhem como estou fazendo.

Oque esta errado?

 

if cad=1 then			RS2.Open "SELECT email FROM tbContatosContato where email="&email&"", Conn,3,3			response.write RS2("email")			response.end			if RS2.eof then						RS.Open "SELECT*FROM tbContatosContato", Conn,3,3			RS.addnew			RS("data")=date			else			%>			<script>alert('este cadastro ja existe!')</script>			<%			end if						elseif cad=3 then			RS.Open "SELECT*FROM tbContatosContato WHERE id="&id&"", Conn,3,3		end if

[jrcardozo 4]

se é email, então campo no DB = texto, então falta aspas simples

RS2.Open "SELECT email FROM tbContatosContato where email='"&email&"'", Conn,3,3

[fabiosc80 0]

Tinha esquecido deste detalhe Jonathan, porêm não funcionou.Terei que fazer algum loop lá?

se é email, então campo no DB = texto, então falta aspas simples

RS2.Open "SELECT email FROM tbContatosContato where email='"&email&"'", Conn,3,3

Tinha esquecido deste detalhe Jonathan, porêm não funcionou.

se é email, então campo no DB = texto, então falta aspas simples

RS2.Open "SELECT email FROM tbContatosContato where email='"&email&"'", Conn,3,3

[fabiosc80 0]

Jonathan, Valeu cara consegui aqui.Tinha um erro meu tb ao declarar a tabela.Valeu cara.

Tinha esquecido deste detalhe Jonathan, porêm não funcionou.Terei que fazer algum loop lá?

se é email, então campo no DB = texto, então falta aspas simples

RS2.Open "SELECT email FROM tbContatosContato where email='"&email&"'", Conn,3,3

Tinha esquecido deste detalhe Jonathan, porêm não funcionou.

se é email, então campo no DB = texto, então falta aspas simples

RS2.Open "SELECT email FROM tbContatosContato where email='"&email&"'", Conn,3,3