CADASTRO.asp

www · Outubro 13, 2003

ESTOU COM 1 PROBLEMA NO MEU ARQUIVO QUE VERIFICA O CADASTRO DO USUARIO

Tenho por ex:

if erro <> 1 then

' Verifica se o usuario jah existe no HojeNaNoite

SQL_Usuarios = "Select * from usuarios where usuario = '" & usuario_ & "'"

Usuarios.Open SQL_Usuarios, conexao

if Usuarios.RecordCount > 0 then

erro = 3

end if

Usuarios.close

Só que ele nao está verificando se o usuário existe

mesmo o usuário existindo ou não ele está inserindo no banco de dados

o cod da pagina toda é :

<%

'Recolhe as variaveis do formulario

usuario_ = request("usuario")

senha = request("senha")

confirmasenha = request("confirmasenha")

nome = request("nome")

sobrenome = request("sobrenome")

endereco = request("endereco")

bairro = request("bairro")

cidade = request("cidade")

uf = request("uf")

email_ = request("email")

telefone = request("telefone")

juntinhu_ = request("juntinhu")

data = day(now) & "/" & month(now) & "/" & year(now)

hora = hour(now) & ":" & minute(now)

IP = Request.ServerVariables("REMOTE_ADDR")

set usuarios = server.createobject("ADODB.recordset")

%>

<html>

<head>

<title>Novo Hojenanoite.com.br</title>

<!--

function MM_preloadImages() { //v3.0

var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();

var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)

if (a.indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a;}}

}

//-->

</script>

<link href="link.css" rel="stylesheet" type="text/css">

</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" background="images/bg_pag1.gif">

<tr>

<td colspan="3">

<div align="center">

</div>

</td>

</tr>

<tr>

<td width="151" valign="top">

<div align="center">

</div>

</td>

<td width="318" valign="top">

<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td width="312" height="19">

<div align="left"><img src="images/titulo_cadastro.gif" width="300" height="16"></div>

</td>

</tr>

<tr>

<td height="333" valign="top">

<div align="left"> 

<%

' Erro 1 - Campo obrigatorio naum digitado

' Erro 2 - Dados no campo invalidos

' Erro 3 - Usuário ja cadastrado no Hojenanoite

' Erro 4 - Cadastro Senha e Repete senha sao diferentes

' Erro 5 - Email ja existente no hojenanoite

' Erro 6 - Email ja cadastrado no juntinhu

' Erro 7 - Usuario ja cadastrado no juntinhu

erro = 0

'Verifica se os campos obrigatorios foram digitados

campos = ""

if usuario_ = "" then

campos = campos & "- usuario "

erro = 1

end if

if senha = "" then

campos = campos & "- senha "

erro = 1

end if

if confirmasenha = "" then

campos = campos & "- confirmasenha "

erro = 1

end if

if nome = "" then

campos = campos & "- Nome "

erro = 1

end if

if sobrenome = "" then

campos = campos & "- sobrenome "

erro = 1

end if

if endereco = "" then

campos = campos & "- Endereco "

erro = 1

end if

if bairro = "" then

campos = campos & "- Bairro "

erro = 1

end if

if cidade = "" then

campos = campos & "- Cidade "

erro = 1

end if

if uf = "" then

campos = campos & "- Estado "

erro = 1

end if

if telefone = "" then

campos = campos & "- Telefone "

erro = 1

end if

if email_ = "" then

campos = campos & "- E-Mail "

erro = 1

end if

if juntinhu_ = "" then

campos = campos & "- Deseja Participar do Juntinhu? "

erro = 1

end if

if erro <> 1 then

' Verifica se o usuario jah existe no HojeNaNoite

SQL_Usuarios = "Select * from usuarios where usuario = '" & usuario_ & "'"

Usuarios.Open SQL_Usuarios, conexao

if Usuarios.RecordCount > 0 then

erro = 3

end if

Usuarios.close

' Verifica se o usuário jah esta cadastrado com o mesmo email

SQL_Usuarios2 = "Select * from usuarios where email = '" & email_ & "'"

Usuarios.Open SQL_Usuarios2, conexao

if Usuarios.RecordCount > 0 then

erro = 5

end if

Usuarios.close

'Verfica se o usuário repetiu a senha de forma correta

if senha <> confirmasenha then

erro = 4

end if

if juntinhu_ = S then

' Verifica se o usuário jah esta cadastrado no juntinhu com o mesmo email

SQL_Usuarios3 = "Select * from usuarios where email = '" & email_ & "'"

Usuarios.Open SQL_Usuarios3, conexao3

if Usuarios.RecordCount > 0 then

erro = 6

end if

Usuarios.close

' Verifica se o usuario jah existe no Juntinhu

SQL_Usuarios4 = "Select * from usuarios where usuario = '" & usuario_ & "'"

Usuarios.Open SQL_Usuarios4, conexao3

if Usuarios.RecordCount > 0 then

erro = 7

end if

Usuarios.close

end if

if erro = 0 then

if juntinhu_ = "S" then

response.redirect "http://juntinhu.hojenanoite.com.br/juntinhu/novo/cadastro2.asp"

end if

if juntinhu_ = "N" then

'Grava as informações no Banco de Dados

