Ir para conteúdo

POWERED BY:

Arquivado

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

ythalorossy

Lógica esta certa, mas não cadastra

Por , em ASP Clássico

Recommended Posts

ythalorossy    0

ythalorossy
Postado

Ta com uma semana que não pertubo ninguem neste forum... :D

 

seguinte:

 

tenho este código, da uma olhada!

 

 

<!--#include file="conexao.asp" --><%	DIM PriNome, SegNome, Aniversario, Login, Senha, Email	'RECEBENDO OS VALORES INSERIDOS PELO USUARIO	PriNome = request("PriNome")	SegNome = request("SegNome")	Aniversario = request("Anivesario")	Login = request("Login")	Senha = request("Senha")	Email = request("Email")  %><html><head><title>cadastro</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%'QUANDO O USUARIO ENVIAR O CADASTROif request("selecao") <> "ok" then %><form name="form1" method="post" action="C%F3pia%20de%20cadastro.asp">  <table width="80%" border="1" cellspacing="0" cellpadding="0">    <tr>       <td width="100"><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Primeiro           Nome: </font></strong></div></td>      <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">         <input name="PriNome" type="text" id="PriNome">        </font></td>    </tr>    <tr>       <td width="100"><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Segundo           Nome</font></strong></div></td>      <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">         <input name="SegNome" type="text" id="SegNome">        </font></td>    </tr>    <tr>       <td width="100"><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Aniversário</font></strong></div></td>      <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">         <input name="Aniversario" type="text" id="Aniversario">        Por Favor Digite Assim: 99/99/9999</font></td>    </tr>    <tr>       <td width="100"><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">login:</font></strong></div></td>      <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">         <input name="Login" type="text" id="Login">        </font></td>    </tr>    <tr>       <td width="100"><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Senha:</font></strong></div></td>      <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">         <input name="Senha" type="password" id="Senha">        </font></td>    </tr>    <tr>       <td width="100"><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Email:</font></strong></div></td>      <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">         <input name="Email" type="text" id="Email">        </font></td>    </tr>    <tr>       <td width="100"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">           <input name="selecao" type="hidden" id="selecao" value="ok">          </font></div></td>      <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">         <input type="submit" name="Submit" value="cadastrar">        </font></td>    </tr>  </table></form><% ELSE  'VERIFICA SE A EXISTE UM LOGIN COM O QUE O USUARIO ESTA TENTANDO CADASTRAR  set rs=con.execute("select * from TBL_DADOS where login='"& Login &"'")    'Procura no BD um usuario com este login, caso encontre da uma mensagem de erro  IF not rs.EOF then  response.write("<font face=verdana size=2>" & "Login já cadastrado" & "<br>")  response.write("<a href=javascript:history.go(-1)>voltar</a>")    ELSE    'VERIFICA SE O USUARIO, PREENCHEU TODOS OS CAMPOS.    if PriNome = "" or SegNome = "" or Aniversario = "" or Login = "" or Senha = "" or Email = "" Then        'SE TIVER  ALGUM CAMPO SEM PREENCHER    response.write("Preencha todos os campos do formulario" & "<br>")    response.write("<a href=javascript:history.go(-1)>voltar</a>")      Else        'SE TODOS OS CAMPOS FORAM PREENCHIDOS, OS DADOS SERÃO CADASTRADOS    SQL_INTO_DADOS = "Insert into TBL_DADOS (Login,Senha,PriNome,SegNome,Aniversario,Email) values ('" & Login & "','" & Senha & "','" & PriNome & "','" & SegNome & "','" & Aniversario & "','" & Email & "')"    Con.execute(SQL_INTO_DADOS)    response.write("Cadastro efetuado!!!" & "<br>")    response.write("Dentro de um minuto seu <font color=red>|Login|  |Senha|</font> estarão funcionando!") 	     End If  END IFEND IF%></body></html>

seguinte ele é para cadastrar em um banco Access simples!

pega os valores de <Form> e adiciona no BD!

 

Veja minha lógica:

 

1º Verificar se o formulario foi enviado.

 

2º recebe os valores do formulario com request.

 

3º se o usuario enviar o formulario, faz uma consulta para saber se ususario esta cadastrado, se for cadastrado apararece a seguinte mensagem: "Login ja cadastrado".

 

4º Se o Login não estiver cadastrado, ele verifica se o usuario deixou algum campo vazio.

 

5º Se não deixou cadastra no Bd e da a seguinte mensagem: "Cadastro Efetuado!"

 

O que ta acontecendo e que mesmo preenchendo todos os dados aida fica dando a mensagem: "Preencha todos os dados"

 

Ythalo Rossy

Compartilhar este post

Link para o post
Compartilhar em outros sites

Armanrulla    0

Armanrulla
Postado

Olá ....

 

 

acredito que o erro esteje na linha:

 

<%

'QUANDO O USUARIO ENVIAR O CADASTRO

if request("selecao") <> "ok" then

%>

 

tente fazer desta forma

 

<%

'QUANDO O USUARIO ENVIAR O CADASTRO

if request("selecao") = "ok" then

%>

 

 

[]`s

 

 

 

<%= Armando Ferraz %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Glaucio    0

Glaucio
Postado

Ou então coloque<%'QUANDO O USUARIO ENVIAR O CADASTROif request("selecao") <> EMPTY then%>E depois verifique se as variáveis realmente estão recebendo valores atribuídos com o request, analise os nomes se você colocou o mesmos na hora do request.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Um pequeno erro de digitação dá uma dor de cabeça:

DIM PriNome, SegNome, Aniversario, Login, Senha, Email

'RECEBENDO OS VALORES INSERIDOS PELO USUARIO

PriNome = request("PriNome")

SegNome = request("SegNome")

Aniversario = request("Anive<span style='font-size:14pt;line-height:100%'>r</span>sario")

Login = request("Login")

Senha = request("Senha")

Email = request("Email")

Isso não é uma crítica à você, é só o desabafo de quem já apanhou muito por causa de um! :P

Compartilhar este post

Link para o post
Compartilhar em outros sites

ythalorossy    0

ythalorossy
Postado

Salgado você é D+!Muito Obrigado, você nem imagina como passei esta semana, tentando fazer este cadastro e não dava certo...Nossa, me deu ate vontade de chorar... :D :D Ythalo Rossy!P.S: Qual seria o formato do campo no BD para receber este valor (02/09/1982), e se precisaria de alguma mascara? :D Felizes são aqueles que são salgados de conhecimentos!

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