skater

Olá Amigos
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
%>

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

Gostaria de criar um campo para redigitar e verificar o login do usuario, me ajudem.

Olá Pessoal
tentei instalar o PHPBB e logo após o up-load quando executei o install.php o sequinte erro apareceu:

Warning: Unable to access ./includes/functions_selects.php in install.php on line 28

Warning: Failed opening './includes/functions_selects.php' for inclusion (include_path='.:/data/apache/php/mmp_lib') in install.php on line 28

Warning: Unable to access ./includes/sql_parse.php in install.php on line 247

Warning: Failed opening './includes/sql_parse.php' for inclusion (include_path='.:/data/apache/php/mmp_lib') in install.php on line 247

Warning: Unable to access ./includes/constants.php in install.php on line 248

Warning: Failed opening './includes/constants.php' for inclusion (include_path='.:/data/apache/php/mmp_lib') in install.php on line 248

Warning: Unable to access ./includes/template.php in install.php on line 249

Warning: Failed opening './includes/template.php' for inclusion (include_path='.:/data/apache/php/mmp_lib') in install.php on line 249

Warning: Unable to access ./includes/functions.php in install.php on line 250

Warning: Failed opening './includes/functions.php' for inclusion (include_path='.:/data/apache/php/mmp_lib') in install.php on line 250

Warning: Unable to access ./includes/sessions.php in install.php on line 251

Warning: Failed opening './includes/sessions.php' for inclusion (include_path='.:/data/apache/php/mmp_lib') in install.php on line 251

Warning: Unable to access ./language/lang_english/lang_main.php in install.php on line 256

Warning: Failed opening './language/lang_english/lang_main.php' for inclusion (include_path='.:/data/apache/php/mmp_lib') in install.php on line 256

Warning: Unable to access ./language/lang_english/lang_admin.php in install.php on line 257

Warning: Failed opening './language/lang_english/lang_admin.php' for inclusion (include_path='.:/data/apache/php/mmp_lib') in install.php on line 257

Fatal error: Cannot instantiate non-existent class: template in install.php on line 259


[]´s

Olá Pessoal,
Sou novo por aqui e gostaria muito de uma ajuda, baixei o phpBB e invision board não sei nada de php, gostaria de saber quais pastas devo criar e quais arquvios devo colocar nessas pastas criada isso no phpBB para que ele funcione corretamente, já fiz essa pergunta em vários forum e ninquem me ajudou.

[]´s