Nao Consigo Executar O Cadastrar.asp

mestre fyoda · Dezembro 11, 2004

visitem o site : http://n.domaindlx.com/clanim/cadastrar.asp

<%
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
%>

ursolouco · Dezembro 11, 2004

Brother!!

Cadê e quando ocorre o erro ?

mestre fyoda · Dezembro 11, 2004

eu não consigo ver , entra no link e veja , eu coloquei para ver os erros de script , mas não apareceu nada , apareceu erro 500 .

ursolouco · Dezembro 11, 2004

eu não consigo ver , entra no link e veja , eu coloquei para ver os erros de script , mas não apareceu nada , apareceu erro 500 .

Brother!!

Microsoft VBScript compilation error '800a03ea'
Syntax error
/clanim/cadastrar.asp, line 40
if senha == confirma_senha Then
----------^

Tá ai, o Erro no seu site...

Dica: Ferramentas / Opções da Internet

Guia Avançadas

Desative a opção : Exibir mensagens de erro Amigaveis.

Com isso, você vai ver o erro Real das suas Páginas

Abraços!!!

mestre fyoda · Dezembro 11, 2004

vou testar , valeu brother pela dica de desbilitar esse treco .

Victor · Dezembro 11, 2004

<%if request.form("enviado") = "sim" then
Set RecSet = Server.CreateObject("adodb.recordset")

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 nome = "" then
Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>nome</b> em branco<BR><a href=cadastrar.asp>Voltar</a>"
elseif sobrenome = "" then
Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>sobrenome</b> em branco<BR><a href=cadastrar.asp>Voltar</a>"
elseif bairro = "" then
Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>bairro</b> em branco<BR><a href=cadastrar.asp>Voltar</a>"
elseif estado = "" then
Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>estado</b> em branco<BR><a href=cadastrar.asp>Voltar</a>"
elseif email = "" then
Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>email</b> em branco<BR><a href=cadastrar.asp>Voltar</a>"
elseif login = "" then
Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>login</b> em branco<BR><a href=cadastrar.asp>Voltar</a>"
elseif senha = "" then
Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>senha</b> em branco<BR><a href=cadastrar.asp>Voltar</a>"
elseif confirma_senha = "" then
Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>confirma_senha</b> em branco<BR><a href=cadastrar.asp>Voltar</a>"
elseif 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>"
end if

RecSet.Open "SELECT * FROM usuarios WHERE email='"&email&"'", conexao
If not RecSet.EOF Then
Response.Write "Este <b>Email</b> já esta cadastrado!<BR><a href=cadastrar.asp>Voltar</a>"
end if
RecSet.Close

RecSet.Open "SELECT * FROM usuarios WHERE login='"&login&"'",conexao
If not RecSet.EOF Then
Response.Write "Este <b>Login</b> já esta cadastrado!<BR><a href=cadastrar.asp>Voltar</a>"
end if
RecSet.Close

conn.execute "insert into from usuarios (nome, sobrenome, bairro, estado, email, login, senha) values ('"&nome&"', '"&sobrenome&"', '"&bairro&"', '"&estado&"', '"&email&"', '"&login&"', '"&senha&"')"
response.write "Usuário cadastrado com sucesso!"
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%>

mestre fyoda · Dezembro 11, 2004

pode fechar

dark0 · Dezembro 11, 2004

que bom que resolveu o problema ..!

Mas, a explicação que o urso lhe deu, está no tópico de Tutoriais, se der, passe por lá..

Tem bastante informações que podem ajudar no dia-a-dia da programação!

To fechando o tópico!

Abraços

Entrar

Nao Consigo Executar O Cadastrar.asp

Pergunta

mestre fyoda

Link para o comentário

Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

ursolouco

Link para o comentário

Compartilhar em outros sites

mestre fyoda

Link para o comentário

Compartilhar em outros sites

ursolouco

Link para o comentário

Compartilhar em outros sites

mestre fyoda

Link para o comentário

Compartilhar em outros sites

Victor

Link para o comentário

Compartilhar em outros sites

mestre fyoda

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns

Navegação

Atividades