[Resolvido] Verificar e-mail no BD se já existe...

[Igor FV 0]

Amigos, estou tentando fazer uma verificação de um email no BD, depois que o usuário preenche um form de cadastro, mas não estou conseguindo. Oq está errado?

 

ASP

<%

 

nome_user = Request.form("txt_nome_user")

email_user = Request.form("txt_email_user")

senha_user = Request.form("txt_senha_user")

nivel_user = cInt(Request("nivel_user"))

 

verifica = "SELECT * FROM bd_yd.tbl_user WHERE email_user = '"&email_user&"'"

Set RS = conn.Execute(verifica)

 

If RS.EOF Then

  Response.Write "Usuário já cadastrado!!!!</br>Para tentar novamente clique <a href=cad_user1.asp target=_self>AQUI</a>."

  Response.End

 

Else

gravar = "INSERT INTO tbl_user(nome_user,email_user,senha_user,nivel_user) values('"&nome_user&"','"&email_user&"','"&senha_user&"','"&nivel_user&"')"

set RS2 = conn.Execute(gravar)

Response.Write("Usuário cadastrado.")

End If

 

%>

 

Vlw.

[ale.leleco 0]

Amigos, estou tentando fazer uma verificação de um email no BD, depois que o usuário preenche um form de cadastro, mas não estou conseguindo. Oq está errado?

 

ASP

<%

 

nome_user = Request.form("txt_nome_user")

email_user = Request.form("txt_email_user")

senha_user = Request.form("txt_senha_user")

nivel_user = cInt(Request("nivel_user"))

 

verifica = "SELECT * FROM bd_yd.tbl_user WHERE email_user = '"&email_user&"'"

Set RS = conn.Execute(verifica)

 

If RS.EOF Then

  Response.Write "Usuário já cadastrado!!!!</br>Para tentar novamente clique <a href=cad_user1.asp target=_self>AQUI</a>."

  Response.End

 

Else

gravar = "INSERT INTO tbl_user(nome_user,email_user,senha_user,nivel_user) values('"&nome_user&"','"&email_user&"','"&senha_user&"','"&nivel_user&"')"

set RS2 = conn.Execute(gravar)

Response.Write("Usuário cadastrado.")

End If

 

%>

 

Vlw.

ei acho que a sua condição está erada n tenta assim

 

ASP

if [color="#FF0000"]not[/color] rs.eof then

Response.Write "Usuário já cadastrado!!!!</br>Para tentar novamente clique <a href=cad_user1.asp target=_self>AQUI</a>."

  Response.End

 

Else

gravar = "INSERT INTO tbl_user(nome_user,email_user,senha_user,nivel_user) values('"&nome_user&"','"&email_user&"','"&senha_user&"','"&nivel_user&"')"

set RS2 = conn.Execute(gravar)

Response.Write("Usuário cadastrado.")

End If

ceerto porque se ele voltar vazio é sinal que ja está cadastrado e se ele voltar vazio ai sim você cadastra um novo

[Igor FV 0]

beleza amigo é isso mesmo...

 

Vlw..

[Igor FV 0]

Amigo,

 

Não tá funfando mas, o codigo é esse:

 

 

ASP

<%

 

nome_user = Request.form("txt_nome_user")

email_user = Request.form("txt_email_user")

senha_user = Request.form("txt_senha_user")

nivel_user = cInt(Request("nivel_user"))

 

verifica = "SELECT * FROM bd_yd.tbl_user WHERE email_user = '"&email_user&"' "

Set RS = conn.Execute(verifica)

 

If Not RS.EOF Then

Response.Write "Usuário já cadastrado!!!!</br>Para tentar novamente clique <a href=cad_user1.asp target=_self>AQUI</a>."

       

        Else

          gravar = "INSERT INTO tbl_user (nome_user,email_user,senha_user,nivel_user) values('"&nome_user&"','"&email_user&"','"&senha_user&            "','"&nivel_user&"')"

        Set RS = conn.execute(gravar)

        Response.Write("Usuário cadastrado.")

End If

%>

[Ted k' 126]

ASP

<%

nome_user = Request.form("txt_nome_user")

email_user = Request.form("txt_email_user")

senha_user = Request.form("txt_senha_user")

nivel_user = cInt(Request("nivel_user"))

 

verifica = "SELECT * FROM tbl_user WHERE email_user = '"&email_user&"' "

Set RS = conn.Execute(verifica)

 

If RS.EOF Then

gravar = "INSERT INTO tbl_user (nome_user,email_user,senha_user,nivel_user) values('"&nome_user&"','"&email_user&"','"&senha_user&"','"&nivel_user&"')"

conn.execute(gravar)

Response.Write("Usuário cadastrado.")

ELse

Response.Write "Usuário já cadastrado!!!!</br>Para tentar novamente clique <a href=cad_user1.asp target=_self>AQUI</a>."  

End If

%>

[Igor FV 0]

Amigo Ted'K, tento cadastrar um novo usuário que não está no bd esse codigo joga para o Else.

Oq pode estar ocorrendo?

[Ted k' 126]

Revisei o seu código e ele está correto, agora tem que ver o seu HTML para ver se os campos estão corretos

 

pois acho que o campo de e-mail está com o nome errado no formulário e que tem algum cadastro em branco no banco!

 

 

ASP

<%

nome_user = Request.form("txt_nome_user")

email_user = Request.form("txt_email_user")

senha_user = Request.form("txt_senha_user")

nivel_user = cInt(Request("nivel_user"))

 

Set RS = conn.Execute("SELECT * FROM tbl_user WHERE email_user = '"&email_user&"'")

 

If RS.EOF Then

conn.execute("INSERT INTO tbl_user (nome_user,email_user,senha_user,nivel_user) values('"&nome_user&"', '"&email_user&"', '"&senha_user&"', '"&nivel_user&"')")

Response.Write("Usuário cadastrado")

ELse

Response.Write "Usuário já cadastrado!!!!</br>Para tentar novamente clique <a href=cad_user1.asp target=_self>AQUI</a>."  

End If

%>

[Igor FV 0]

Amigo, esqueci de um detalhe, estou usando a pagina de Cadastro de user dentro de um IFRAME na pagina principal que chama a segunda pagina, que cadastra os dados, tb dentro do mesmo IFRAME.

 

Os dados não estão sendo recuperados dessa forma. Oq podemos fazer?

 

Vlw.

[Cesão 1]

Bom, p carregar os dados dentro do iframe tbm, você tem que colocar um target no seu form...

por exemplo, vamos dizer que seu iframe esteja com o nome de JANELA (<iframe name="janela">)

 

dai no seu form você tem que colocar o target p ele, tipo "<form target="janela">

 

dai ele vai passar os dados para o iframe

[Igor FV 0]

Descobri o erro, no Form o metodo estava GET ao inves de POST.

 

Agora ta resolvido.

 

Vlw.

[Ted k' 126]

como te disse

Revisei o seu código e ele está correto, agora tem que ver o seu HTML

que bom que resolveu se ñ a gente iria ficar batendo cabeça o dia todo heehehehe