Jump to content

  2. →
  3. →

Photo

Confirmar Senha

Started By skater, 18/11/2003, 11:12

  • Faça o login para participar
2 replies to this topic

#1 skater

skater

    Novato no fórum

  • Usuários
  • 5 posts
  • Sexo:Não informado

Posted 18/11/2003, 11:12

Olá Amigos (y)
Vocês me ajudaram muito, o código ficou certinho, só tem um problema quando eu preencho o formulario com senha diferente no campo "Senha" e "CSenha" aparece a frase "Campo Confirmar Senha diferente de Senha" só que o formulario foi enviado, como impedir isso?


[]´s
Skater




<%
If IsEmpty( Request.Form("submit") ) Then
%>

<FORM action="incluir_cadastro.asp" method=post id=form3 name=form3>
<TABLE align=center border=0 cellPadding=4 cellSpacing=1 width="90%">
<TR>
<TD bgcolor="#C9E4E4"></TD>
<TD bgcolor="#C9E4E4"> <div align="center"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#000033">::
Meu Cadastro ::<font color=orangered> </font><BR>
<BR>
</STRONG></FONT></div></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"> <P align=right><FONT face=Tahoma size=2>Razão Social:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<INPUT name=Rsocial style="HEIGHT: 22px; WIDTH: 277px"
maxLength=50>
</FONT></P></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"> <P align=right><FONT face=Tahoma size=2>Nome Fântasia:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<INPUT name=Nfant style="HEIGHT: 22px; WIDTH: 277px"
maxLength=50>
</FONT></P></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"> <P align=right><FONT face=Tahoma size=2>Nome:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<INPUT name=Nome style="HEIGHT: 22px; WIDTH: 277px"
maxLength=50>
</FONT></P></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"> <P align=right><FONT face=Tahoma size=2>Email:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<INPUT name=Email style="HEIGHT: 22px; WIDTH: 277px"
maxLength=50>
</FONT></P></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"> <P align=right><FONT face=Tahoma size=2>Senha:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<INPUT name=Senha style="HEIGHT: 22px; WIDTH: 112px"
maxLength=10 type="password">
</FONT></P></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"> <P align=right><FONT face=Tahoma size=2>Confirmar Senha:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<INPUT name=CSenha style="HEIGHT: 22px; WIDTH: 112px"
maxLength=10 type="password">
</FONT></P></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"> <P align=right><FONT face=Tahoma size=2>Nascimento:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<INPUT name=data_nasc style="HEIGHT: 22px; WIDTH: 112px"
maxLength=10>
</FONT><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;Ex.:
08/01/79</font></P></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"> <P align=right><FONT face=Tahoma size=2>CPF/CNPJ:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<INPUT name="cpf_cnpj" style="HEIGHT: 22px; WIDTH: 160px" onblur="Valida();">
&nbsp;Somente números</FONT></P></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"> <P align=right><FONT face=Tahoma size=2>Inscrisão Estadual:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<INPUT name="InsEst" style="HEIGHT: 22px; WIDTH: 160px" maxLength=15>
&nbsp;Somente números</FONT></P></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"> <P align=right><FONT face=Tahoma size=2>Endereço:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<INPUT name=Endereco style="HEIGHT: 22px; WIDTH: 277px"
maxLength=50>
</FONT></P></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"> <P align=right><FONT face=Tahoma size=2>Bairro:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<INPUT name=Bairro style="HEIGHT: 22px; WIDTH: 277px"
maxLength=50>
</FONT></P></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"> <P align=right><FONT face=Tahoma size=2>Cidade:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<INPUT name=Cidade style="HEIGHT: 22px; WIDTH: 277px"
maxLength=50>
</FONT></P></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"> <P align=right><FONT face=Tahoma size=2>Estado:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<select size="1" name="Estado" style="{font-family:Tahoma; font-size:12; background-color:whitesmoke}">
<option selected></option>
<option value=AC>AC</option>
<option value=AL>AL</option>
<option value=AM>AM</option>
<option value=AP>AP</option>
<option value=BA>BA</option>
<option value=CE>CE</option>
<option value=DF>DF</option>
<option value=ES>ES</option>
<option value=GO>GO</option>
<option value=MA>MA</option>
<option value=MG>MG</option>
<option value=MS>MS</option>
<option value=MT>MT</option>
<option value=PA>PA</option>
<option value=PB>PB</option>
<option value=PE>PE</option>
<option value=PI>PI</option>
<option value=PR>PR</option>
<option value=RJ>RJ</option>
<option value=RN>RN</option>
<option value=RO>RO</option>
<option value=RR>RR</option>
<option value=RS>RS</option>
<option value=SC>SC</option>
<option value=SE>SE</option>
<option value=SP>SP</option>
<option value=TO>TO</option>
</select>
</FONT></P></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"> <P align=right><FONT face=Tahoma size=2>Cep:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<INPUT name=Cep
style="HEIGHT: 22px; WIDTH: 112px" maxLength=9>
</FONT></P></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"> <P align=right><FONT face=Tahoma size=2>Telefone:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<INPUT name=Telefone
style="HEIGHT: 22px; WIDTH: 112px" maxLength=15>
</FONT></P></TD>
</TR>
<TR>
<TD rowspan="2" valign="top" bgcolor="#D7EBF8">
<P align=right><FONT face=Tahoma size=2>Fax:</FONT></P></TD>
<TD bgcolor="#D7EBF8"> <P align=left><FONT face=Tahoma size=2>
<INPUT name=Fax
style="HEIGHT: 22px; WIDTH: 112px" maxLength=15>
</FONT></P></TD>
</TR>
<TR>
<TD bgcolor="#D7EBF8"><div align="right">
<input type="submit" name="Submit" value="Enviar">
</div></TD>
</TR>
</TABLE>
</FORM>

