Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

mestre fyoda

erro no cadastro

Por , em ASP Clássico

Recommended Posts

mestre fyoda    1

mestre fyoda
Postado

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

 

ASP [/tr][tr]

<%

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

%>

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

se for asp aquilo tira um dos iguais e deixa só um...

Compartilhar este post

Link para o post
Compartilhar em outros sites

victor    0

victor
Postado

Olá mestre fyoda,

 

Qual o erro que está dando? qual a linha do erro?

 

Ta aqui o codigo modificado:

 

ASP [/tr][tr]<%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%>

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito