none
Exibir dados abaixo da pagina de inseção ao banco RRS feed

  • Pergunta

  • Boa tarde!!!

    Alguem poderiame ajudar a fazer com que os dados inseridos no banco aparecessem em baixo do formulario de inclução.

    terça-feira, 30 de março de 2010 18:06

Respostas

  • Ligia,

     

    Acho que a forma mais fácil de fazer isso, se é que eu entendi, é você colocar o Action do seu Form para a mesma página que estáo código html que você postou. Aí, na parte de baixo da seu código html você coloca um IF (em asp, claro) para saber se a página está sendo carregada pela entrada do formulário e colocar lá dentro todo o código asp. Não sei se fui claro, se possível me envie as páginas que você está usando para eu tentar ajudar (atadolfo@gmail.com)

     

    Alexandre

    • Marcado como Resposta Dai13 terça-feira, 6 de abril de 2010 13:07
    • Marcado como Resposta Dai13 terça-feira, 6 de abril de 2010 13:07
    segunda-feira, 5 de abril de 2010 20:33

Todas as Respostas

  • Esclarecendo a pergunta. ãosei tem como na pagina de consulta ao banco os dados a serem consultados já ficarem todos abaixo antes do cliente fazer a consulta , ele só faria a consulta para encontrar mais rapido.

    Codigo da pagina de consulta:


      <div id="bodyPan">
        <div id="bodyLeftPan">

         <div id="bodyPan">
        <div id="bodyLeftPan">
         <form id="form1" name="form1" method="get" action="consulta_cliente.asp">
     

       <h4>Consulta de Clientes</h4>
       <hr color= "771199" size="4" style="width: 538px">
       
      <table width="545" height="191" border="0">
         <tr>
      
     <td colspan="3" >Cliente
      <label><input name="cons_cliente" type="text" size="80" />
                </label>
      </td>
      
     <td >&nbsp;</td>
      </tr>
     <tr>
     <td class="style1">Estado<br />
            &nbsp;
                            <select id="Select1" name="Estados"  onclick="return Select1_onclick()">
       <option value="Acre">AC
       <option value="Alagoas">AL
       <option value="Amazonas">AM
       <option value="Amapa">AP
       <option value="Bahia">BA
       <option name="Distrito Federal"> DF
       <option value="Espirito Santo">ES
       <option value="Goias">GO
       <option value="Maranhão">MA
       <option value="Minas Gerais">MG
       <option name="Mato Grosso do Sul"> MS
       <option value="Mato Grosso">MT
       <option value="Pará">PA
       <option value="Paraiba">PB
       <option value="Pernambuco">PE
       <option name="Piaui"> PI
       <option value="Paraná">PR
       <option value="Rio de Janeiro">RJ
       <option value="Rondonia">RO
       <option value="Rio Grande do Norte">RN
       <option name="Roraima"> RO
       <option value="Rio Grande do Sul">RS
       <option value="Santa Catarina">SC
       <option value="Sergipe">SE
       <option value="São Paulo" selected>SP
       <option value="Tocantins">TO
       </option>
                            </select></td>
     <td class="style1">Cidade<br>
      <label><input name="cons_cidade" type="text" size="30" />
                </label>
      </td>
     <td>CNPJ<br>
      <form name=Form action='javascript: TESTA()'>
      <input type='text' maxlength=18 name='CNPJ' onFocus='this.select();' OnKeyUp="FormataCGC('Form', 'CNPJ', event);">&nbsp;
     <td>
       <input type='button' value='VALIDA' onClick='TESTA();'
     </tr><tr>
     <td class="style1">
                  
         <input type="submit" name="Enviar" value="CONSULTAR" />&nbsp;
     </td>
     <td>
     <INPUT TYPE=RESET VALUE="Limpar dados!"></td>
     
     </tr>
     </table>

    </form>
     </body>
    </html>

    Codigo da Consulta:

    <%

     SET CONEXAO = SERVER.CREATEOBJECT("ADODB.CONNECTION")
     Set Conexao=Server.CreateObject("ADODB.Recordset")

     stringconexao="Provider=SQLOledb.1;Data Source =' localhost'; User ID='Dai'; Password='256301'";

     conexao.open stringconexao

      sql = "SELECT Fantasia, Contato, CPNJ, Cidade, Estado FROM Clientes ORDER BY Fantasia"

     Categoria.open sql,conexao
     
     

     while not Clientes eof
     response.write "<tr>"
     response.write "<td>"
     response.write Clientes ("Fantasia")
     response.write "</td>"
     response.write "<td>"
     response.write Clientes ("Contato")
     response.write "</td>"
     response.write "<td>"
     response.write clientes ("CNPJ")
     response.write "</td>"
     response.write "<td>"
     response.write Clientes ("Cidade")
     response.write "</td>"
     response.write "<td>"
     response.write Clientes ("Estado")
     response.write "</td>"
     response.write "</tr>"
     Distribuidor.movenext
     wend
     response.write "</table>"

    response.write sql

    conexao.close

    %>

     

    quarta-feira, 31 de março de 2010 11:25
  • Bom nao sei o tamanho em que o sistema ai se encontra, mais vc enviar todos os clientes é meio ruim, imagine se vc tiver muitos clientes, a pagina de retorno será gigante...

    Teria que fazer uma paginação, algo para ficar mais rapido....

    Vc disse em aparecer os dados logo abaixo do formulario, se vc já tem a pesquisa é so replicar o codigo para o cadastro, mais seria bom se nao fosse todos os clientes!

    quarta-feira, 31 de março de 2010 11:39
  • Poderia não ser todos, mas aqueles  iniciam com a  mesma letra.
    quarta-feira, 31 de março de 2010 11:52
  • então só muda a sua query 

    SELECT Fantasia, Contato, CPNJ, Cidade, Estado FROM Clientes WHERE Contato LIKE 'A%' ORDER BY Fantasia

    quarta-feira, 31 de março de 2010 13:17
  • então só muda a sua query 

    SELECT Fantasia, Contato, CPNJ, Cidade, Estado FROM Clientes WHERE Contato LIKE 'A%' ORDER BY Fantasia

    • Marcado como Resposta Dai13 quinta-feira, 1 de abril de 2010 17:08
    • Não Marcado como Resposta Dai13 quinta-feira, 1 de abril de 2010 17:09
    • Marcado como Resposta Dai13 quinta-feira, 1 de abril de 2010 17:09
    • Não Marcado como Resposta Dai13 quinta-feira, 1 de abril de 2010 17:09
    quarta-feira, 31 de março de 2010 13:17
  • Coloquei o codigo logo abaixo do formulario mas não funcionou
    quarta-feira, 31 de março de 2010 13:33
  • Cara vc tem o codigo, aparentemente esta tudo certo, o que nao esta funcionando ?

    esta dando erro ?

     

    quarta-feira, 31 de março de 2010 16:33
  • Então Alan ele não aparece na tela ( tela fica branca) e a barra de endereço fica dessa maneira

    http://localhost/Nova%20pasta/consulta_cliente.asp?cons_cliente=&Estados=S%E3o+Paulo&cons_cidade=&CNPJ=&Enviar=CONSULTAR

    e não dá nenhum erro .

    quarta-feira, 31 de março de 2010 16:44
  • Manda exibir o código fonte dessa página em branco que deve ter alguma coisa lá dentro com a mensagem de erro.
    quarta-feira, 31 de março de 2010 20:15
  • e o que é isso aqui ?

    <form name=Form action='javascript: TESTA()'>

    esse testa() faz o que ?

    quinta-feira, 1 de abril de 2010 11:24
  • Obrigada Atadolfo pela dica, mas aparece somente:

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <HTML><HEAD>
    <META content="text/html; charset=windows-1252" http-equiv=Content-Type></HEAD>
    <BODY></BODY></HTML>
    Não sei se isso é significativo sendo que o codigo que fiz de consulta é o seguinte:
    <%
    SET CONEXAO = SERVER.CREATEOBJECT("ADODB.CONNECTION")
    CONEXAO.OPEN "PROVIDER=SQLOLEDB.1;SERVER=Ligia\Bit;DATABASE=Bit System;UID=Dai;PWD=256301;" 

    SELECT Fantasia, Contato, CPNJ, Cidade, Estado FROM Clientes WHERE Contato LIKE 'A%' ORDER BY Fantasia
     Categoria.open sql,conexao
     
     
     while not Clientes eof
     response.write "<tr>"
     response.write "<td>"
     response.write Clientes ("Fantasia")
     response.write "</td>"
     response.write "<td>"
     response.write Clientes ("Contato")
     response.write "</td>"
     response.write "<td>"
     response.write clientes ("CNPJ")
     response.write "</td>"
     response.write "<td>"
     response.write Clientes ("Cidade")
     response.write "</td>"
     response.write "<td>"
     response.write Clientes ("Estado")
     response.write "</td>"
     response.write "</tr>"
     Distribuidor.movenext
     wend
     response.write "</table>"
    response.write sql
    conexao.close 
    %>
    quinta-feira, 1 de abril de 2010 11:25
  • Bom dia, Alan!!

    Esse testa verifica o CNPJ se é valido ou não pois o começo do codigo tem a função ewm javascript para testar e o inicio que não coloquei é o seguinte:

    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <title>Bit System</title>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
    <link href="style.css" rel="stylesheet" type="text/css" />
    &nbsp;<style>
    ul
    {
        margin: 0;
        padding: 0;
        list-style: none;
        height:25;
        border-bottom: 1px solid #ccc;
    }
    ul li
    {
     position: relative;
     overflow: visible;
                    top: 0px;
                    left: -1px;
                    width: 103px;
                }
    li ul
    {
        position: absolute;
        left: 1px;
        top: 25;
        display: none;
        width: 98px;
    }
    ul li a
    {
        display: block;
        text-decoration: none;
        font-size:11px;
        font-family:Verdana,Arial,Helvetica;
        color: #000;
        padding: 5px;
        border: 1px solid #ccc;
                width: 79px;
            }
    li:hover ul, li.over ul
    {
        display: block;
    }
    ul li ul a:hover{
        background:#000;
        display:block;
        color:#fff;
    }
    ul li a:hover
    {
        background:#000;
        display:block;
        color:#fff;
        border-bottom: 1px #000 solid;
    }
    /* Fix IE. Hide from IE Mac \*/
    * html ul li { float: left; height: 1%; }
    * html ul li a { height: 1%; }
    /* End */
                .style1
                {
                }
            </style><script type="text/javascript">
    startList = function() {
    if (document.all&&document.getElementById) {
    navRoot = document.getElementById("nav");
    for (i=0; i<navRoot.childNodes.length; i++) {
    node = navRoot.childNodes[i];
    if (node.nodeName=="LI") {
    node.onmouseover=function() {
    this.className+=" over";
      }
      node.onmouseout=function() {
      this.className=this.className.replace
        (" over", "");
       }
       }
      }
    }
    }
    window.onload=startList;
    </script>
    <table style="width:100%;">
            <tr>
                <td>
    <img src="IMG/Bitsystem.jpg" /></td>
                <td>
              
                </td>
            </tr>
        </table>
    <script>
    function isNUMB(c)
     {
     if((cx=c.indexOf(","))!=-1)
      {
      c = c.substring(0,cx)+"."+c.substring(cx+1);
      }
     if((parseFloat(c) / c != 1))
      {
      if(parseFloat(c) * c == 0)
       {
       return(1);
       }
      else
       {
       return(0);
       }
      }
     else
      {
      return(1);
      }
     }
    function LIMP(c)
     {
     while((cx=c.indexOf("-"))!=-1)
      {
      c = c.substring(0,cx)+c.substring(cx+1);
      }
     while((cx=c.indexOf("/"))!=-1)
      {
      c = c.substring(0,cx)+c.substring(cx+1);
      }
     while((cx=c.indexOf(","))!=-1)
      {
      c = c.substring(0,cx)+c.substring(cx+1);
      }
     while((cx=c.indexOf("."))!=-1)
      {
      c = c.substring(0,cx)+c.substring(cx+1);
      }
     while((cx=c.indexOf("("))!=-1)
      {
      c = c.substring(0,cx)+c.substring(cx+1);
      }
     while((cx=c.indexOf(")"))!=-1)
      {
      c = c.substring(0,cx)+c.substring(cx+1);
      }
     while((cx=c.indexOf(" "))!=-1)
      {
      c = c.substring(0,cx)+c.substring(cx+1);
      }
     return(c);
     }

    function VerifyCNPJ(CNPJ)
     {
     CNPJ = LIMP(CNPJ);
     if(isNUMB(CNPJ) != 1)
      {
      return(0);
      }
     else
      {
      if(CNPJ == 0)
       {
       return(0);
       }
      else
       {
       g=CNPJ.length-2;
       if(RealTestaCNPJ(CNPJ,g) == 1)
        {
        g=CNPJ.length-1;
        if(RealTestaCNPJ(CNPJ,g) == 1)
         {
         return(1);
         }
        else
         {
         return(0);
         }
        }
       else
        {
        return(0);
        }
       }
      }
     }
    function RealTestaCNPJ(CNPJ,g)
     {
     var VerCNPJ=0;
     var ind=2;
     var tam;
     for(f=g;f>0;f--)
      {
      VerCNPJ+=parseInt(CNPJ.charAt(f-1))*ind;
      if(ind>8)
       {
       ind=2;
       }
      else
       {
       ind++;
       }
      }
      VerCNPJ%=11;
      if(VerCNPJ==0 || VerCNPJ==1)
       {
       VerCNPJ=0;
       }
      else
       {
       VerCNPJ=11-VerCNPJ;
       }
     if(VerCNPJ!=parseInt(CNPJ.charAt(g)))
      {
      return(0);
      }
     else
      {
      return(1);
      }
     }
     

      function FormataCGC(Formulario, Campo, TeclaPres)
      {
        var tecla = TeclaPres.keyCode;
        var strCampo;
        var vr;
        var tam;
        var TamanhoMaximo = 14;
     
        eval("strCampo = document." + Formulario + "." + Campo);
     
        vr = strCampo.value;
        vr = vr.replace("/", "");
        vr = vr.replace("/", "");
        vr = vr.replace("/", "");
        vr = vr.replace(",", "");
        vr = vr.replace(".", "");
        vr = vr.replace(".", "");
        vr = vr.replace(".", "");
        vr = vr.replace(".", "");
        vr = vr.replace(".", "");
        vr = vr.replace(".", "");
        vr = vr.replace(".", "");
        vr = vr.replace("-", "");
        vr = vr.replace("-", "");
        vr = vr.replace("-", "");
        vr = vr.replace("-", "");
        vr = vr.replace("-", "");
        tam = vr.length;

        if (tam < TamanhoMaximo && tecla != 8)
        {
          tam = vr.length + 1;
        }

        if (tecla == 8)
        {
          tam = tam - 1;
        }

        if (tecla == 8 || tecla >= 48 && tecla <= 57 || tecla >= 96 && tecla <= 105)
        {
          if (tam <= 2)
          {
            strCampo.value = vr;
          }
           if ((tam > 2) && (tam <= 6))
           {
             strCampo.value = vr.substr(0, tam - 2) + '-' + vr.substr(tam - 2, tam);
           }
           if ((tam >= 7) && (tam <= 9))
           {
             strCampo.value = vr.substr(0, tam - 6) + '/' + vr.substr(tam - 6, 4) + '-' + vr.substr(tam - 2, tam);
          }
           if ((tam >= 10) && (tam <= 12))
           {
             strCampo.value = vr.substr(0, tam - 9) + '.' + vr.substr(tam - 9, 3) + '/' + vr.substr(tam - 6, 4) + '-' + vr.substr(tam - 2, tam);
          }
           if ((tam >= 13) && (tam <= 14))
           {
             strCampo.value = vr.substr(0, tam - 12) + '.' + vr.substr(tam - 12, 3) + '.' + vr.substr(tam - 9, 3) + '/' + vr.substr(tam - 6, 4) + '-' + vr.substr(tam - 2, tam);
          }
           if ((tam >= 15) && (tam <= 17))
           {
             strCampo.value = vr.substr(0, tam - 14) + '.' + vr.substr(tam - 14, 3) + '.' + vr.substr(tam - 11, 3) + '.' + vr.substr(tam - 8, 3) + '.' + vr.substr(tam - 5, 3) + '-' + vr.substr(tam - 2, tam);
          }
        }
      }

    function TESTA()
     {
     if(VerifyCNPJ(document.forms[0].CNPJ.value) == 1)
      {
      alert("CNPJ válido!");
      }
     else
      {
      alert("CNPJ não é válido!");
      }
     document.forms[0].CNPJ.focus();
     return;
     }
    </script></head>

    </head>


     <body >
       
        <table >
    <tr height="25">
    <td width="116" rowspan=2>
        <ul id="Ul5">
            <li><a href="#"><b>Clientes</b></a>
                <ul>
                <li><a href="cadastro_clientes.html">Cadastrar Clientes</a></li>
                <li><a href="Consulta_Cliente.html">Consultas </a></li>
                <li><a href="#">Relatorios</a></li>
              </ul>
            </li>
        </ul>    </td>
        <td width="100">
        <ul id="nav">
            <li><a href="#"><b>Distribuidor</b></a><ul>
                <li><a href="cadastro_distribuidor.html">Cadastrar</a></li>
                <li><a href="Consulta_Distribuidores.html">Consultas</a></li>
                </ul>
            </li>
        </ul>    </td>
        <td width="100">
        <ul id="nav">
            <li><a href="#"><b>Pedidos </b></a></b>
              <ul>
                <li><a href="cadastro_produto.html">Produtos</a></li>
                <li><a href="Categoria.html">Categorias</a></li>
                <li><a href="Fabricante.html">Fabricante</a></li>
              </ul>
            </li>
        </ul>    </td>
        <td width="116" rowspan=2>
        <ul id="nav">
            <li><a href="#"><b>Cotações</b></a>
            <ul>
                <li><a href="cadastro_cotacao.html">Cadastro</a></li>
                <li><a href="Consulta_Cotacoes2.html">Consulta</a></li>
                <li><a href="Relatorio_Cotacoes.html">Relatório</a></li>
              </ul>
           
             </li>

     <td width="116" rowspan=2>
        <ul id="Ul1">
            <li><a href="#"><b>Pedidos</b></a>
            <ul>
                <li><a href="cadastro_pedidos.html">Cadastro</a></li>
                <li><a href="Consulta_Pedidos.html">Consulta</a></li>
                <li><a href="Produtos_Vendido.html">Produtos Vendidos</a></li>
              </ul>
           
             </li>
        </ul>    </td>
     <td width="116" rowspan=2>
        <ul id="Ul2">
            <li><a href="#"><b>Comissões</b></a>
            <ul>
                <li><a href="Consulta_Comissoes2.html">Consulta</a></li>
                <li><a href="#">Relatório</a></li>
                <li><a href="Relatorio_Despesas.html">Despesas</a></li>
              </ul>
           
             </li>
        </ul>    </td>
              <td width="116" rowspan=2>
        <ul id="Ul3">
            <li><a href="#"><b>Controle NF</b></a>
    <ul>
                <li><a href="Controle_Nota_Fiscal.html">Controle</a></li>
                <li><a href="Consulta_Nota-Fiscal.html">Consulta</a></li>
        </ul>    </td>
        <td width="116" rowspan=2>
         <ul id="Ul6">
             <li><a href="ligacoesaten.html"><b>Ligações</b></a>
           
             </li>
        </ul>    </td>
         <td width="116" rowspan=2>
        <ul id="Ul4">
            <li><a href="index.html"><b>Sair</b></a>
           
             </li>
        </ul>    </td>
    </tr>

    </tr>

    </table>
    </form>

    quinta-feira, 1 de abril de 2010 11:59
  • Cara,

     

    Olhando o seu código parace que houve uma confusão com os nomes de variáveis. No seu post mais acima você colocou:

     

     SET CONEXAO = SERVER.CREATEOBJECT("ADODB.CONNECTION")
     Set Conexao=Server.CreateObject("ADODB.Recordset")
     stringconexao="Provider=SQLOledb.1;Data Source =' localhost'; User ID='Dai'; Password='256301'";
     conexao.open stringconexao
     sql = "SELECT Fantasia, Contato, CPNJ, Cidade, Estado FROM Clientes ORDER BY Fantasia"
     Categoria.open sql,conexao

     

    O recodset deveria ser Clientes, não conexão. E você está dando open em Categoria e no while usa Cliente? Talvez esteja aí o problema do porquê o seu recordset não está trazendo nenhum registro. Tente mudar para o seguinte:

     SET CONEXAO = SERVER.CREATEOBJECT("ADODB.CONNECTION")
     Set Clientes =Server.CreateObject("ADODB.Recordset")
     stringconexao="Provider=SQLOledb.1;Data Source =' localhost'; User ID='Dai'; Password='256301'";
     conexao.open stringconexao
     sql = "SELECT Fantasia, Contato, CPNJ, Cidade, Estado FROM Clientes ORDER BY Fantasia"
     Clientes.open sql,conexao

     

    Alexandre

    • Marcado como Resposta Dai13 quinta-feira, 1 de abril de 2010 17:07
    • Não Marcado como Resposta Dai13 quinta-feira, 1 de abril de 2010 17:09
    quinta-feira, 1 de abril de 2010 14:46
  • Pessoal acho que encontrei onde está o erro só não sei como consertar ...=S.

    ESTÁ NA FUNÇÃO EOF.

    Script error detected at line 8.
    Source line: while NOT CLIENTE EOF
    Description: Tipos incompatíveis: 'EOF'

    Se alguem puder me ajudar, a fazer com que ele pesquise até o final da tabela( EOF era para isso)...=)

    Agradeço deste já a atençãode vcs.

    Ligia

    quinta-feira, 1 de abril de 2010 14:47
  • Olá,

    Acredito que o que está procurando seja algo como o recurso AutoComplete do Ajax. Segue o link abaixo:

    http://www.asp.net/ajax/ajaxcontroltoolkit/Samples/AutoComplete/AutoComplete.aspx

    Não é dos mais fáceis de implementar mas é bastante eficiente. Sei que seria um desperdício de trabalho mas ainda tá em tempo.


    Ney Carline
    quinta-feira, 1 de abril de 2010 15:28
  • Boa tarde!!

    Exibindo já está mas em outrapagina alguem saberia como colocar na mesma pagina, sem ser atraves de frame?

    Obrigada

    quinta-feira, 1 de abril de 2010 17:07
  • Ligia,

    Não to entendendo mais nada, o que está funcionando e o que não está? Poste o código pra gente ver.

    Alexandre

    sexta-feira, 2 de abril de 2010 00:51
  • Está tudo funcionando só não está aparecendo na pagina. Logo abaixo está o codigo emhtml e em Asp, minha duvida é como fazer para ele aparecer na mesmapaginade consulta e não encaminhar para outra.

    hTML

    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <title>Bit System</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
    <link href="style.css" rel="stylesheet" type="text/css" />
    &nbs&nbsp;<style>
    ul
    {
        margin: 0;
        padding: 0;
        list-style: none;
        height:25;
        border-bottom: 1px solid #ccc;
    }
    ul li
    {
     position: relative;
     overflow: visible;
                    top: 0px;
                    left: -1px;
                    width: 103px;
                }
    li ul
    {
        position: absolute;
        left: 1px;
        top: 25;
        display: none;
        width: 98px;
    }
    ul li a
    {
        display: block;
        text-decoration: none;
        font-size:11px;
        font-family:Verdana,Arial,Helvetica;
        color: #000;
        padding: 5px;
        border: 1px solid #ccc;
                width: 79px;
            }
    li:hover ul, li.over ul
    {
        display: block;
    }
    ul li ul a:hover{
        background:#000;
        display:block;
        color:#fff;
    }
    ul li a:hover
    {
        background:#000;
        display:block;
        color:#fff;
        border-bottom: 1px #000 solid;
    }
    /* Fix IE. Hide from IE Mac \*/
    * html ul li { float: left; height: 1%; }
    * html ul li a { height: 1%; }
    /* End */
             .style4
             {
                        width: 248px;
                    }
                    .style5
                    {
                        width: 112px;
                    }
        </style><script type="text/javascript">
    startList = function() {
    if (document.all&&document.getElementById) {
    navRoot = document.getElementById("nav");
    for (i=0; i<navRoot.childNodes.length; i++) {
    node = navRoot.childNodes[i];
    if (node.nodeName=="LI") {
    node.onmouseover=function() {
    this.className+=" over";
      }
      node.onmouseout=function() {
      this.className=this.className.replace
        (" over", "");
       }
       }
      }
    }
    }
    window.onload=startList;
    </script>
    <table style="width:100%;">
            <tr>
                <td>
    <img src="IMG/Bitsystem.jpg" /></td>
                <td>
              
                </td>
            </tr>
        </table>
      <script>
    function isNUMB(c)
     {
     if((cx=c.indexOf(","))!=-1)
      {
      c = c.substring(0,cx)+"."+c.substring(cx+1);
      }
     if((parseFloat(c) / c != 1))
      {
      if(parseFloat(c) * c == 0)
       {
       return(1);
       }
      else
       {
       return(0);
       }
      }
     else
      {
      return(1);
      }
     }
    function LIMP(c)
     {
     while((cx=c.indexOf("-"))!=-1)
      {
      c = c.substring(0,cx)+c.substring(cx+1);
      }
     while((cx=c.indexOf("/"))!=-1)
      {
      c = c.substring(0,cx)+c.substring(cx+1);
      }
     while((cx=c.indexOf(","))!=-1)
      {
      c = c.substring(0,cx)+c.substring(cx+1);
      }
     while((cx=c.indexOf("."))!=-1)
      {
      c = c.substring(0,cx)+c.substring(cx+1);
      }
     while((cx=c.indexOf("("))!=-1)
      {
      c = c.substring(0,cx)+c.substring(cx+1);
      }
     while((cx=c.indexOf(")"))!=-1)
      {
      c = c.substring(0,cx)+c.substring(cx+1);
      }
     while((cx=c.indexOf(" "))!=-1)
      {
      c = c.substring(0,cx)+c.substring(cx+1);
      }
     return(c);
     }

    function VerifyCNPJ(CNPJ)
     {
     CNPJ = LIMP(CNPJ);
     if(isNUMB(CNPJ) != 1)
      {
      return(0);
      }
     else
      {
      if(CNPJ == 0)
       {
       return(0);
       }
      else
       {
       g=CNPJ.length-2;
       if(RealTestaCNPJ(CNPJ,g) == 1)
        {
        g=CNPJ.length-1;
        if(RealTestaCNPJ(CNPJ,g) == 1)
         {
         return(1);
         }
        else
         {
         return(0);
         }
        }
       else
        {
        return(0);
        }
       }
      }
     }
    function RealTestaCNPJ(CNPJ,g)
     {
     var VerCNPJ=0;
     var ind=2;
     var tam;
     for(f=g;f>0;f--)
      {
      VerCNPJ+=parseInt(CNPJ.charAt(f-1))*ind;
      if(ind>8)
       {
       ind=2;
       }
      else
       {
       ind++;
       }
      }
      VerCNPJ%=11;
      if(VerCNPJ==0 || VerCNPJ==1)
       {
       VerCNPJ=0;
       }
      else
       {
       VerCNPJ=11-VerCNPJ;
       }
     if(VerCNPJ!=parseInt(CNPJ.charAt(g)))
      {
      return(0);
      }
     else
      {
      return(1);
      }
     }
     

      function FormataCGC(Formulario, Campo, TeclaPres)
      {
        var tecla = TeclaPres.keyCode;
        var strCampo;
        var vr;
        var tam;
        var TamanhoMaximo = 14;
     
        eval("strCampo = document." + Formulario + "." + Campo);
     
        vr = strCampo.value;
        vr = vr.replace("/", "");
        vr = vr.replace("/", "");
        vr = vr.replace("/", "");
        vr = vr.replace(",", "");
        vr = vr.replace(".", "");
        vr = vr.replace(".", "");
        vr = vr.replace(".", "");
        vr = vr.replace(".", "");
        vr = vr.replace(".", "");
        vr = vr.replace(".", "");
        vr = vr.replace(".", "");
        vr = vr.replace("-", "");
        vr = vr.replace("-", "");
        vr = vr.replace("-", "");
        vr = vr.replace("-", "");
        vr = vr.replace("-", "");
        tam = vr.length;

        if (tam < TamanhoMaximo && tecla != 8)
        {
          tam = vr.length + 1;
        }

        if (tecla == 8)
        {
          tam = tam - 1;
        }

          if (tecla == 8 || tecla >= 48 && tecla <= 57 || tecla >= 96 && tecla <= 105)
         {
           if (tam <= 2)
           {
             strCampo.value = vr;
           }
            if ((tam > 2) && (tam <= 6))
            {
              strCampo.value = vr.substr(0, tam - 2) + '-' + vr.substr(tam - 2, tam);
            }
            if ((tam >= 7) && (tam <= 9))
            {
              strCampo.value = vr.substr(0, tam - 6) + '/' + vr.substr(tam - 6, 4) + '-' + vr.substr(tam - 2, tam);
           }
            if ((tam >= 10) && (tam <= 12))
            {
               strCampo.value = vr.substr(0, tam - 9) + '.' + vr.substr(tam - 9, 3) + '/' + vr.substr(tam - 6, 4) + '-' + vr.substr(tam - 2, tam);
           }
            if ((tam >= 13) && (tam <= 14))
            {
              strCampo.value = vr.substr(0, tam - 12) + '.' + vr.substr(tam - 12, 3) + '.' + vr.substr(tam - 9, 3) + '/' + vr.substr(tam - 6, 4) + '-' + vr.substr(tam - 2, tam);
            }
             if ((tam >= 15) && (tam <= 17))
             {
              strCampo.value = vr.substr(0, tam - 14) + '.' + vr.substr(tam - 14, 3) + '.' + vr.substr(tam - 11, 3) + '.' + vr.substr(tam - 8, 3) + '.' + vr.substr(tam - 5, 3) + '-' +   vr.substr(tam - 2, tam);
            }
          }
        }

      function TESTA()
       {
       if(VerifyCNPJ(document.forms[0].CNPJ.value) == 1)
        {
        alert("CNPJ válido!");
        }
       else
        {
        alert("CNPJ não é válido!");
        }
       document.forms[0].CNPJ.focus();
       return;
       }
     </script>
    </head>


     <body >
       
        <table >
    <tr height="25">
    <td width="116" rowspan=2>
        <ul id="Ul5">
            <li><a href="#"><b>Clientes</b></a>
                <ul>
                <li><a href="cadastro_clientes.html">Cadastrar Clientes</a></li>
                <li><a href="Consulta_Cliente.html">Consultas </a></li>
                <li><a href="#">Relatorios</a></li>
              </ul>
            </li>
        </ul>    </td>
        <td width="100">
        <ul id="nav">
            <li><a href="#"><b>Distribuidor</b></a><ul>
                <li><a href="cadastro_distribuidor.html">Cadastrar</a></li>
                <li><a href="Consulta_Distribuidores.html">Consultas</a></li>
                </ul>
            </li>
        </ul>    </td>
        <td width="100">
        <ul id="nav">
            <li><a href="#"><b>Pedidos </b></a></b>
              <ul>
                <li><a href="cadastro_produto.html">Produtos</a></li>
                <li><a href="Categoria.html">Categorias</a></li>
                <li><a href="Fabricante.html">Fabricante</a></li>
              </ul>
            </li>
        </ul>    </td>
        <td width="116" rowspan=2>
        <ul id="nav">
            <li><a href="#"><b>Cotações</b></a>
            <ul>
                <li><a href="cadastro_cotacao.html">Cadastro</a></li>
                <li><a href="Consulta_Cotacoes.html">Consulta</a></li>
                <li><a href="Relatorio_Cotacoes.html">Relatório</a></li>
              </ul>
           
             </li>

     <td width="116" rowspan=2>
        <ul id="Ul1">
            <li><a href="#"><b>Pedidos</b></a>
            <ul>
                <li><a href="cadastro_pedidos.html">Cadastro</a></li>
                <li><a href="Consulta_Pedidos.html">Consulta</a></li>
                <li><a href="Produtos_Vendido.html">Produtos Vendidos</a></li>
              </ul>
           
             </li>
        </ul>    </td>
     <td width="116" rowspan=2>
        <ul id="Ul2">
            <li><a href="#"><b>Comissões</b></a>
            <ul>
                <li><a href="Consulta_Comissoes2.html">Consulta</a></li>
                <li><a href="#">Relatório</a></li>
                <li><a href="Relatorio_Despesas.html">Despesas</a></li>
              </ul>
           
             </li>
        </ul>    </td>
              <td width="116" rowspan=2>
        <ul id="Ul3">
            <li><a href="#"><b>Controle NF</b></a>
    <ul>
                <li><a href="Controle_Nota_Fiscal.html">Controle</a></li>
                <li><a href="Consulta_Nota-Fiscal.html">Consulta</a></li>
        </ul>    </td>
      <td width="116" rowspan=2>
         <ul id="Ul4">
             <li><a href="ligacoesaten.html"><b>Ligações</b></a>
              </li>
        </ul>    </td>
      <td width="116" rowspan=2>
         <ul id="Ul4">
             <li><a href="ligacoesaten.html"><b>Ligações</b></a>
              </li>
        </ul>    </td>    
    <td width="116" rowspan=2>
        <ul id="Ul4">
            <li><a href="index.html"><b>Sair</b></a>
           
             </li>
        </ul>    </td>
    </tr>

    </tr>

    </table>
    </form>
     <body>

      <div id="bodyPan">
        <div id="bodyLeftPan">

         <div id="bodyPan">
        <div id="bodyLeftPan">
         <form name="form1" method="post" action="consulta_Distribuidor.asp">
     

       <h4>Consulta de Distribuidores</h4>
       <hr color= "771199" size="4" style="width: 556px">
       
      <table border="0">
      <tr> 
         
     <td colspan="2" >Distribuidor
      <label><input name="Nome" type="text" size="80" />
                </label>
      </td>
      </tr>
     <tr>
     <td class="style4">Cidade&nbsp;
      <label><input name="Cidade" type="text" size="30" />
                </label>
      </td>
     <td class="style5" >Estado
                            <select id="Select1" name="Estado"  onclick="return Select1_onclick()">
       <option value="Acre">AC
       <option value="Alagoas">AL
       <option value="Amazonas">AM
       <option value="Amapa">AP
       <option value="Bahia">BA
       <option Value="Distrito Federal"> DF
       <option value="Espirito Santo">ES
       <option value="Goias">GO
       <option value="Maranhão">MA
       <option value="Minas Gerais">MG
       <option value="Mato Grosso do Sul"> MS
       <option value="Mato Grosso">MT
       <option value="Pará">PA
       <option value="Paraiba">PB
       <option value="Pernambuco">PE
       <option value="Piaui"> PI
       <option value="Paraná">PR
       <option value="Rio de Janeiro">RJ
       <option value="Rondonia">RO
       <option value="Rio Grande do Norte">RN
       <option value="Roraima"> RO
       <option value="Rio Grande do Sul">RS
       <option value="Santa Catarina">SC
       <option value="Sergipe">SE
       <option value="São Paulo" selected>SP
       <option value="Tocantins">TO
       </option>
                            </select>
                 </label></td>
                 <tr>
     <td class="style4">CNPJ<br />
            <form name=Form action='javascript: TESTA()'>
      <input type='text' maxlength=18 name='CNPJ' onFocus='this.select();' OnKeyUp="FormataCGC('Form', 'CNPJ', event);"><input type='button' value='VALIDA' onClick='TESTA();'</td>&nbsp;
            </td></tr>
     <tr>
      <td class="style4">
                  
         <input type="submit" name="Enviar" value="Consultar">
     </td>
     <td class="style5">
     <INPUT TYPE=RESET VALUE="Limpar dados!">
     </td>
     
     </tr>
    </form>
     </body>
    </html>

    ASP

     

    <%

    SET CONEXAO = SERVER.CREATEOBJECT("ADODB.CONNECTION")
    CONEXAO.OPEN "PROVIDER=SQLOLEDB.1;SERVER=Dai;DATABASE=Bit System;UID=dai;PWD=5258;"

    Set rs = Server.CreateObject ("ADODB.Recordset")
    rs.Open "Select Fantasia, Contato, Cnpj, Cidade, Estado from Distribuidor", CONEXAO
     %>

    <table border="1" width="100%" bordercolor="blue">
    <tr>
    <td><b>Cliente</b></td>
    <td><b>Vendedor</b></td>
    <td><b>CNPJ</b></td>
    <td><b>Cidade</b></td>
    <td><b>Estado</b></td>
    </tr>
    </tr>
    <%do until rs.EOF%>
    <tr>
    <%for each x in rs.Fields%>
    <td><%Response.Write(x.value)%></td>
    <%next
    rs.MoveNext%>
    </tr>
    <%loop
    rs.close
    CONEXAO.close 
    %>
    </table>
    </body>
    </html>

    segunda-feira, 5 de abril de 2010 13:28
  • Ligia,

     

    Acho que a forma mais fácil de fazer isso, se é que eu entendi, é você colocar o Action do seu Form para a mesma página que estáo código html que você postou. Aí, na parte de baixo da seu código html você coloca um IF (em asp, claro) para saber se a página está sendo carregada pela entrada do formulário e colocar lá dentro todo o código asp. Não sei se fui claro, se possível me envie as páginas que você está usando para eu tentar ajudar (atadolfo@gmail.com)

     

    Alexandre

    • Marcado como Resposta Dai13 terça-feira, 6 de abril de 2010 13:07
    • Marcado como Resposta Dai13 terça-feira, 6 de abril de 2010 13:07
    segunda-feira, 5 de abril de 2010 20:33
  • Obrigada Alexandre!!!

    Irei te incluir no talk, tudo bem?

    Para qualquer duvida.

    terça-feira, 6 de abril de 2010 13:06
  • Ligia,

     

    Infelizmente qualquer tipo de chat é bloqueado no meu serviço, para entrar em contato é melhor usar o email mesmo (atadolfo@gmail.com)

    Alexandre

    terça-feira, 6 de abril de 2010 14:19