<%
Else

'# para verificar se a Csenha é igual a Senha:

'CSenha = Request.Form("CSenha")
'Senha = Request.Form("Senha")

'if CSenha <> Senha then
' response.write "Campo Confirmar Senha diferente de Senha"
'end if
'# Se os campos do formulário estiverem preenchidos, exceto o campo do fax, que pode estar em branco
If Request.Form("Nome") <> "" AND Request.Form("Email") <> "" AND Request.Form("Senha") <> "" AND Request.Form("CSenha") <> "" AND Request.Form("Bairro") <> "" AND Request.Form("Endereco") <> "" AND Request.Form("Cidade") <> "" AND Request.Form("Estado") <> "" AND Request.Form("Cep") <> "" AND Request.Form("Telefone") <> "" AND IsDate(Request.Form("data_nasc")) Then

'# Cria um objeto de conexão com o banco de dados
Set Conexao = Server.CreateObject("ADODB.Connection")

'# abre a conexão com o banco de dados
Conexao.Open Application("cnx_cadastro")

'# Comando SQL que captura o email da tabela, enquanto o email for igual ao digitado
ComandoSQL = "SELECT Distinct Email FROM Clientes WHERE Email = '" & Request.Form("Email") & "'"

'# abre a tabela Produtos e recupera o email do banco de dados
Set Verifica = Conexao.Execute(ComandoSQL)

'# Se o email não estiver cadastrado
If Verifica.EOF Then

'# Comando SQL que inclui na tabela clientes todos os dados do cliente
ComandoSQL = "INSERT INTO Clientes (Rsocial, Nfant, Nome, Email, data_nasc, cpf_cnpj, InsEst, Senha, CSenha, Bairro, Endereco, Cidade, Estado, Cep, Telefone, Fax, Data) "
ComandoSQL = ComandoSQL & " VALUES ( '"
'# Se o campo do Rsocial estiver em branco, pois este não é verificado no início do código
If Request.Form("Rsocial") = "" Then

'# Inclui apenas um traço, para não retornar um erro por estar em branco
ComandoSQL = ComandoSQL & "-', '"

'# E se o campo do Rsocial estiver preenchido
Else

'# Inclui o valor digitado
ComandoSQL = ComandoSQL & Request.Form("Rsocial") & "', '"

End If
'# Se o campo do Nfant estiver em branco, pois este não é verificado no início do código
If Request.Form("Nfant") = "" Then

'# Inclui apenas um traço, para não retornar um erro por estar em branco
ComandoSQL = ComandoSQL & "-', '"

'# E se o campo do Nfant estiver preenchido
Else

'# Inclui o valor digitado
ComandoSQL = ComandoSQL & Request.Form("Nfant") & "', '"

End If
ComandoSQL = ComandoSQL & Request.Form("Nome") & "', '"
ComandoSQL = ComandoSQL & Request.Form("Email") & "', '"
ComandoSQL = ComandoSQL & Request.Form("data_nasc") & "', '"
ComandoSQL = ComandoSQL & Request.Form("cpf_cnpj") & "', '"
'# Se o campo do InsEst estiver em branco, pois este não é verificado no início do código
If Request.Form("InsEst") = "" Then

'# Inclui apenas um traço, para não retornar um erro por estar em branco
ComandoSQL = ComandoSQL & "-', '"

'# E se o campo do InsEst estiver preenchido
Else

'# Inclui o valor digitado
ComandoSQL = ComandoSQL & Request.Form("InsEst") & "', '"

End If
ComandoSQL = ComandoSQL & Request.Form("Senha") & "', '"
ComandoSQL = ComandoSQL & Request.Form("CSenha") & "', '"
ComandoSQL = ComandoSQL & Request.Form("Bairro") & "', '"
ComandoSQL = ComandoSQL & Request.Form("Endereco") & "', '"
ComandoSQL = ComandoSQL & Request.Form("Cidade") & "', '"
ComandoSQL = ComandoSQL & Request.Form("Estado") & "', '"
ComandoSQL = ComandoSQL & Request.Form("Cep") & "', '"
ComandoSQL = ComandoSQL & Request.Form("Telefone") & "', '"

'# Se o campo do fax estiver em branco, pois este não é verificado no início do código
If Request.Form("Fax") = "" Then

'# Inclui apenas um traço, para não retornar um erro por estar em branco
ComandoSQL = ComandoSQL & "-', '"

'# E se o campo do fax estiver preenchido
Else

'# Inclui o valor digitado
ComandoSQL = ComandoSQL & Request.Form("Fax") & "', '"

End If

ComandoSQL = ComandoSQL & Now() & "' )"

'# abre a tabela Produtos e recupera o email do banco de dados
Set Incluir = Conexao.Execute(ComandoSQL)

Set Incluir = Nothing

'# Cria as variáveis de sessão para gravar os dados do usuário
Session("Rsocial") = Request.Form("Rsocial")
Session("Nfant") = Request.Form("Nfant")
Session("Nome") = Request.Form("Nome")
Session("Email") = Request.Form("Email")
Session("Endereco") = Request.Form("Endereco")
Session("Bairro") = Request.Form("Bairro")
Session("Cidade") = Request.Form("Cidade")
Session("Estado") = Request.Form("Estado")
Session("Cep") = Request.Form("Cep")
Session("cpf_cnpj") = Request.Form("cpf_cnpj")
Session("InsEst") = Request.Form("InsEst")
Session("Telefone") = Request.Form("Telefone")
Session("Fax") = Request.Form("Fax")

'# Comando SQL que captura o Codigo da tabela, enquanto o email for igual ao digitado
ComandoSQL = "SELECT Distinct Codigo FROM Clientes WHERE Email = '" & Request.Form("Email") & "'"

'# abre a tabela Produtos e recupera o email do banco de dados
Set Captura = Conexao.Execute(ComandoSQL)

'# Cria a variável de sessão para gravar o codigo do usuário
Session("Codigo") = Captura("Codigo")

%>

<blockquote><BR><BR><BR><BR><CENTER><BR><BR>
Olá <B><%=Request.Form("Nome")%></B>, seu cadastro foi efetuado com sucesso.

<% If IsEmpty( Session("frete") ) Then %>

<BR><BR><a href="index.asp">Clique aqui</a> para voltar a loja

<% Else%>

<BR><BR><a href="index.asp">Clique aqui</a> para voltar a loja,
</FORM><FORM method=post action="cesta.asp" id=form1 name=form1>
<INPUT type=hidden name="confirma_pedido" value="Sim">
<BR><BR>:. Ou clique no botão abaixo para finalizar seu pedido
<BR><BR><INPUT type=submit name=submit value="Finalizar Compras..." style="{font-family:Tahoma; font-size:12; background-color:whitesmoke}">
<FORM id=form2 name=form2>

<% End IF %>

<BR><BR><BR><BR><BR><BR><BR><BR></blockquote></CENTER>

<%
'# E se o email já estiver cadastrado
Else
%>

<blockquote><BR><BR><BR><BR><B>ATENÇÃO!!!</B><BR><BR>O email <B><%=Request.Form("Email")%></B> já está cadastrado.
<BR><BR><A href="java script:history.go(-1)">Clique aqui</A> para voltar
<BR><BR><BR><BR><BR><BR><BR><BR></blockquote>

<%
End If

'# Fecha a conexão com o banco de dados
Conexao.Close

'# Libera variaveis da memória
Set Conexao = Nothing
Set Verifica = Nothing
Set ComandoSQL = Nothing

'# E se os campos do formulário não estiverem preenchidos
Else

%>

<blockquote><BR><BR><BR><BR><B>ATENÇÃO!!!</B><BR><BR>Seus dados de cadastro estão incompletos,
<A href="java script:history.go(-1)">clique aqui</A> para voltar
<BR><BR><BR><BR><BR><BR><BR><BR></blockquote>

<%
End IF
End IF
%>
"nem tudo que parece ser, é, mas tudo que é, parece ser"

#2 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 18/11/2003, 14:01

isso pode ser feito somente com java scirpt, faz uma busca por "validacao de campos" - no forum que voce encontra muita coisa sobre isso
www.andrewsmedina.com.br

#3 cfpower

cfpower

    Normal

  • Usuários
  • 84 posts
  • Sexo:Não informado

Posted 18/11/2003, 16:41

Faça por java script:

function valida()
{
if (document.form.txtSenha.value != document.form.txtConfirmaSenha.value)
window.alert('Senhas não coincidem!');
else
window.alert('OK!');
return 1;
}

Valeu,
======================
PORTA 80 WEB HOSTING - A hospedagem profissional de websites
ASP, ASP.NET, CFMX 6.1, PHP, MYSQL, SQL SERVER, ACCESS e muito mais
http://www.porta80.com.br
Voltar para ASP


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq