<%
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
mestre fyoda
-
- Banidos
-
- 644 posts
Mestre
- Sexo:Não informado
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
WeeD
-
- Usuários
-
- 166 posts
12 Horas
- Sexo:Não informado
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
mestre fyoda
-
- Banidos
-
- 644 posts
Mestre
- Sexo:Não informado
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
WeeD
-
- Usuários
-
- 166 posts
12 Horas
- Sexo:Não informado
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
mestre fyoda
-
- Banidos
-
- 644 posts
Mestre
- Sexo:Não informado
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
pchardnet
-
- Usuários
-
- 1068 posts
×-× 3D ×-×
- Sexo:Não informado
- Localidade:Belo Horizonte-MG
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
mestre fyoda
-
- Banidos
-
- 644 posts
Mestre
- Sexo:Não informado
Posted 11/12/2004, 14:37
valeu gente problema solucionado .
Real Madruga paga em dia os jogadores mas deve 14 meses de alugel .
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)
