Dando erro no select ...

[#Felipe# 0]

Não consigo achar o erro !

 

Tipo de erro:

Erro de compilação do Microsoft vb script:history.go(-1)")

 

elseIf  request("submit")="E N V I A R" then 

    set verifica  = server.CreateObject ("ADODB.Recordset")   

    verifica.open = "Select * From email Where email='"&Request("email")&"'" , conn, 3, 3

    If verifica.EOF Then

        set cadastra = server.CreateObject ("ADODB.Recordset")

        cadastra.Open "SELECT email FROM email ", conn,3,3

        cadastra.addnew

        cadastra("nome")= request("nome")

        cadastra("email")= request("email")

        cadastra("uf")= request("uf")

        cadastra("data")= date()

        cadastra("hora")= time()

        cadastra("origem")= Request.ServerVariables("HTTP_REFERER")

        cadastra.update

        set cadastra = nothing 

    else

        %><p align="center">Seu email já está cadastrado </p><%

    end if

set verifica = nothing

%>

ASP]

[kauebranco 0]

acho que num tem esse igual depois de VERIFICA.OPEN