[Resolvido] Verificando se já existe registro

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.