Ir para conteúdo
Fórum Script Brasil

CrUnCk

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    4

  • Registro em

  • Última visita

Sobre CrUnCk

CrUnCk's Achievements

0

Reputação

  1. CrUnCk
    Desenvolvo um site no qual na área de cadastro, quero que no mesmo campo que o usuario pessoa juridica coloca o CNPJ da sua empresa, e caso ele não pussua cnpj, quero que esse mesmo usuario coloque o seu CPF no lugar do cnpj, ou seja tudo no mesmo campo. Incluir validação de CPF ao CNPJ ---------Código------------------------------------- <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <html> <head> <title>Bolsa de Resíduos & Negócios</title> &lt;script language="JavaScript"> function validaForm(){ //validar nomefantasia d = document.form1; if (d.txtNomeFantasia.value == ""){ alert("Campo Inválido: NomeFantasia."); d.txtNomeFantasia.focus(); return false; } //validar CNPJ if (d.txtCNPJ.value == ""){ alert("Campo Inválido: CNPJ."); d.txtCNPJ.focus(); return false; } else{ CNPJ = document.form1.txtCNPJ.value; erro = new String; if (CNPJ.length < 18) erro += "Campo Inválido: CNPJ. Deve conter 18 Caracteres.\n"; if ((CNPJ.charAt(2) != ".") || (CNPJ.charAt(6) != ".") || (CNPJ.charAt(10) != "/") || (CNPJ.charAt(15) != "-")){ if (erro.length == 0) erro += "Campo Inválido: CNPJ. Ex.: 11.222.333/4444-55\n"; } //substituir os caracteres que não são numeros if(document.layers && parseInt(navigator.appVersion) == 4){ x = CNPJ.substring(0,2); x += CNPJ.substring(3,6); x += CNPJ.substring(7,10); x += CNPJ.substring(11,15); x += CNPJ.substring(16,18); CNPJ = x; } else { CNPJ = CNPJ.replace(".",""); CNPJ = CNPJ.replace(".",""); CNPJ = CNPJ.replace("-",""); CNPJ = CNPJ.replace("/",""); } var nonNumbers = /\D/; if (nonNumbers.test(CNPJ)) erro += "Campo Inválido: CNPJ. Deve conter apenas números, pontos(.) e barras(/).\n"; var a = []; var b = new Number; var c = [6,5,4,3,2,9,8,7,6,5,4,3,2]; for (i=0; i<12; i++){ a = CNPJ.charAt(i); b += a * c[i+1]; } if ((x = b % 11) < 2) { a[12] = 0 } else { a[12] = 11-x } b = 0; for (y=0; y<13; y++) { b += (a[y] * c[y]); } if ((x = b % 11) < 2) { a[13] = 0; } else { a[13] = 11-x; } if ((CNPJ.charAt(12) != a[12]) || (CNPJ.charAt(13) != a[13])){ erro +="Campo Inválido: CNPJ. Digito verificador com problema.\n"; } if (erro.length > 0){ alert(erro); d.txtCNPJ.focus(); return false; } } //validar Contato if (d.txtContato.value == ""){ alert("Campo Inválido: Contato."); d.txtContato.focus(); return false; } --------------------------------------- Andei inxertando uns códigos de CPF nesse código porém não obtive resultado, o banco de dados usado é o access. Obrigado pela atenção.
  2. CrUnCk

    Erro De Vbscript Em Asp.

    pergunta respondeu ao CrUnCk de CrUnCk em ASP

    valeu fantasma, resolveu aqui, obrigadão! Mas voce sabe a causa desse erro, pois ele só acontece no SERVER aqui da empresa e no server instalado na minha maquina, mas na mesma pagina que eu hospedei num site gratuito na interenet, rola tudo beleza!
  3. CrUnCk

    Erro De Vbscript Em Asp.

    pergunta respondeu ao CrUnCk de CrUnCk em ASP

    deu outro erro, agora de conexao com o banco de dados: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A01A8) Objeto necessário: 'conexaodb' /iel/bolsaderesiduos/conexao.inc, line 8 vai o codigo do aqrquivo de conexao: <% sub AbreConexao ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="& Server.MapPath("Dados\BDBolsa.mdb") set conexaodb = Server.CreateObject("ADODB.Connection") conexaodb.open ConnectionString end sub sub FechaConexao conexaodb.close //<--------(linha 8) set conexaodb = nothing end sub %>
  4. CrUnCk

    Erro De Vbscript Em Asp.

    uma questão postou CrUnCk ASP

    Estou trabalando no meu serviço com uma pagina de cadastro, porem o usuario cadastrante envia os seus dados, e na pagina de finalização dar erro assim: Informações técnicas (para a equipe de suporte) Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A01B6) O objeto não dá suporte para a propriedade ou método: 'close' /iel/bolsaderesiduos/anegocios_cadastro_finalizacao.asp, line 61 ====================== codigo========================== <!--#include file="conexao.inc"--> <% Response.Expires=0 DIM strINS,rsINS,strNF,rsNF,strCNPJ,rsCNPJ strINS = "INSERT INTO Usuarios (NomeFantasia,CodCategoria,CNPJ,País,Estado,Cidade,CEP,Endereco,Bairro,Telefone1,Telefone2,Contato,Cargo,Senha,[E-Mail],BInformativo,Tamanho,Ativo) Values ('"&session("NomeFantasia")&"','"&session("Categoria")&"','"&session("CNPJ")&"','"&session("Pais")&"','"&session("Estado")&"','"&session("Cidade")&"','"&session("CEP")&"','"&session("Endereco")&"','"&session("Bairro")&"','"&session("Telefone")&"','"&session("Telefone2")&"','"&session("Contato")&"','"&session("Cargo")&"','"&session("senha1")&"','"&session("Email1")&"','"&session("Boletim")&"','"&session("Tamanho")&"','No')" strNF = "select NomeFantasia FROM Usuarios WHERE NomeFantasia like '"& session("NomeFantasia") &"' " strCNPJ = "select CNPJ FROM Usuarios WHERE CNPJ like '"& session("CNPJ") &"'" CALL abreconexao SET rsNF = conexaodb.execute(strNF) SET rsCNPJ = conexaodb.execute(strCNPJ) %> <html> <head> <title>Bolsa de Res&iacute;duos &amp; Neg&oacute;cios</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> <!-- .style1 { font-family: Arial, Helvetica, sans-serif; font-size: x-small; } .style2 { font-family: Arial, Helvetica, sans-serif; font-size: large; font-weight: bold; } --> </style> </head> <body> <!--#include file="menu.asp"--> <table width="755" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="755" height="19" valign="top"><hr></td> </tr> <tr> <td height="45" valign="top"><p align="center" class="style2"> <% IF NOT rsNF.EOF THEN Response.Write "<font face='arial' size='3' color='red' ><b>O cadastro com o nome '"&session("NomeFantasia")&"' J&aacute; Existe no cadastro! </font></b><br>" ELSEIF NOT rsCNPJ.EOF THEN Response.Write "<font face='arial' size='3' color='red' ><b>O cadastro com o n&uacute;mero do CNPJ '"&session("CNPJ")&"' J&aacute; Existe no cadastro! </font></b><br>" ELSE rsINS = conexaodb.execute(strINS) Response.Write "<p align='center'><strong><font size='3' face='Arial, Helvetica, sans-serif'>'"&session("NomeFantasia")&"',Cadastro realizado com sucesso!</font></strong><br><font size='2' face='Arial, Helvetica, sans-serif'>Agora você deve pagar sua fatura para podermos ativar sua conta. Após pagar sua fatura envie-nos um e-mail com o comprovante de depósito.</font></p>" END IF %> </p> </td> </tr> </table> <tr> <td width="755" height="136" valign="top"><div align="left"></div></td> </tr> <!--#include file="rodape.asp"--> </body> </html> <% rsIns.close rsNF.close rsCNPJ.close call fechaconexao set rsIns = nothing set rsNF = nothing set rsCNPJ = nothing %> <% Session Abandon %>
×
×
  • Criar Novo...