SQL_Insere = "INSERT INTO usuarios(usuario, senha, nome, sobrenome, endereco, bairro, cidade, uf, email, telefone, juntinhu, data, hora, ip) VALUES ('" & usuario_ & "','" & senha & "','" & nome & "','" & sobrenome & "','" & endereco & "','" & bairro & "','" & cidade & "','" & uf & "','" & email_ & "','" & telefone & "','" & juntinhu_ & "','" & data & "','" & hora & "', '" & ip & "');"

'response.write SQL_Insere

Conexao.Execute SQL_Insere

'Monta o email que vai ser enviado para o usuario falando que ele foi cadastrado com sucesso

end if

if erro <> 0 then%>

 

Ocorreu um Erro 

<% if erro = 1 then%>

Os campos marcados com (*) são obrigatórios. 

Os campos abaixo não foram preenchidos ou possuem dados

inválidos:

<%= campos %>

[

<a href="java script:history.back();">Voltar</a> ]

<% elseif erro = 2 then %>

Os

dados digitados por você em um de nossos campos não conferem ou

não estão de acordo com nossa regra de validação, clique em voltar

altera seus dados e tente novamente.

[

<a href="java script:history.back();">Voltar</a> ]

<% elseif erro = 3 then %>

O

usuário <%= usuario %> já existe em nosso sistema. Por favor selecione

outro nome de usuário.

[

<a href="java script:history.back();">Voltar</a> ]

<% elseif erro = 4 then %>

Existe

dois campos em nosso formulário chamados Senha e Confirma Senha

, a senha digitada em senha e Confirma Senha não são idênticas,

clique em voltar corrija este erro e tente novamente.

[

<a href="java script:history.back();">Voltar</a> ]

<% elseif erro = 5 then %>

O

email <%= email %> digitado por você já está cadastrado no HojeNanoite.

Clique em voltar altere o email e tente novamente.

[

<a href="java script:history.back();">Voltar</a> ]

<% elseif erro = 6 then %>

O

email <%= email %> digitado por você já está cadastrado no Juntinhu.

Clique em voltar altere o email e tente novamente.

[

<a href="java script:history.back();">Voltar</a> ]

<% elseif erro = 7 then %>

O

nome de usuário <%= usuario %> digitado por você já está cadastrado

no Juntinhu. Clique em voltar altere o seu nome de usuário e tente

novamente.

[

<a href="java script:history.back();">Voltar</a> ]

<% end if %>

<% else %>

Cadastro

efetuado com sucesso!!! 

Um e-mail de confirmação foi enviado para <%= email_ %>. 

 

 </div>

<% end if %>

</td>

</tr>

</table>

</td>

<td width="291" valign="top">

<div align="center">

<table width="98%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td><img src="images/titulo_juntinhu_cadastro.gif" width="280" height="16"></td>

</tr>

</table>

<img src="images/fig_juntinho_cadastro.gif" width="275" height="327"></div>

</td>

</tr>

</table>

<div align="center">

</div>

</body>

</html>

Gostaria que resolvessem isso pra mim pq to quebrando a cabeça nisso e não consigo achar uma solução...

Obrigado

Salgado · Outubro 13, 2003

Perguntinha, o campo que recebe o usuário é a chave primária de o BD?

Não seria melhor você tentar fazer um Select antes?, se retornar BOF ou EOF seria pq o usuário ainda não se cadastrou.

Cable · Outubro 13, 2003

Cara, é simples. Segue o codigo esquematizado:

<%SQL = "SELECT * FROM tabela WHERE email='" & request.form("txt_email") & "'"set tabela = conn.execute(SQL)if tabela.eof thenSQL = "INSERT INTO tabela(nome, email) VALUES('Chicó','chicó@comparecida.com.br')"conn.execute(SQL)else%><script>alert('Usuario ja existe na base de dados!');</script><%end if%>

Coloquei ate com um alertzinho ai pra você.....hhehehehe :D

Espero ter ajudado. :)

www · Outubro 14, 2003

E ai galera beleza? Gostaria de agradecer pela força mais vcs ainda nao entenderam acredito eu...Tipo eu já to fazendo o selectolhem ai' Verifica se o usuario jah existe no HojeNaNoiteSQL_Usuarios = "Select * from usuarios where usuario = '" & usuario_ & "'"Usuarios.Open SQL_Usuarios, conexaoif Usuarios.RecordCount > 0 thenerro = 3end ifUsuarios.closese o usuario ja existir = usuario.recordcount > 0 ele dá erro 3eu faço isso pra tratamento de erroai la em baixo ta se o erro for = 0 (ou seja , nao existir) ai sim ele insere no bd...pq podem existir outros erros etc...sei la acredito eu que meu cod esteja com algum erro mais a logica pode ser utilizada dessa forma ... entenderam? me ajudem please

manga · Outubro 14, 2003

if Usuarios.RecordCount > 0 thenerro = 3end if

Tenta assim:if Usuarios.EOF thenerro = 3end if

www · Outubro 16, 2003

Opa beleza galera?Bom eu tentei aqui e o certo seria entao:if NOT Usuarios.EOF thenerro = 3end ifcerto? deu certo e resolveu o problema...mais gostaria que me explicassem neste caso pq funciona if not usuarios.eof then e nao funciona if usuarios.recordcount > 0 thenerro = 3end if ok? So por curiosidade e a titulo de conhecimentovaleu galera...

Entrar

Arquivado

CADASTRO.asp

Recommended Posts

www 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Cable 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

www 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

manga 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

www 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante