<% set DB = createobject("adodb.connection") constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("bd.mdb") DB.open constr nome = Replace(Request.Form("nome"), "'", "/") sobrenome = Replace(Request.Form("sobrenome"), "'", "/") bairro = Replace(Request.Form("bairro"), "'", "/") estado = Replace(Request.Form("estado"), "'", "/") email = Replace(Request.Form("email"), "'", "/") login = Replace(Request.Form("login"), "'", "/") senha = Replace(Request.Form("senha"), "'", "/") confirma_senha = Replace(Request.Form("confirma_senha"), "'", "/") If Request.Form("enviado") = "sim" Then if nome = "" Then Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>nome</b> em branco<BR><a href=cadastrar.asp>Voltar</a>" ELse if sobrenome = "" Then Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>sobrenome</b> em branco<BR><a href=cadastrar.asp>Voltar</a>" Else if bairro = "" Then Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>bairro</b> em branco<BR><a href=cadastrar.asp>Voltar</a>" ELse if estado = "" Then Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>estado</b> em Branco<BR><a href=cadastrar.asp>Voltar</a>" Else Set EM = Conexao.Execute("SELECT * FROM usuarios WHERE email='"&email&"'") If not em.EOF Then Response.Write "Este <b>Email</b> já esta cadastrado!<BR><a href=cadastrar.asp>Voltar</a>" Else Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE login='"&login&"'") If not rs.EOF Then Response.Write "Este <b>login</b> já esta cadastrado!<BR><a href=cadastrar.asp>Voltar</a>" Else if senha <> confirma_senha Then Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>confirma senha</b> esta diferente do campo <b>senha</b><BR><a href=cadastrar.asp>Voltar</a>" Else DB.Execute(" Insert into usuarios (nome,sobrenome,bairro,estado,email,login,senha) VALUES ('"&nome&"','"&sobrenome&"','"&bairro&"','"&estado&"','"&email&"','"&login&"','"&senha&"')") End IF End IF End IF End IF End IF End IF End IF Else %> <html> <head> </head> <body> <form method="POST" action="cadastrar.asp"> <input type="hidden" name="enviado" value="sim"> Nome : <input type="text" name="nome" size="15"><br><br> Sobre Nome : <input type="text" name="sobrenome" size="15"><br><br> Bairro : <input type="text" name="bairro" size="15"><br><br> Estado : <input type="text" name="estado" size="15"><br><br> Email : <input type="text" name="email" size="15"><br><br> login : <input type="text" name="login" size="15"><br><br> senha : <input type="text" name="senha" size="15"><br><br> Confirma Senha : <input type="text" name="confirma_senha" size="15"><br><br> <input type="submit" value="Cadastrar"> </form> </body> </html> <% End IF %>
Erro No Cadastro
Started By
mestre fyoda
, 11/12/2004, 01:06
6 replies to this topic
#1
Posted 11/12/2004, 01:06
visitem o site : http://n.domaindlx.c...m/cadastrar.asp
Real Madruga paga em dia os jogadores mas deve 14 meses de alugel .
#2
Posted 11/12/2004, 01:16
qual o erro que da ? que linha ?
tipo tenta assim
if nome = "" Then
Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>nome</b> em branco<BR><a href=cadastrar.asp>Voltar</a>"
END IF
if sobrenome = "" Then
Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>sobrenome</b> em branco<BR><a href=cadastrar.asp>Voltar</a>"
END IF
ao invez de usar ELSE
tipo tenta assim
if nome = "" Then
Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>nome</b> em branco<BR><a href=cadastrar.asp>Voltar</a>"
END IF
if sobrenome = "" Then
Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>sobrenome</b> em branco<BR><a href=cadastrar.asp>Voltar</a>"
END IF
ao invez de usar ELSE
còé ?
#3
Posted 11/12/2004, 01:45
o erro que da eu nao sei , é estranho , acessa o link que passei e veja o erro que da , aqui eu nao estou conseguindo identificar o erro .
Ja adicionei no internet explorer para mostrar o erro , mesmo assim não aparece o erro .
Ja adicionei no internet explorer para mostrar o erro , mesmo assim não aparece o erro .
Edição feita por: mestre fyoda, 11/12/2004, 01:46.
Real Madruga paga em dia os jogadores mas deve 14 meses de alugel .
#4
Posted 11/12/2004, 01:49
a pagina não abre da pagina não encontrada. tenta faze o que falei colocar um END IF depois desses if de comparação de campo em branco ai.
còé ?
#5
Posted 11/12/2004, 02:06
nao deu certo .
O servidor suporta asp 3.0 .
O servidor suporta asp 3.0 .
Edição feita por: mestre fyoda, 11/12/2004, 02:08.
Real Madruga paga em dia os jogadores mas deve 14 meses de alugel .
#6
Posted 11/12/2004, 13:58
esta cadastrando sim... só não está carregando o html apos enviar o email.
www.wvirtu.net - Hospedagem Sites - PHP + MySql + Fantástico - Joomla! pré-instalado
www.joomlaminas.org - Grupo de Usuários Joomla! de Minas Gerais
www.joomlaminas.org - Grupo de Usuários Joomla! de Minas Gerais
#7
Posted 11/12/2004, 14:37
valeu gente problema solucionado .
Real Madruga paga em dia os jogadores mas deve 14 meses de alugel .
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)