1 reply to this topic

[skater]

Olá Amigos
Tô precisando de uma força daquelas, no código abaixo preciso que o campo comfrimar senha 'Csenha' funcione e que os campos 'Rsocial', 'Nfant' possam ficar em branco se o usuario não preencher acresente apenas um traço '-' do mesmo jeito que o campo 'Faz' no final do código




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



Else

'# Se os campos do formulário estiverem preenchidos, exceto o campo do fax, que pode estar em branco
If Request.Form("Rsocial") <> "" AND Request.Form("Nfant") <> "" AND Request.Form("Senha") <> "" AND Request.Form("Csenha") 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 inclui na tabela clientes todos os dados do cliente
ComandoSQL = "INSERT INTO Clientes (Rsocial, Nfant, Nome, Email, data_nasc, cpf_cnpj, Senha, Bairro, Endereco, Cidade, Estado, Cep, Telefone, Fax, Data) "
ComandoSQL = ComandoSQL & " VALUES ( '"
ComandoSQL = ComandoSQL & Request.Form("Rsocial") & "', '"
ComandoSQL = ComandoSQL & Request.Form("Nfant") & "', '"
ComandoSQL = ComandoSQL & Request.Form("Senha") & "', '"
ComandoSQL = ComandoSQL & Request.Form("CSenha") & "', '"

'# 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() & "' )"


Um abração a todos e obrigado pela força

[Nicholas Pufal]

Ficaria assim:

<%
Rsocial = Request.Form("Rsocial")
Nfant = Request.Form("Nfant")

if Rsocial = "" then
Rsocial = "--"
else
Rsocial = Rsocial
end if

'Mesma coisa com o Nfant...

if RNfant = "" then
RNfant = "--"
else
RNfant = RNfant
end if

'para verificar se a Csenha ta igual a senha eh so fazer:

Csenha = Request.Form("Csenha")
senha = Request.Form("senha")

if Csenha <> senha then
response.write "Campo confirmar senha diferente de senha"
end if
%>

[]'s