o que acontece?

[designmix 0]

Galera estou com um problema, fiz um fomulario ai fiz um if que verifica se o email ja esta cadastrado, so que sempre fala que esta. O que esta de errado?

 

ASP

[*]<!--#include FILE="_conn/bib_conexao_1.asp"-->

 

[*]<%

 

[*]

 

[*]Call abre_conexao

 

[*]Set rs = Conn.Execute( "SELECT * FROM d_clientes WHERE email='"& Request.Form("email") &"'")

 

[*]if rs.EOF then

 

[*] Response.Redirect "inf_digital_ok2.asp"

 

[*]else

 

[*] Response.Redirect "inf_digital_2.asp?msg=ok"

 

[*]end if

 

[*]rs.Close

 

[*]Set rs = Nothing

 

[*]call fecha_conexao

 

[*]

 

[*]nome  = replace(Request.Form("nome"), "'", "''")

 

[*]profissao = replace(Request.Form("profissao"), "'", "''")

 

[*]email = replace(Request.Form("email"), "'", "''")

 

[*]empresa = replace(Request.Form("empresa"), "'", "''")

 

[*]telefone  = "("& request.form("tel_ddd") &") "& request.form("tel_telefone")

 

[*]data_nasc = request.form("nasc_ano") &"-"& request.form("nasc_mes") &"-"& request.form("nasc_dia")

 

[*]endereco  = replace(Request.Form("endereco"), "'", "''")

 

[*]bairro  = replace(Request.Form("bairro"), "'", "''")

 

[*]cidade  = replace(Request.Form("cidade"), "'", "''")

 

[*]estado  = replace(Request.Form("estado"), "'", "''")

 

[*]pais  = replace(Request.Form("pais"), "'", "''")

 

[*]cep = replace(replace(Request.Form("cep"), "'", "''"), "-", "")

 

[*]site  = replace(replace(Request.Form("site"), "'", "''"), "http://", "")

 

[*]

 

[*]sqli = "INSERT INTO `d_clientes` (`nome`, `profissao`, `email`, `empresa`, `telefone`, `data_nascimento`, `endereco`, `bairro`, `cidade`, `estado`, `pais`, `cep`, `site`) VALUES ('"& nome &"', '"& profissao &"', '"& email &"', '"& empresa &"', '"& telefone &"', '"& data_nasc &"', '"& endereco &"', '"& bairro &"', '"& cidade &"', '"& estado &"', '"& pais &"', '"& cep &"', '"& site &"')"

 

[*]

 

[*]abre_conexao

 

[*]conn.execute(sqli)

 

[*]fecha_conexao

 

[*]%>

 

[*]

[DouGuAra 0]

coloca assim if NOT rs.EOF thenQualquer coisa posta novamente.

[Mário Monteiro 179]

if rs.EOF then Response.Redirect "inf_digital_ok2.asp"else Response.Redirect "inf_digital_2.asp?msg=ok"end ifo pedaço de codigo acima nunca deixara o resto da pagina ser executadapois sempre redireciona antes...

[designmix 0]

agora nao esta dando esse erro mais sim de nao cadastra os dados no db .. fala que foi com sucesso mais nao tem nada la e se tentan cadastra o mesmo email ele fala que ja esta cadastrado .

 

ASP

[*]<!--#include FILE="_conn/bib_conexao_1.asp"-->

 

[*]

 

[*]

 

[*]<%

 

[*]Call abre_conexao

 

[*]

 

[*]Set rs = Conn.Execute( "SELECT * FROM d_clientes WHERE email='"& Request.Form("email") &"'")

 

[*]if NOT rs.EOF then

 

[*] Response.Redirect "sucesso.asp"

 

[*]else

 

[*] Response.Redirect "inf_digital.asp?msg=ok"

 

[*]end if

 

[*]rs.Close

 

[*]Set rs = Nothing

 

[*]

 

[*]

 

[*]nome  = replace(Request.Form("nome"), "'", "''")

 

[*]profissao = replace(Request.Form("profissao"), "'", "''")

 

[*]email = replace(Request.Form("email"), "'", "''")

 

[*]empresa = replace(Request.Form("empresa"), "'", "''")

 

[*]telefone  = "("& request.form("tel_ddd") &") "& request.form("tel_telefone")

 

[*]data_nasc = request.form("nasc_ano") &"-"& request.form("nasc_mes") &"-"& request.form("nasc_dia")

 

[*]endereco  = request.form("endereco") &" - "& request.form("numero")  

 

[*]bairro  = replace(Request.Form("bairro"), "'", "''")

 

[*]cidade  = replace(Request.Form("cidade"), "'", "''")

 

[*]estado  = replace(Request.Form("estado"), "'", "''")

 

[*]pais  = replace(Request.Form("pais"), "'", "''")

 

[*]grupo = replace(Request.Form("grupo"), "'", "''")

 

[*]cep = replace(replace(Request.Form("cep"), "'", "''"), "-", "")

 

[*]site  = replace(replace(Request.Form("site"), "'", "''"), "http://", "")

 

[*]

 

[*]sqli = "INSERT INTO `d_clientes` (`nome`, `profissao`, `email`, `empresa`, `telefone`, `data_nascimento`, `endereco`, `bairro`, `cidade`, `estado`, `pais`, `grupo`, `cep`, `site`) VALUES ('"& nome &"', '"& profissao &"', '"& email &"', '"& empresa &"', '"& telefone &"', '"& data_nasc &"', '"& endereco &"', '"& bairro &"', '"& cidade &"', '"& estado &"', '"& pais &"', '"& grupo &"', '"& cep &"', '"& site &"')"

 

[*]

 

[*]abre_conexao

 

[*]conn.execute(sqli)

 

[*]fecha_conexao

 

[*]

[designmix 0]

se eu tiro esse script

ASP

[*]Call abre_conexao

 

[*]

 

[*]Set rs = Conn.Execute( "SELECT * FROM d_clientes WHERE email='"& Request.Form("email") &"'")

 

[*]if NOT rs.EOF then

 

[*] Response.Redirect "sucesso.asp"

 

[*]else

 

[*] Response.Redirect "inf_digital.asp?msg=ok"

 

[*]end if

 

[*]rs.Close

 

[*]Set rs = Nothing

 

[*]

ele funciona normal mais se coloco ele , nao add as informações no banco de dados

[Salgado 4]

Coloque toda a parte dos Request e Insert antes desse Response.Redirect "sucesso.asp"

[designmix 0]

acho que consegui arrumar, mais ele esta indo em branco como faço para ir uma informação de uma pagina aonde esta aconsulta ir para o insert into em outra pagina fiz o response.write e esta indo em branco os valores

 

dei uma lida numa apostila e esta falando de

ASP

[*] <input typy="hiddem" nome="nome" value="<%=nome%>">

 

mais esta indo em branco ainda

[designmix 0]

tenho um form ele manda para a pag2 e faz uma consulta se o email ja esta cadastrado ai se nao tiver ele manda para pag3 que tem o request.form so que as informaçao esta parando na pag2 e quando ele manda para a pag 3 nao vai os dados do form ai ele inseri em branco

[designmix 0]

fiz assim agora so que o valor ainda esta indo em branco

 

ASP

[*]<%

 

[*]

 

[*]Call abre_conexao

 

[*]Set rs = Conn.Execute( "SELECT * FROM d_clientes WHERE email='"& Request.Form("email") &"'")

 

[*]

 

[*]if NOT rs.EOF then

 

[*] Response.redirect "inf_digital.asp?msg=ok"

 

[*]

 

[*]else

 

[*]Response.write "<form name='cadastro' method='post' action='sucesso.asp'>"

 

[*] Response.write "<input type='hidden' name='nome' value='"& Request.QueryString("nome") &"'>"

 

[*] Response.write "<input type='hidden' name='email' value='"& Request.QueryString("email") &"'>"

 

[*] Response.write "</form>"

 

[*] Response.write "<script>document.cadastro.submit();</script>"

 

[*]

 

[*]

 

[*]end if

 

[*]rs.Close

 

[*]Set rs = Nothing

 

[*]

 

[*]

 

[*]%>

[Mário Monteiro 179]

antes de submeter imprima o valor do que você pretende passar ou seja o que pegou na querystring...veja se esta tudo certo mesmo...