[Resolvido] Verificando se já existe registro

[alexandroferreira 0]

Olá Pessoal,

 

Estou precisando criar um código que verifique se já existe um e-mail cadastrado antes de inserí-lo no BD. Segue o código:

<% else 
					dim inserir, rscad, varnome, varemail, consulta, rsconsulta
					varnome = request.form("nenome")
					varemail = request.form("neemail")
					'verifica se já existe email cadastrado

					consulta = consulta & "SELECT ne_nome FROM tb_cadmail WHERE ne_nome = '" & Request.form("nenome")  & "'"

					set rsconsulta = Conexao.Execute(consulta)

					If consulta.Eof then

					'seleciona os campos da tabela notícia
					inserir = inserir & "Insert into tb_cadmail (ne_nome,ne_email) values ( '"& varnome &"','"& varemail &"')"

					'executa a instrução SQL
					Set rscad = Conexao.Execute(inserir)

					'mensagem de cadastro
					Response.Write "<script>alert('Cadastro realizado com sucesso!')</script>"
					Response.Write "<meta http-equiv='refresh' content='0.2; url='default.asp'/>"

					Else

					Response.Write "<script>alert('E-mail já existe no nosso banco de dados!')</script>"
					Response.Write "<meta http-equiv='refresh' content='0.2; url='default.asp'/>"

					end if
					end if
					%>

 

Só que quando eu executo o código aparece o seguinte erro:

Objeto necessário: 'SELECT ne_nome FROM '

 

O que pode ser?

 

Grato desde já,

Alexandro

 

 

Conseguir encontrar o erro. Obrigado de qualquer forma.