none
Tela de Busca Completa ! RRS feed

  • Pergunta

  • Bom dia .

    Galera estou fazendo uma tela de busca completa como funciona?

    Esta tela de busca ela vai ter um campo List/Menu dentro deste List/Menu vou ter codigo, nome, etc

    Em seguinta tenho um outro campo chamado ordem que tem 2 Radio Buton crescente e decrescente
    Tenho também um outro campo chamado pesquisa que tem 2 Radio Buton inicio frase e aleatório.
    E por ultimo um campo texto para digitar.

    Começei fazer porém tenho varias duvidas para desenvolver está tela alguem pode me ajudar por favor.

    Olha meu codigo ..

    <!--#include file="conexao.asp"-->

    <!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>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
    <title>:: Briefing _________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________</title>
    <style type="text/css">

    body {
     margin-left: 0px;
     margin-top: 0px;
     margin-right: 0px;
     margin-bottom: 0px;
    }


    A.menu_sup {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #ffffff;
     
    }

    A.menu_sup:link {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #ffffff;
     
    }

    A.menu_sup:hover {
    text-decoration: none;
     color: #dadada;

    }
    .campo {BACKGROUND: #f8f8f8;
      COLOR: #265490;
      BORDER-BOTTOM: #265490 1px solid;
      BORDER-LEFT: #EFEFEF 1px solid;
      BORDER-RIGHT: #265490 1px solid;
      BORDER-TOP: #EFEFEF 1px solid;
      FONT-SIZE: 10px;
      height : 20;
    }

     

     

    a {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #265490;
    }

    a:link {
     text-decoration: none;
    }
    a:visited {
     text-decoration: none;
    }
    a:hover {
     text-decoration: none;
     color: #999999;
    }
    a:active {
     text-decoration: none;
    }

    .style5 {color: #FFFFFF}
    .style8 {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #255691;
    }
    .style7 {font-size: 10px; color: #1C406C; font-family: Verdana, Arial, Helvetica, sans-serif;}
    .botao {BACKGROUND: #f8f8f8;
      COLOR: #265490;
      BORDER-BOTTOM: #265490 1px solid;
      BORDER-LEFT: #EFEFEF 1px solid;
      BORDER-RIGHT: #265490 1px solid;
      BORDER-TOP: #EFEFEF 1px solid;
      FONT-SIZE: 10px;
      width:80px;
      height : 20;
    }
    </style></head>

    <body>

    <table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="502" height="100" background="images/topo_01.jpg"><img src="images/chamado_2_01.jpg" width="502" height="99" /></td>
        <td width="100%" background="images/topo_01.jpg">&nbsp;</td>
        <td width="271"><img src="images/chamado_2_03.jpg" width="271" height="100" /></td>
      </tr>
      <tr>
        <td height="1" colspan="3" bgcolor="#F8f8f8"></td>
      </tr>
      <tr>
        <td colspan="3" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" align="right" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1%" bgcolor="#265490">&nbsp;</td>
            <td width="100%" height="22" valign="top" bgcolor="#265490"><a href="cadastro.html" class="menu_sup">&nbsp;&nbsp;Cadastro</a><span class="style5"> | </span><a href="processos.html" class="menu_sup">Processos</a> <span class="style5">| </span><a href="seguranca.html" class="menu_sup">Seguran&ccedil;a</a> <span class="style5">|</span> <a href="relatorios.html" class="menu_sup">Relat&oacute;rios</a> <span class="style5">|</span> <a href="gerenciamento.html" class="menu_sup">Gerenciamento</a> <span class="style5">|</span> <a href="logout.asp" class="menu_sup">Sair</a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="1" colspan="3" bgcolor="#ffffff"></td>
      </tr>
      <tr>
        <td height="430" colspan="3"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="20%" valign="top" bgcolor="#FFFFFF"><br />
              <table width="95%" border="0" align="center" cellpadding="0" cellspacing="2">
                <tr>
                  <td bgcolor="#FFFFFF"><img src="images/cadastro.jpg" width="136" height="28" /><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Empresas </a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Funcion&aacute;rios</a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Clientes</a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Cargos</a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Tipos de telefone </a></td>
                </tr>
                <tr>
                  <td>&nbsp;</td>
                </tr>
              </table></td><td width="1" background="images/fd.jpg" bgcolor="#CCCCCC">
              <p>&nbsp;</p></td>
              <td width="79%" valign="top" bgcolor="#FFFFFF">
      
        <form action="consu_new" method="post" name="consu_new;" id="consu_new" onSubmit="return valida();" >
     <br />
      
     <%

    Dim Campo_Pesquisa        : Campo_Pesquisa       = Request.Form("Pesquisa")
    Dim Ordem                        : Ordem                       = Request.Form("radio_ordem")
    Dim Pesquisa                      : Pesquisa                  = Request.Form("radio_pesquisa")
    Dim Busca                         : Busca                       = Request.Form("txt_busca")
    Dim acao                          : acao                          = Request.Form("acao")
    %>

      <%
      If acao = "buscar" Then
        Call conexao()
      
     SQL = "SELECT ID_EMPRESA, ID_FUNCIONARIO, NOME, EMAIL, ID_CARGO, LOGIN, SENHA, HORA_INI, HORA_FIM, VALOR_HORA, FLG_TEMPORARIO FROM FUNCIONARIO WHERE NOME LIKE '%"& Busca &"%' "
     
     Call AbreRS(oRS_Busca, SQL)
      if oRS_Busca.bof  or oRS_Busca.eof then%>
     <%else
      if request.Form("txt_Busca") = "" then%>
        <%End if
        End if     
      While Not oRS_Busca.Eof
         %>
        <%
        oRS_Busca.MoveNext
      Wend
        End If

    %>
        <table width="" border="0&quot;" cellpadding="2" cellspacing="2">
          <tr>
            <td class="style7"> Campo de Pesquisa: <br/>
                <select name="Pesquisa" class="campo" id="Pesquisa">
                  <option>&lt;-- Selecione --&gt;</option>
                  <option>Codigo</option>
                  <option>Nome</option>
                </select>        </td>
            <td width="" class="style7"> Ordem: <br />
                <fieldset class="">
                <input name="radio_ordem" type="radio" value="radio_ordem" />
                  Crescente
                  <input name="radio_ordem" type="radio" value="radio_ordem" />
                  Decrescente
                </fieldset></td>
          </tr>
          <tr>
            <td class="style7">Pesquisa: <br />
                <fieldset class="">
                <input name="radio_pesqusa" type="radio" value="radio_pesqusa" />
                  Inicio da Frase
                  <input name="radio_pesqusa" type="radio" value="radio_pesqusa" />
                  Aleat&oacute;rio
                </fieldset></td>
          </tr>
          <tr>
            <td class="style7">Busca:<br />
                <input name="txt_busca" type="text" class="campo" id="txt_busca" size="30" maxlength="50" /></td>
          </tr>
        </table>
              <table width="" border="0" cellpadding="2" cellspacing="2">
                <tr>
                  <td width=""><div align="center" class="style3">
                      <div align="center" class="style7"><strong>SUA BUSCA N&Atilde;O RETORNOU RESULTADO!!</strong></div>
                  </div></td>
                </tr>
      <tr class="campo"><td width=""><div align="" class="style7">
        <div align="center" class="style7">Codigo do Empresa </div>
      </div></td>
          <td width=""><div align="" class="style7">
              <div align="center" class="style7">Codigo do Funcionario</div>
          </div></td>
        <td width=""><div align="" class="style7">
              <div align="center" class="style7">Nome</div>
        </div></td>
        <td width=""><div align="" class="style7">
              <div align="center" class="style7">E_mail</div>
        </div></td>
        <td width=""><div align="" class="style7">
              <div align="center" class="style7">Codigo do Cargo </div>
        </div></td>
        <td width=""><div align="" class="style7">
              <div align="center" class="style7">Login</div>
        </div></td>
        <td width=""><div align="" class="style7">
              <div align="center" class="style7">Senha</div>
        </div></td>
        <td width=""><div align="" class="style7">
              <div align="center" class="style7">Hora Inicial </div>
        </div></td>
        <td width=""><div align="" class="style7">
              <div align="center" class="style7">Hora Final</div>
        </div></td>
        <td width=""><div align="" class="style7">
              <div align="center" class="style7">Valor da Hora</div>
        </div></td>
       <td width=""><div align="" class="style7">
              <div align="center" class="style7">Flg_Temporario</div>
        </div></td>
      </tr>

      <%
     
      SQL = "SELECT ID_EMPRESA, ID_FUNCIONARIO, NOME, EMAIL, ID_CARGO, LOGIN, SENHA, HORA_INI, HORA_FIM, VALOR_HORA, FLG_TEMPORARIO FROM FUNCIONARIO WHERE NOME LIKE '%"& Busca &"%' "

      %>
     
      <tr class="style8">
          <td height="" bgcolor="#FFFFFF"><strong><span class="syle8"><%=oRS_Busca("ID_EMPRESA")%></span></strong></td>
          <td bgcolor="#FFFFFF"><strong><span class="style3 style6 style8"><%=oRS_Busca("ID_FUNCIONARIO")%></span></strong></td>
          <td bgcolor="#FFFFFF"><strong><span class="style3 style6 style8"><%=oRS_Busca("NOME")%></span></strong></td>
          <td bgcolor="#FFFFFF"><strong><span class="style3 style6 style8"><%=oRS_Busca("EMAIL")%></span></strong></td>
          <td bgcolor="#FFFFFF"><strong><span class="style3 style6 style8"><%=oRS_Busca("ID_CARGO")%></span></strong></td>
          <td bgcolor="#FFFFFF"><strong><span class="style3 style6 style8"><%=oRS_Busca("LOGIN")%></span></strong></td>
          <td bgcolor="#FFFFFF"><strong><span class="style3 style6 style8"><%=oRS_Busca("SENHA")%></span></strong></td>
          <td bgcolor="#FFFFFF"><strong><span class="style3 style6 style8"><%=oRS_Busca("HORA_INI")%></span></strong></td>
          <td bgcolor="#FFFFFF"><strong><span class="style3 style6 style8"><%=oRS_Busca("HORA_FIM")%></span></strong></td>
          <td bgcolor="#FFFFFF"><strong><span class="style3 style6 style8"><%=oRS_Busca("VALOR_HORA")%></span></strong></td>
          <td bgcolor="#FFFFFF"><strong><span class="style3 style6 style8"><%=oRS_Busca("FLG_TEMPORARIO")%></span></strong></td>
        </tr>
           <td colspan="32" bgcolor="#FFFFFF"><div align="center">
              <input name="BUSCAR" type="submit" class="botao" id="BUSCAR" value="BUSCAR" onclick="document.location = 'consu_new.asp'"/>
            &nbsp;
              <input name="Limpar" type="button" class="botao" id="Limpar" value="Limpar"/>
          </div></td>
          <input name="acao2" type="hidden" id="acao2" value="buscar"/>
        </tr>
              </table>
        </form>  
           </table></td>
      </tr>
      <tr>
        <td height="" colspan="3" bgcolor="#265490"></td>
      </tr>
    </table>
      </table>
     
    </body>
    </html>

     

    SE ALGUÉM TIVER UM CODIGO MAIS FÁCIL FICO GRATO.

     

    quarta-feira, 17 de outubro de 2007 10:43

Respostas

  • Tente jogar o include file no inicio do arquivo!

    Dentro do arquivo conexao.asp, vc esta setando o objecto de conexao e o recordset?

     

    Tipo:

     

    Set conexao = Server.CreateObject("ADODB.Connection")

    Set oRs_Busca = Server.CreateObejct("ADODB.Recordset")

     

     

    Abraços

     

    Estevam

    quarta-feira, 17 de outubro de 2007 17:10

Todas as Respostas

  • Emerson da maneira que voce esta fazendo voce devera tratar os parametros recebidos na pagina de busca e adequar o pesquisa SQL conforme os parametros passados. Por exemplo:

    Digamos que o usuario passa o parametro "nome", "decrescente", "aleatorio", e o texto a ser pesquisado "Joao"

     

    Ai no asp vc teria mais ou menos assim:

     

    Dim tipopesquisa, tipoordem,tipobusca,valordapesquisa

    tipopesquisa  = "nome"

    tipoordem = "decrescente"

    tipobusca = "aleatorio"

    valordapesquisa = "Joao"

     

    SQL = "SELECT * FROM tabelabusca "

    if tipopesquisa = "nome" then

    SQL = SQL & " WHERE nome "

    end if

     

    if tipobusca = "aleatorioi then

    SQL = SQL & " LIKE %'" & valordapesquisa & "%'"

     

    if tipoordem = "decrescente" then

    SQL = SQL & " ORDER BY DESC"

    end if

     

    Entao se os parametros passados forem diferentes voce deve criar novas instruçoes para os valores passados

     

    Abraços

     

    Estevam

    quarta-feira, 17 de outubro de 2007 15:57
  • To fazendo assim ?

     

    <!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>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
    <title>:: Briefing _________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________</title>
    <style type="text/css">

    body {
     margin-left: 0px;
     margin-top: 0px;
     margin-right: 0px;
     margin-bottom: 0px;
    }


    A.menu_sup {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #ffffff;
     
    }

    A.menu_sup:link {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #ffffff;
     
    }

    A.menu_sup:hover {
    text-decoration: none;
     color: #dadada;

    }
    .campo {BACKGROUND: #f8f8f8;
      COLOR: #265490;
      BORDER-BOTTOM: #265490 1px solid;
      BORDER-LEFT: #EFEFEF 1px solid;
      BORDER-RIGHT: #265490 1px solid;
      BORDER-TOP: #EFEFEF 1px solid;
      FONT-SIZE: 10px;
      height : 20;
    }

     

     

    a {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #265490;
    }

    a:link {
     text-decoration: none;
    }
    a:visited {
     text-decoration: none;
    }
    a:hover {
     text-decoration: none;
     color: #999999;
    }
    a:active {
     text-decoration: none;
    }

    .style5 {color: #FFFFFF}
    .style8 {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #255691;
    }
    .style7 {font-size: 10px; color: #1C406C; font-family: Verdana, Arial, Helvetica, sans-serif;}
    .botao {BACKGROUND: #f8f8f8;
      COLOR: #265490;
      BORDER-BOTTOM: #265490 1px solid;
      BORDER-LEFT: #EFEFEF 1px solid;
      BORDER-RIGHT: #265490 1px solid;
      BORDER-TOP: #EFEFEF 1px solid;
      FONT-SIZE: 10px;
      width:80px;
      height : 20;
    }
    .style14 {font-size: 10px; color: #1C406C; font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; }
    </style></head>

    <body>

    <table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="502" height="100" background="images/topo_01.jpg"><img src="images/chamado_2_01.jpg" width="502" height="99" /></td>
        <td width="100%" background="images/topo_01.jpg">&nbsp;</td>
        <td width="271"><img src="images/chamado_2_03.jpg" width="271" height="100" /></td>
      </tr>
      <tr>
        <td height="1" colspan="3" bgcolor="#F8f8f8"></td>
      </tr>
      <tr>
        <td colspan="3" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" align="right" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1%" bgcolor="#265490">&nbsp;</td>
            <td width="100%" height="22" valign="top" bgcolor="#265490"><a href="cadastro.html" class="menu_sup">&nbsp;&nbsp;Cadastro</a><span class="style5"> | </span><a href="processos.html" class="menu_sup">Processos</a> <span class="style5">| </span><a href="seguranca.html" class="menu_sup">Seguran&ccedil;a</a> <span class="style5">|</span> <a href="relatorios.html" class="menu_sup">Relat&oacute;rios</a> <span class="style5">|</span> <a href="gerenciamento.html" class="menu_sup">Gerenciamento</a> <span class="style5">|</span> <a href="logout.asp" class="menu_sup">Sair</a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="1" colspan="3" bgcolor="#ffffff"></td>
      </tr>
      <tr>
        <td height="" colspan="3"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="20%" valign="top" bgcolor="#FFFFFF"><br />
              <table width="95%" border="0" align="center" cellpadding="0" cellspacing="2">
                <tr>
                  <td bgcolor="#FFFFFF"><img src="images/cadastro.jpg" width="136" height="28" /><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Empresas </a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Funcion&aacute;rios</a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Clientes</a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Cargos</a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Tipos de telefone </a></td>
                </tr>
                <tr>
                  <td>&nbsp;</td>
                </tr>
              </table></td>
            <td width="1" background="images/fd.jpg" bgcolor="#CCCCCC"><p>&nbsp;</p>         </td>
              <td width="79%" valign="top" bgcolor="#FFFFFF">
      
        <form action="consu_new.asp" method="post" name="consu_new" id="acao" onSubmit="return valida();" >
             <br />
               
      <!--#include file="conexao.asp"-->
       <%
      
         Dim Campo_Pesquisa        : Campo_Pesquisa       = Request.Form("Pesquisa")
            Dim Ordem                 : Ordem                = Request.Form("radio_ordem")
            Dim Pesquisa              : Pesquisa             = Request.Form("radio_pesquisa")
         Dim acao               : acao            = Request.Form("acao")
      Dim buscar_por            : buscar_por           = Request.Form("txt_Busca")
      Dim oRS_Busca           
            
       %>
               
    <table width="" border="0&quot;" cellpadding="2" cellspacing="2">
                  <tr>
                    <td width="189" class="style7"> Campo de Pesquisa: <br/>
                        <select name="Pesquisa" class="campo" id="Pesquisa">
                          <option>&lt;-- Selecione --&gt;</option>
                          <option>Codigo</option>
                          <option>Nome</option>
                        </select>                </td>
                    <td width="223" class="style7"> Ordem: <br />
                        <fieldset class="style8">
                        <input name="radio_ordem" type="radio" value="radio_ordem" />
                          Crescente
                          <input name="radio_ordem" type="radio" value="radio_ordem"/>
                          Decrescente
                        </fieldset></td>
                  </tr>
                  <tr>
                    <td class="style7">Pesquisa: <br />
                        <fieldset class="">
                        <input name="radio_pesqusa" type="radio" value="radio_pesqusa" />
                          Inicio da Frase
                          <input name="radio_pesqusa" type="radio" value="radio_pesqusa" />
                          Aleat&oacute;rio
                        </fieldset></td>
                  </tr>
                  <tr>
                    <td class="style7">Busca:<br />
                        <input name="txt_Busca" type="text" class="campo" id="txt_Busca" size="30" maxlength="50" /></td>
                  </tr>
                </table>
            <table width="" border="0" cellpadding="2" cellspacing="2">
        <%
      If acao = "buscar" Then
       
       SQL = "SELECT ID_EMPRESA, ID_FUNCIONARIO, NOME, EMAIL, ID_CARGO, LOGIN, SENHA, HORA_INI, HORA_FIM, VALOR_HORA, FLG_TEMPORARIO FROM FUNCIONARIO WHERE NOME LIKE '%"& buscar_por &"%'"

      oRS_Busca.open SQL,conexao
           
     if oRS_Busca.bof  or oRS_Busca.eof then %>
        <tr class="style8">
          <td width="308"><div align="center" class="style3">
          <div align="center" class="campo"><strong>SUA BUSCA N&Atilde;O RETORNOU RESULTADO!!</strong></div>
          </div></td>
        </tr>
         <%else
     if request.Form("txt_Busca") = "" then %>
      
       <% End if
      
        End if%> 
        
        <tr class="style8">
          <td><div align="center" class="style3">
          <div align="center" class="campo"><strong>PREENCHA O CAMPO!!</strong></div>
          </div></td>
        </tr>
      </table>
       <table width="" border="0" bgcolor="#E4E4E4">
         <tr>
       <td width="" class="style7"><strong><span class="style3 style6 style8">Codigo Empresa </span></strong></td>
       <td width="" class="style7"><strong><span class="style3 style6 style8">Codigo Funcionario </span></strong></td>
          <td width="" class="style7"><strong>E_mail</strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Codigo Cargo </span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Login</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Senha</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Filhos</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Hora Inicial </span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Hora Final </span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Valor da Hora </span></strong></td>
          <td width="" class="style14">Flg_Temporario</td>
        </tr>
      <tr class="style7">
     
       <%    
      Do While oRS_Busca.Eof=false
         %>
          <td height="22" bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=oRS_Busca("ID_EMPRESA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=oRS_Busca("ID_FUNCONARIO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=oRS_Busca("NOME")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=oRS_Busca("EMAIL")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=oRS_Busca("ID_CARGO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=oRS_Busca("LOGIN")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=oRS_Busca("SENHA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=oRS_Busca("HORA_INI")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=oRS_Busca("HORA_FIM")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=oRS_Busca("FLG_TEMPORARIO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=oRS_Busca("porte_empresa")%></span></strong></td>
           </tr>
        <%
      oRS_Busca.MoveNext
      Loop
        End If
    %>
             <tr>
          <td height="22" colspan="11" bgcolor="#FFFFFF">
         <div align="center">
           <input name="bt_pesquisar" type="submit" class="botao" id="bt_pesquisar" value="Buscar"/>
           &nbsp;<input name="bt_voltar" type="reset" class="botao" id="bt_voltar"  value="Limpar"/>
           <input name="acao" type="hidden" id="acao" value="buscar"/>
           </div></td>
          </tr>
     </table>
        </form>  
            </table></td>
      </tr>
     

      <tr>
        <td height="15" colspan="3" bgcolor="#265490"></td>
      </tr>
    </table>
      </table>


    </body>
    </html>
     
     

    mas ta com este erro porque ?

    Microsoft VBScript runtime error '800a01c2'

    Wrong number of arguments or invalid property assignment: 'conexao'

    /Chamado/consu_new.asp, line 181

     

    quarta-feira, 17 de outubro de 2007 16:36
  • Tente jogar o include file no inicio do arquivo!

    Dentro do arquivo conexao.asp, vc esta setando o objecto de conexao e o recordset?

     

    Tipo:

     

    Set conexao = Server.CreateObject("ADODB.Connection")

    Set oRs_Busca = Server.CreateObejct("ADODB.Recordset")

     

     

    Abraços

     

    Estevam

    quarta-feira, 17 de outubro de 2007 17:10
  • Já fiz isso conexão ta ok..agora .

    Fiz assim   SET RS_BUSCA = conexao.execute(SQL)

     

    .

    Porém quando eu digito o que eu quero buscar ele não traz nada !!

     olha o codigo que executa...

     

    <%
       IF acao = "buscar" THEN
       
       SQL = "SELECT ID_EMPRESA, ID_FUNCIONARIO, NOME, EMAIL, ID_CARGO, LOGIN, SENHA, HORA_INI, HORA_FIM, VALOR_HORA, FLG_TEMPORARIO FROM FUNCIONARIO WHERE NOME LIKE '%"&buscar_por&"%'"

      SET RS_BUSCA = conexao.execute(SQL)
       'RS_BUSCA.open SQL,conexao
           
     if RS_BUSCA.bof  or RS_BUSCA.eof then %>
        <tr class="style8">
          <td width="308"><div align="center" class="style3">
          <div align="center" class="campo"><strong>SUA BUSCA N&Atilde;O RETORNOU RESULTADO!!</strong></div>
          </div></td>
        </tr>
         <%else
      
        if request.Form("txt_Busca") = "" then %>
      
       <%  End if
      
        End if%> 
      </table>
       <table width="" border="0" bgcolor="#E4E4E4">
         <tr>
       <td width="" class="style7"><strong><span class="style3 style6 style8">Codigo Empresa </span></strong></td>
       <td width="" class="style7"><strong><span class="style3 style6 style8">Codigo Funcionario </span></strong></td>
          <td width="" class="style7"><strong>E_mail</strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Codigo Cargo </span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Login</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Senha</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Filhos</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Hora Inicial </span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Hora Final </span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Valor da Hora </span></strong></td>
          <td width="" class="style14">Flg_Temporario</td>
        </tr>
      <tr class="style7">
       
      <%    
      Do While RS_BUSCA.Eof=false
         %>
      
          <td height="22" bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=RS_BUSCA("ID_EMPRESA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=RS_BUSCA("ID_FUNCONARIO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=RS_BUSCA("NOME")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=RS_BUSCA("EMAIL")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=RS_BUSCA("ID_CARGO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=RS_BUSCA("LOGIN")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=RS_BUSCA("SENHA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=RS_BUSCA("HORA_INI")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=RS_BUSCA("HORA_FIM")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=RS_BUSCA("FLG_TEMPORARIO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style3 style6 style8"><%=RS_BUSCA("porte_empresa")%></span></strong></td>
           </tr>
        <%
      RS_BUSCA.MoveNext
      Loop
        End If
    %>
             <tr>
          <td height="22" colspan="11" bgcolor="#FFFFFF">
         <div align="center">
           <input name="bt_pesquisar" type="submit" class="botao" id="bt_pesquisar" value="Buscar"/>
           &nbsp;<input name="bt_voltar" type="reset" class="botao" id="bt_voltar"  value="Limpar"/>
           <input name="acao" type="hidden" id="acao" value="buscar"/>
           </div></td>
          </tr>
     </table>
        </form>  
            </table></td>
      </tr>
     

      <tr>
        <td height="15" colspan="3" bgcolor="#265490"></td>
      </tr>
    </table>
      </table>

     

    quarta-feira, 17 de outubro de 2007 17:41
  • Emerson o SET que lhe enviei é só para setar um componente do tipo recordset

     

     

    Set oRs_Busca = Server.CreateObject("ADODB.Recordset")

    oRs_Busca = conexao.execute(SQL)

     

    Abraços

     

    Estevam

    quarta-feira, 17 de outubro de 2007 17:49
  • ok...

    Mas porque não da trazendo as informações ???

    que estranho !!!

     

     

     

    quarta-feira, 17 de outubro de 2007 18:15
  • Ele chega a mostrar alguma coisa na tela?

    Nao da nenhuma mensagem de erro?

     

    Abraços

     

    Estevam

    quarta-feira, 17 de outubro de 2007 18:40
  •  

    Não aparece nenhum erro

    Olha o cod ..

     

    <!--#include file="conexao.asp"-->
       <%
      
         Dim Pesquisa              : Pesquisa             = Request.Form("Pesquisa")
            Dim Ordem                 : Ordem                = Request.Form("radio_ordem")
            Dim Pesqui                : Pesqui               = Request.Form("radio_pesquisa")
         Dim acao               : acao            = Request.Form("acao")
      Dim buscar_por            : buscar_por           = Request.Form("txt_Busca")
      Dim RS_BUSCA           
            
       %>
               
    <table width="" border="0&quot;" cellpadding="2" cellspacing="2">
                  <tr>
                    <td width="189" class="style7"> Campo de Pesquisa: <br/>
                        <select name="Pesquisa" class="campo" id="Pesquisa">
                          <option>&lt;-- Selecione --&gt;</option>
                          <option>Codigo</option>
                          <option>Nome</option>
                        </select>                </td>
                    <td width="223" class="style7"> Ordem: <br />
                        <fieldset class="style8">
                        <input name="radio_ordem" type="radio" value="radio_ordem" />
                          Crescente
                          <input name="radio_ordem" type="radio" value="radio_ordem"/>
                          Decrescente
                        </fieldset></td>
                  </tr>
                  <tr>
                    <td class="style7">Pesquisa: <br />
                        <fieldset class="">
                        <input name="radio_pesqusa" type="radio" value="radio_pesqusa" />
                          Inicio da Frase
                          <input name="radio_pesqusa" type="radio" value="radio_pesqusa" />
                          Aleat&oacute;rio
                        </fieldset></td>
                  </tr>
                  <tr>
                    <td class="style7">Busca:<br />
                        <input name="txt_Busca" type="text" class="campo" id="txt_Busca" size="30" maxlength="50" /></td>
                  </tr>
                </table>
            <table width="" border="0" cellpadding="2" cellspacing="2">
        <%
       IF acao = "buscar" THEN
       
       SQL = "SELECT ID_EMPRESA, ID_FUNCIONARIO, NOME, EMAIL, ID_CARGO, LOGIN, SENHA, HORA_INI, HORA_FIM, VALOR_HORA, FLG_TEMPORARIO FROM FUNCIONARIO WHERE NOME LIKE '%"&buscar_por&"%'"

      SET RS_BUSCA = conexao.execute(SQL)
       'RS_BUSCA.open SQL,conexao
           
     if RS_BUSCA.bof  or RS_BUSCA.eof then %>
      
        <tr class="style8">
          <td width="308"><div align="center" class="style3">
          <div align="center" class="campo"><strong>SUA BUSCA N&Atilde;O RETORNOU RESULTADO!!</strong></div>
          </div></td>
        </tr>
     
         <%else
      
       ' if request.Form("txt_Busca") = "" then %>
      
       <% ' End if
      
        End if%> 
      </table>
       <table width="" border="0" bgcolor="#E4E4E4">
         <tr>
       <td width="" class="style7"><strong><span class="style3 style6 style8">Codigo Empresa </span></strong></td>
       <td width="" class="style7"><strong><span class="style3 style6 style8">Codigo Funcionario </span></strong></td>
          <td width="" class="style7"><strong>E_mail</strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Codigo Cargo </span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Login</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Senha</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Filhos</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Hora Inicial </span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Hora Final </span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Valor da Hora </span></strong></td>
          <td width="" class="style14">Flg_Temporario</td>
        </tr>
      <tr class="style7">
       
      <%    
      Do While RS_BUSCA.Eof=false
         %>
      
          <td height="22" bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ID_EMPRESA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ID_FUNCONARIO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("NOME")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("EMAIL")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ID_CARGO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("LOGIN")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("SENHA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("HORA_INI")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("HORA_FIM")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("FLG_TEMPORARIO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("porte_empresa")%></span></strong></td>
           </tr>
        <%
      RS_BUSCA.MoveNext
      Loop
        End If
    %>
             <tr>
          <td height="22" colspan="11" bgcolor="#FFFFFF">
         <div align="center">
           <input name="bt_pesquisar" type="submit" class="botao" id="bt_pesquisar" value="Buscar"/>
           &nbsp;<input name="bt_voltar" type="reset" class="botao" id="bt_voltar"  value="Limpar"/>
           <input name="acao" type="hidden" id="acao" value="buscar"/>
           </div></td>
          </tr>
     </table>
        </form>  
            </table></td>
      </tr>
     

      <tr>
        <td height="15" colspan="3" bgcolor="#265490"></td>
      </tr>
    </table>
      </table>
    </body>
    </html>
     

    Fiz uma função javascript para validar o campo

    function validar(){
     
      consulta.txt_Busca.focus(document.consulta.txt_Busca.style.background ="");
     
        if (consulta.txt_Busca.value ==""){
      alert('POR FAVOR PREENCHA O CAMPO BUSCA!');
      consulta.txt_Busca.focus(document.consulta.txt_Busca.style.background ="#FFFFCC");
     return false;
          }
     }
    </script>

     

    Então como que eu faço também para só aparecer está resposta

    SUA BUSCA NÃO RETORNOU RESULTADO!!

    quando ele voltar da consulta do banco .

     

     

     

    quarta-feira, 17 de outubro de 2007 18:45
  • olha Estavam então consegui, fazer a busca pelo campo texto.

    Mas como que eu posso fazer a busca pelo combobox, fazer por ordem crescente e descrescente e também pesquisa pela frase inicial e frase aleatório..

    olha como ficou o cod !!

     


    <!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>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
    <title>:: Briefing _________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________</title>
    <style type="text/css">

    body {
     margin-left: 0px;
     margin-top: 0px;
     margin-right: 0px;
     margin-bottom: 0px;
    }


    A.menu_sup {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #ffffff;
     
    }

    A.menu_sup:link {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #ffffff;
     
    }

    A.menu_sup:hover {
    text-decoration: none;
     color: #dadada;

    }
    .campo {BACKGROUND: #f8f8f8;
      COLOR: #265490;
      BORDER-BOTTOM: #265490 1px solid;
      BORDER-LEFT: #EFEFEF 1px solid;
      BORDER-RIGHT: #265490 1px solid;
      BORDER-TOP: #EFEFEF 1px solid;
      FONT-SIZE: 10px;
      height : 20;
    }

     

     

    a {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #265490;
    }

    a:link {
     text-decoration: none;
    }
    a:visited {
     text-decoration: none;
    }
    a:hover {
     text-decoration: none;
     color: #999999;
    }
    a:active {
     text-decoration: none;
    }

    .style5 {color: #FFFFFF}
    .style8 {
     font-family: Verdana, Arial, Helvetica, sans-serif;
     font-size: 10px;
     color: #255691;
    }
    .style7 {font-size: 10px; color: #1C406C; font-family: Verdana, Arial, Helvetica, sans-serif;}
    .botao {BACKGROUND: #f8f8f8;
      COLOR: #265490;
      BORDER-BOTTOM: #265490 1px solid;
      BORDER-LEFT: #EFEFEF 1px solid;
      BORDER-RIGHT: #265490 1px solid;
      BORDER-TOP: #EFEFEF 1px solid;
      FONT-SIZE: 10px;
      width:80px;
      height : 20;
    }
    .style9 {color: #255691}
    </style></head>

    <body>

    <table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="502" height="100" background="images/topo_01.jpg"><img src="images/chamado_2_01.jpg" width="502" height="99" /></td>
        <td width="100%" background="images/topo_01.jpg">&nbsp;</td>
        <td width="271"><img src="images/chamado_2_03.jpg" width="271" height="100" /></td>
      </tr>
      <tr>
        <td height="1" colspan="3" bgcolor="#F8f8f8"></td>
      </tr>
      <tr>
        <td colspan="3" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" align="right" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1%" bgcolor="#265490">&nbsp;</td>
            <td width="100%" height="22" valign="top" bgcolor="#265490"><a href="cadastro.html" class="menu_sup">&nbsp;&nbsp;Cadastro</a><span class="style5"> | </span><a href="processos.html" class="menu_sup">Processos</a> <span class="style5">| </span><a href="seguranca.html" class="menu_sup">Seguran&ccedil;a</a> <span class="style5">|</span> <a href="relatorios.html" class="menu_sup">Relat&oacute;rios</a> <span class="style5">|</span> <a href="gerenciamento.html" class="menu_sup">Gerenciamento</a> <span class="style5">|</span> <a href="logout.asp" class="menu_sup">Sair</a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="1" colspan="3" bgcolor="#ffffff"></td>
      </tr>
      <tr>
        <td height="" colspan="3"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="20%" valign="top" bgcolor="#FFFFFF"><br />
              <table width="95%" border="0" align="center" cellpadding="0" cellspacing="2">
                <tr>
                  <td bgcolor="#FFFFFF"><img src="images/cadastro.jpg" width="136" height="28" /><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Empresas </a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Funcion&aacute;rios</a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Clientes</a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Cargos</a><br />
                    &nbsp;&nbsp;&nbsp;<img src="images/menuMiniBullet.gif" width="4" height="4" /> <a href="#">Tipos de telefone </a></td>
                </tr>
                <tr>
                  <td>&nbsp;</td>
                </tr>
              </table></td>
            <td width="" background="images/fd.jpg" bgcolor="#CCCCCC">&nbsp;</td>
              <td width="79%" valign="top" bgcolor="#FFFFFF">
      
      <!-- <form action="consu_new.asp" method="post" name="consu_new" id="acao" onSubmit="return valida();" >-->
       
       
       
    <script language="javascript">

    function validar(){
     
      consulta.txt_Busca.focus(document.consulta.txt_Busca.style.background ="");
     
        if (consulta.txt_Busca.value ==""){
      alert('POR FAVOR PREENCHA O CAMPO BUSCA!');
      consulta.txt_Busca.focus(document.consulta.txt_Busca.style.background ="#FFFFCC");
     return false;
          }
     }
    </script>
       
        <form id="consulta" name="consulta" method="post" action="consu_empresa.asp" onSubmit="return validar();">
             <br />

      <!--#include file="conexao.asp"-->
       <%
      
         Dim Pesquisa              : Pesquisa             = Request.Form("Pesquisa")
            Dim Ordem                 : Ordem                = Request.Form("radio_ordem")
            Dim Pesqui                : Pesqui               = Request.Form("radio_pesquisa")
         Dim acao               : acao            = Request.Form("acao")
      Dim buscar_por            : buscar_por           = Request.Form("txt_Busca")
      Dim RS_BUSCA           
            
       %>
       <table width="" border="0&quot;" cellpadding="2" cellspacing="2">
                  <tr>
                    <td width="189" class="style7"> Campo de Pesquisa: <br/>
                        <select name="Pesquisa" class="campo" id="Pesquisa">
                          <option>&lt;-- Selecione --&gt;</option>
                          <option>Codigo</option>
                          <option>Nome</option>
                        </select>
                    </td>
                    <td width="223" class="style7"> Ordem: <br />
                        <fieldset class="style8">
                        <input name="radio_ordem" type="radio" value="radio_ordem" />
                          Crescente
                          <input name="radio_ordem" type="radio" value="radio_ordem"/>
                          Decrescente
                        </fieldset></td>
                  </tr>
                  <tr>
                    <td class="style7">Pesquisa: <br />
                        <fieldset class="">
                        <input name="radio_pesqusa" type="radio" value="radio_pesqusa" />
                          Inicio da Frase
                          <input name="radio_pesqusa" type="radio" value="radio_pesqusa" />
                          Aleat&oacute;rio
                        </fieldset></td>
                  </tr>
                  <tr>
                    <td class="style7">Busca:<br />
                        <input name="txt_Busca" type="text" class="campo" id="txt_Busca" size="30" maxlength="50" /></td>
                  </tr>
                </table>
       <table width="" border="0" cellpadding="2" cellspacing="2">
        <%
       IF acao = "buscar" THEN
       
       SQL = "SELECT ID_EMPRESA, RAZAO_SOCIAL, NOME_FANTASIA, CEP, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ESTADO, EMAIL, TELEFONE FROM EMPRESA WHERE NOME_FANTASIA LIKE '%"&buscar_por&"%'"

      SET RS_BUSCA = conexao.execute(SQL)' SET RS_BUSCA RECOR SET = MINHA CONEXÃO EXECUTE O MEU COMANDO SQL.
       'RS_BUSCA.open SQL,conexao
           
     if RS_BUSCA.bof  or RS_BUSCA.eof then %>
      
        <tr class="style7">
          <td width=""><div align="center" class="style8">
          <div align="center" class="campo"><strong>SUA BUSCA N&Atilde;O RETORNOU RESULTADO!!</strong></div>
          </div></td>
        </tr>
     
         <%else
      
      
        End if%>
      </table>
       <table width="" border="0" bgcolor="">
         <tr class="style8">
       <td width="" class="style7"><strong><span class="style3 style6 style8">Codigo Empresa </span></strong></td>
       <td width="" class="style7"><strong><span class="style3 style6 style8">Razão Social </span></strong></td>
          <td width="" class="style7"><strong><span class="style9">Nome Fantasia</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Cep</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Endereço</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Numero</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Complemento</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Bairro</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Cidade</span></strong></td>
          <td width="" class="style7"><strong><span class="style3 style6 style8">Estado </span></strong></td>
          <td width="" class="style7"><strong class="style8">E_mail</strong></td>
       <td width="" class="style7"><strong class="style8">Telefone</strong></td>
        </tr>
      <tr class="style7">
       
      <%    
      Do While RS_BUSCA.Eof=false
      
         %>
      
          <td height="" bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ID_EMPRESA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("RAZAO_SOCIAL")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("NOME_FANTASIA")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("CEP")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ENDERECO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("NUMERO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("COMPLEMENTO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("BAIRRO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("CIDADE")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("ESTADO")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("EMAIL")%></span></strong></td>
          <td bgcolor="#FFFFFF" class="style7"><strong><span class="style8"><%=RS_BUSCA("TELEFONE")%></span></strong></td>
        </tr>
       
        <%
      RS_BUSCA.MoveNext
      Loop
        End If
    %>
             <tr>
          <td height="" colspan="13" bgcolor="#FFFFFF">
         <div align="center">
           <input name="bt_pesquisar" type="submit" class="botao" id="bt_pesquisar" value="Buscar"/>
           &nbsp;<input name="bt_voltar" type="reset" class="botao" id="bt_voltar"  value="Limpar"/>
           <input name="acao" type="hidden" id="acao" value="buscar"/>
           </div></td>
          </tr>
     </table>
        </form>  
            </table></td>
      </tr>
        <tr>
        <td height="15" colspan="3" bgcolor="#265490"></td>
      </tr>
    </table>
      </table>
    </body>
    </html>
     
     

     

     

    quinta-feira, 18 de outubro de 2007 12:46