Jump to content
Fórum Script Brasil
  • 0

Busca De Resultados Usando Um Filtro


vivi@ne
 Share

Question

Sou nova em Asp e estou desenvolvendo uma busca com várias categorias.

Funciona assim tenho um campo pra digitar uma informação e logo abaixo as 4 opções que posso usar para fazer a busca.

tem que aparecer todas as informações que tem na opção de procura, isso está certinho, o problema é que estão aparecendo todos os produtos que tenho no bd.

Como faço pra buscar só aquele específico que eu mandar buscar?

O código tá aqui:

html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD>
<BODY READONLY="1">
<TABLE style="WIDTH: 341px; HEIGHT: 138px" cellSpacing=0 cellPadding=0 
align=center background="" border=1>
  <TBODY>
  <TR>

    <TD align=middle background="">
      <P align=center>Procurar por:</P></TD>
    <TD align=middle background="">
      <P align=center>
	<FORM name=busca action=busca.asp method=post>
	<SELECT size=1 name=criterio> 
	<OPTION value=NumeroMedauto selected>Numero Medauto</OPTION> 
	<OPTION value=NumeroOriginal>Numero Original</OPTION> 
	<OPTION value=Sinonmo>Sinonimo</OPTION> 
	<OPTION value=NomedoProduto>Nome do Produto</OPTION>
	</SELECT></P></TD></TR>
  <TR>
    <TD>
      <P align=center>&nbsp;</P></TD>
    <TD align=middle background="">
      <P align=center><INPUT name=nomedoproduto></P></TD></TR>
  <TR>
    <TD align=middle background="">
      <P align=center><INPUT type=submit value=Procurar name=procurar></P></TD>
    <TD align=middle background="">
      <P 
  align=center><INPUT type=reset value=Limpar name=limpar></P></TD></TR></TBODY></TABLE></FORM></BODY></HTML>
ASP
<%@ LANGUAGE="VBSCRIPT" %>

<html>

<head>

<title>Pesquisa</title>

</head>

<body>

<%

Dim Sql

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

BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb")

Sql = "SELECT * FROM Pesquisa"


   If Request.Form("Campo") = "NumeroMedauto" Then

      Sql = Sql & " WHERE NumeroMedauto LIKE '%" & Request.Form("Criterio") & "%'"

   End If

   If Request.Form("Campo") = "NumeroOriginal" Then

      Sql = Sql & " WHERE NumeroOriginal LIKE '%" & Request.Form("Criterio") & "%'"

   End If

   If Request.Form("Campo") = "Sinonimo" Then

     Sql = Sql & " WHERE Sinonimo LIKE '%" & Request.Form("Criterio") & "%'"

   End If
   If Request.Form("Campo") = "NomedoProduto" Then

     Sql = Sql & " WHERE NomedoProduto LIKE '%" & Request.Form("Criterio") & "%'"

   End If


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

   RsWeb.Open Sql, BdWeb, 3

%>
<%

   If RsWeb.BOF and RsWeb.EOF Then%>

      <h2 align="center">Nenhuma informação localizada ! </h2>

      <hr>

     <center><a href="busca.htm">Retorna</a></center>

<%Else%>

    <%If Not RsWeb.BOF Then%>

    <h2>Resultado da Busca:</h2>

    <hr>

    <table BORDER="0" width="100%" cellpadding="3">

    <%

    Do While Not RsWeb.EOF

    %>

    <td>

    <tr><b>Número Medauto :</b>

    <%=RsWeb("NumeroMedauto")%>&#32

    </tr><tr><b>Número Original :</b>

    <%=RsWeb("NumeroOriginal")%>

    </tr><tr><b>Sinonimo:</b> <br>

    <%=RsWeb("Sinonimo")%>
    
    </tr><tr><b>Nome do Produto:</b> <br>

    <%=RsWeb("NomedoProduto")%>

    </tr>

    <hr>

    <tr>

    </td>

    <p>

    <%RsWeb.MoveNext

    Loop%>

   <center><a href="busca.htm">Retorna</a></center>

   </table>

<%End If%>

<%End If%>

<%

RsWeb.Close

BdWeb.Close

%>

</body>

</html>

Espero uma mãozinha....

Até mais

Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0

tenta assim, acredito que possa funcionar !

<html>

<head>

<title>Pesquisa</title>

</head>

<body>

<%
Option Explicit

Dim Filtro

Filtro = Cstr(Trim((Request.Form("Criterio")))

Dim Sql

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

BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb")

   If Filtro = "NumeroMedauto" Then

      Sql = "SELECT * FROM Pesquisa WHERE NumeroMedauto LIKE '%" &Filtro& "%'"

   End If

   If Filtro = "NumeroOriginal" Then

      Sql = "SELECT * FROM Pesquisa WHERE NumeroOriginal LIKE '%" &Filtro& "%'"

   End If

   If Filtro = "Sinonimo" Then

     Sql = "SELECT * FROM Pesquisa WHERE Sinonimo LIKE '%" &Filtro& "%'"

   End If
   If Filtro = "NomedoProduto" Then

     Sql = "SELECT * FROM Pesquisa WHERE NomedoProduto LIKE '%" &Filtro& "%'"

   End If


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

   RsWeb.Open Sql, BdWeb, 3

%>
<%

   If RsWeb.BOF and RsWeb.EOF Then%>

      <h2 align="center">Nenhuma informação localizada ! </h2>

      <hr>

     <center><a href="busca.htm">Retorna</a></center>

<%Else%>

    <%If Not RsWeb.BOF Then%>

    <h2>Resultado da Busca:</h2>

    <hr>

    <table BORDER="0" width="100%" cellpadding="3">

    <%

    Do While Not RsWeb.EOF

    %>

    <td>

    <tr><b>Número Medauto :</b>

    <%=RsWeb("NumeroMedauto")%>&#32

    </tr><tr><b>Número Original :</b>

    <%=RsWeb("NumeroOriginal")%>

    </tr><tr><b>Sinonimo:</b> <br>

    <%=RsWeb("Sinonimo")%>
    
    </tr><tr><b>Nome do Produto:</b> <br>

    <%=RsWeb("NomedoProduto")%>

    </tr>

    <hr>

    <tr>

    </td>

    <p>

    <%RsWeb.MoveNext

    Loop%>

   <center><a href="busca.htm">Retorna</a></center>

   </table>

<%End If%>

<%End If%>

<%

RsWeb.Close

BdWeb.Close

%>

</body>

</html>

Link to comment
Share on other sites

  • 0

Obrigado pela resposta tão rápida, mas não deu certo. Joguei o script conforme você mandou e deu erro interno no servidor erro 500, engraçado é que dentro do servidor a página retorna legal, mas sem nenhum resultado como se não estivesse buscando no bd, você acha que pode ser a página html qu está errada?

O código novo está ai:

<HTML><HEAD><TITLE></TITLE>

<META http-equiv=Content-Type content="text/html; charset=windows-1252">

<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD>

<BODY READONLY="1">

<TABLE style="WIDTH: 341px; HEIGHT: 138px" cellSpacing=0 cellPadding=0

align=center background="" border=1>

<TBODY>

<TR>

<TD align=middle background="">

<P align=center>Procurar por:</P></TD>

<TD align=middle background="">

<P align=center>

<FORM name=Criterio action=busca.asp method=post>

<SELECT>

<OPTION value=NumeroMedauto>Numero Medauto</OPTION>

<OPTION value=NumeroOriginal>Numero Original</OPTION>

<OPTION value=Sinonimo>Sinonimo</OPTION>

<OPTION value=NomedoProduto>Nome do Produto</OPTION>

</SELECT></P></TD></TR>

<TR>

<TD>

<P align=center>&nbsp;</P></TD>

<TD align=middle background="">

<P align=center><INPUT name=nomedoproduto></P></TD></TR>

<TR>

<TD align=middle background="">

<P align=center><INPUT type=submit value=Procurar name=procurar></P></TD>

<TD align=middle background="">

<P

align=center><INPUT type=reset value=Limpar name=limpar></P></TD></TR></TBODY></TABLE></FORM></BODY></HTML>

Link to comment
Share on other sites

  • 0

Bom, ainda estou modificando os arquivos só que agora o problema é outro:

NÃO RETORNA NENHUM RESULTADO

Quer dizer, está funcionando o asp e o html, só que a página que volta é Nenhum resultado informado, mesmo que eu coloque o dado exato que tem no banco, parece que não tá fazendo a conexão, alguém sabe me dizer o que pode ser????

HTML

<HTML><HEAD><TITLE>Pesquisa</TITLE>

<META http-equiv=Content-Type content="text/html; charset=windows-1252">

</HEAD>

<BODY>

<form action="buscateste.asp" method="post" name="Criterio">

<table width="494" border="1" align="center" bordercolor="#666666">

<tr>

<td width="242">

<label>Descri&ccedil;&atilde;o / N&uacute;mero </label>

</td>

<td width="236">

<center>

<input type="text" name="palavra">

</center>

</td>

</tr>

<tr>

<td>

<label>Procurar por: </label>

</td>

<td>

<center>

<select name="Criterio" id="Criterio">

<option value="nada" selected> Selecione uma opção de pesquisa </option>

<option value="NumeroMedauto"> Numero Medauto </option>

<option value="NumeroOriginal"> Numero Original </option>

<option value="Sinonimo"> Sinonimo </option>

<option value="NomedoProduto"> Nome do Produto </option>

</select>

</center>

</td>

</tr>

<tr>

<td>

<label>

<center>

<input name="Procurar" type="submit" id="Procurar" value="Procurar">

</center>

</label>

</td>

<td>

<label>

<center>

<input type="reset" name="Reset" value="Limpar">

</center>

</label>

</td>

</tr>

</table>

<label></label>

</form>

</BODY></HTML>

ASP

<%@LANGUAGE="VBSCRIPT" %>

<%

Option Explicit

Dim Filtro

Filtro = Cstr(Trim((Request.Form("Criterio"))))

Dim BdWeb

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

BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb")

Dim Sql

If Filtro = "NumeroMedauto" Then

Sql = "SELECT * FROM Pesquisa WHERE NumeroMedauto LIKE '%" &Filtro& "%'"

End If

If Filtro = "NumeroOriginal" Then

Sql = "SELECT * FROM Pesquisa WHERE NumeroOriginal LIKE '%" &Filtro& "%'"

End If

If Filtro = "Sinonimo" Then

Sql = "SELECT * FROM Pesquisa WHERE Sinonimo LIKE '%" &Filtro& "%'"

End If

If Filtro = "NomedoProduto" Then

Sql = "SELECT * FROM Pesquisa WHERE NomedoProduto LIKE '%" &Filtro& "%'"

End If

Dim WebRs

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

WebRs.Open Sql , BdWeb, 3

If WebRs.BOF and WebRs.EOF Then%>

<h2 align="center">Nenhuma informação localizada ! </h2>

<hr>

<center><a href="buscateste1.htm">Retorna</a></center>

<%Else%>

<%If Not WebRs.BOF Then%>

<h2>Resultado da Busca:</h2>

<hr>

<table BORDER="0" width="100%" cellpadding="3">

<%

Do While Not WebRs.EOF

%>

<td>

<tr><b>Número Medauto :</b>

<%=WebRs("NumeroMedauto")%>&#32

</tr><tr><b>Número Original :</b>

<%=WebRs("NumeroOriginal")%>

</tr><tr><b>Sinonimo:</b> <br>

<%=WebRs("Sinonimo")%>

</tr><tr><b>Nome do Produto:</b> <br>

<%=WebRs("NomedoProduto")%>

</tr>

<hr>

<tr>

</td>

<p>

<%WebRs.MoveNext

Loop%>

<center><a href="buscateste1.htm">Retorna</a></center>

</table>

<%End If%>

<%End If%>

<%

WebRs.Close

BdWeb.Close

%>

Agradeço quem puder me dar uma luz!!!!!!

Link to comment
Share on other sites

  • 0

Pessoal agradeço a ajuda, deu certinho só que agora tem um outro problema, preciso buscar todas os resultados que contenham determinada palavra, mas isso em 2 campos dos 4 que tenho.

Tipo: tenho número da empresa, numero do fabricante, descrição e aplicação. Quando eu mando buscar pelo num da empresa ou do fabricante tá beleza, mas quando eu mando buscar pela descrição ou pela aplicação, só me retorna 1 resultado e se a palavra for a primeira da frase. E só o primeiro resultado do bd.

Se alguém souber mudar agradeço.

Segue o ASP que tá funcionando, mas faltando uns detalhes

<%@LANGUAGE="VBSCRIPT" %>
<%
Option Explicit

Dim Filtro

Filtro = Cstr(Trim((Request.Form("Criterio"))))

Dim Palavra

Palavra = Request.Form("Palavra")

Dim BdWeb

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

BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb")


Dim Sql

Select Case Filtro
       Case "NumeroMedauto"
        Sql = "SELECT * FROM Pesquisa WHERE NumeroMedauto LIKE '%" & Palavra & "%'"
    Case "NumeroOriginal"
        Sql = "SELECT * FROM Pesquisa WHERE NumeroOriginal LIKE '%" & Palavra & "%'"
    Case "Descricao"
        Sql = "SELECT * FROM Pesquisa WHERE Descricao LIKE '%" & Palavra & "%'"
    Case "Aplicacao"
        Sql = "SELECT * FROM Pesquisa WHERE Aplicacao LIKE '%" & Palavra & "%'"
End Select


Dim WebRs

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

WebRs.Open Sql , BdWeb, 3

If WebRs.EOF Then%>

<style type="text/css">
<!--
#centro {
    position:absolute;
    top:50%;
    left:50%;
    width:770;
    height:454;
    margin-left:-385px;
    margin-top:-225px;
    margin-bottom:0px;
    text-align:left;
.style1 {
    font-family: Verdana;
    font-weight: bold;
}
.style2 {
    font-family: Verdana;
    font-size: x-small;
    font-weight: bold;
}
a:link {
    color: #000000;
    text-decoration: none;
}
a:visited {
    text-decoration: none;
    color: #000000;
}
a:hover {
    text-decoration: none;
}
a:active {
    text-decoration: none;
}
body {
    background-image: url('images/fundo.jpg');
    background-repeat: repeat
}
.style4 {font-family: Verdana; font-weight: bold; color: #FF0000; }
-->
</style>
<style type="text/css">
<!--
.style4 {font-family: Verdana}
.style6 {font-family: Verdana; font-size: x-small; }
-->
</style>
<body onLoad="dynAnimation()"> 
<div id="centro">
<table width="770" height="317" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="155" colspan="2" bgcolor="#E8E8E8"><img name="index_r1_c1" src="images/index_r1_c1.jpg" width="249" height="155" border="0" id="index_r1_c1" alt="" /></td>
         <td colspan="2">
           <table align="left" border="0" cellpadding="0" cellspacing="0" width="521">
           <tr>
             <td><img name="index_r1_c5" src="images/index_r1_c5.jpg" width="521" height="9" border="0" id="index_r1_c5" alt="" /></td>
           </tr>
           <tr>
             <td>
               <table align="left" border="0" cellpadding="0" cellspacing="0" width="521">
             
                   <td width="396"><img name="index_r2_c5" src="images/index_r2_c5.jpg" width="396" height="118" border="0" id="index_r2_c5" alt="" /></td>
                   <td width="125"><img name="index_r2_c9" src="images/index_r2_c9.jpg" width="125" height="118" border="0" id="index_r2_c9" alt="" /></td>
                  </tr>
               </table>
             </td></tr>
           <tr>
             <td height="19"><img name="index_r3_c5" src="images/index_r3_c5.jpg" width="521" height="28" border="0" id="index_r3_c5" alt="" /></td>
           </tr>
           </table>
         </td>
        </tr>
        <tr bgcolor="#E8E8E8">
          <td height="10" colspan="4"><img name="index_r4_c1" src="images/index_r4_c1.jpg" width="770" height="10" border="0" id="index_r4_c1" alt="" /></td>
        </tr>
        <tr bgcolor="#E8E8E8">
          <td height="10" colspan="4"><img name="index_r6_c1" src="images/index_r6_c1.jpg" width="770" height="10" border="0" id="index_r6_c1" alt="" /></td>
        </tr>
        <tr>
          <td width="7" bgcolor="#E8E8E8"><img name="index_r7_c1" src="images/index_r7_c1.jpg" width="6" height="40" border="0" id="index_r7_c1" alt="" /></td>
          <td width="242" height="40" background="images/index_r7_c2.jpg">
            <table width="203" border="0">
              <tr>
                <td height="27" valign="bottom">
                  <div align="right"><span class="style4">Busca de Produtos </span></div>
                </td>
              </tr>
            </table>
</td>
          <td colspan="2"><img name="index_r7_c5" src="images/index_r7_c5.jpg" width="521" height="40" border="0" id="index_r7_c5" alt="" /></td>
        </tr>
        <tr bgcolor="#E8E8E8">
          <td height="11" colspan="4"><img name="index_r8_c1" src="images/index_r8_c1.jpg" width="770" height="11" border="0" id="index_r8_c1" alt="" /></td>
        </tr>
                  <td height="72" colspan="2" background="images/fundo_a.jpg"> </td>
                    <td width="521" background="images/fundo_c.jpg">
                      <center>
                        Nenhuma informação localizada !<br>
                        <br>
                        <a href="busca.htm"><b>Retorna</b></a><b>
                        <%Else%>
                        </b>
                      </center>
                    </td>
                  <tr>
                    <td height="19" colspan="3"> </td>
</table>     
         
                   <p> </p>
                   <style type="text/css">
<!--
#centro {
    position:absolute;
    top:50%;
    left:50%;
    width:770;
    height:454;
    margin-left:-385px;
    margin-top:-225px;
    margin-bottom:0px;
    text-align:left;
.style1 {
    font-family: Verdana;
    font-size: small;
    font-weight: bold;
}
-->
  </style>
<style type="text/css">
<!--
.style1 {
    font-family: Verdana;
    font-weight: bold;
}
.style2 {
    font-family: Verdana;
    font-size: x-small;
    font-weight: bold;
}
a:link {
    color: #000000;
    text-decoration: none;
}
a:visited {
    text-decoration: none;
    color: #000000;
}
a:hover {
    text-decoration: none;
}
a:active {
    text-decoration: none;
}
body {
    background-image: url('images/fundo.jpg');
    background-repeat: repeat
}
.style4 {font-family: Verdana; font-weight: bold; color: #FF0000; }
-->
  </style>
<style type="text/css">
<!--
.style4 {font-family: Verdana}
.style6 {font-family: Verdana; font-size: x-small; }
-->
  </style>
                  <body onLoad="dynAnimation()"> 
                 <div id="centro">
                   <table width="769" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#E8E8E8">
    <tr>
      <td height="155" colspan="2" bgcolor="#E8E8E8"><img name="index_r1_c1" src="images/index_r1_c1.jpg" width="249" height="155" border="0" id="index_r1_c1" alt="" /></td>
           <td colspan="3"><table align="left" border="0" cellpadding="0" cellspacing="0" width="521">
             <tr>
               <td><img name="index_r1_c5" src="images/index_r1_c5.jpg" width="521" height="9" border="0" id="index_r1_c5" alt="" /></td>
             </tr>
             <tr>
               <td>
                 <table align="left" border="0" cellpadding="0" cellspacing="0" width="521">
                   
                   <td width="396"><img name="index_r2_c5" src="images/index_r2_c5.jpg" width="396" height="118" border="0" id="index_r2_c5" alt="" /></td>
                     <td width="125"><img name="index_r2_c9" src="images/index_r2_c9.jpg" width="125" height="118" border="0" id="index_r2_c9" alt="" /></td>
                    </tr>
                 </table></td></tr>
             <tr>
               <td height="19"><img name="index_r3_c5" src="images/index_r3_c5.jpg" width="521" height="28" border="0" id="index_r3_c5" alt="" /></td>
             </tr>
             </table>
           </td>
  </tr>
    <tr bgcolor="#E8E8E8">
      <td height="10" colspan="5"><img name="index_r4_c1" src="images/index_r4_c1.jpg" width="770" height="10" border="0" id="index_r4_c1" alt="" /></td>
  </tr>
    <tr bgcolor="#E8E8E8">
      <td height="21" colspan="5">
        <table align="left" border="0" cellpadding="0" cellspacing="0" width="770">
          <tr>
            <td><img name="index_r5_c1" src="images/index_r5_c1.jpg" width="6" height="21" border="0" id="index_r5_c1" alt="" /></td>
                  <td> <a onMouseOver="document['fpAnimswapImgFP1'].imgRolln=document['fpAnimswapImgFP1'].src;document['fpAnimswapImgFP1'].src=document['fpAnimswapImgFP1'].lowsrc;" onMouseOut="document['fpAnimswapImgFP1'].src=document['fpAnimswapImgFP1'].imgRolln" href="index.htm"> <img name="fpAnimswapImgFP1" src="images/index_r5_c2.jpg" width="63" height="21" border="0" id="fpAnimswapImgFP1" alt="" dynamicanimation="fpAnimswapImgFP1" lowsrc="images/bt_color_r1_c1.jpg" /></a></td>
                  <td> <a onMouseOver="document['fpAnimswapImgFP2'].imgRolln=document['fpAnimswapImgFP2'].src;document['fpAnimswapImgFP2'].src=document['fpAnimswapImgFP2'].lowsrc;" onMouseOut="document['fpAnimswapImgFP2'].src=document['fpAnimswapImgFP2'].imgRolln" href="quem.htm"> <img name="fpAnimswapImgFP2" src="images/index_r5_c3.jpg" width="110" height="21" border="0" id="fpAnimswapImgFP2" alt="" dynamicanimation="fpAnimswapImgFP2" lowsrc="images/bt_color_r1_c2.jpg" /></a></td>
                  <td> <a onMouseOver="document['fpAnimswapImgFP3'].imgRolln=document['fpAnimswapImgFP3'].src;document['fpAnimswapImgFP3'].src=document['fpAnimswapImgFP3'].lowsrc;" onMouseOut="document['fpAnimswapImgFP3'].src=document['fpAnimswapImgFP3'].imgRolln" href="busca.htm"> <img name="fpAnimswapImgFP3" src="images/bt_color_r1_c3.jpg" width="150" height="21" border="0" id="fpAnimswapImgFP3" alt="" dynamicanimation="fpAnimswapImgFP3" lowsrc="images/bt_color_r1_c3.jpg" /></a></td>
                  <td> <a onMouseOver="document['fpAnimswapImgFP4'].imgRolln=document['fpAnimswapImgFP4'].src;document['fpAnimswapImgFP4'].src=document['fpAnimswapImgFP4'].lowsrc;" onMouseOut="document['fpAnimswapImgFP4'].src=document['fpAnimswapImgFP4'].imgRolln" href="repr.htm"> <img name="fpAnimswapImgFP4" src="images/index_r5_c6.jpg" width="133" height="21" border="0" id="fpAnimswapImgFP4" alt="" dynamicanimation="fpAnimswapImgFP4" lowsrc="images/bt_color_r1_c5.jpg" /></a></td>
                  <td> <a onMouseOver="document['fpAnimswapImgFP5'].imgRolln=document['fpAnimswapImgFP5'].src;document['fpAnimswapImgFP5'].src=document['fpAnimswapImgFP5'].lowsrc;" onMouseOut="document['fpAnimswapImgFP5'].src=document['fpAnimswapImgFP5'].imgRolln" href="cat.htm"> <img name="fpAnimswapImgFP5" src="images/index_r5_c7.jpg" width="132" height="21" border="0" id="fpAnimswapImgFP5" alt="" dynamicanimation="fpAnimswapImgFP5" lowsrc="images/bt_color_r1_c6.jpg" /></a></td>
                  <td> <a onMouseOver="document['fpAnimswapImgFP6'].imgRolln=document['fpAnimswapImgFP6'].src;document['fpAnimswapImgFP6'].src=document['fpAnimswapImgFP6'].lowsrc;" onMouseOut="document['fpAnimswapImgFP6'].src=document['fpAnimswapImgFP6'].imgRolln" href="parc.htm"> <img name="fpAnimswapImgFP6" src="images/index_r5_c8.jpg" width="91" height="21" border="0" id="fpAnimswapImgFP6" alt="" dynamicanimation="fpAnimswapImgFP6" lowsrc="images/bt_color_r1_c7.jpg" /></a></td>
                  <td> <a onMouseOver="document['fpAnimswapImgFP7'].imgRolln=document['fpAnimswapImgFP7'].src;document['fpAnimswapImgFP7'].src=document['fpAnimswapImgFP7'].lowsrc;" onMouseOut="document['fpAnimswapImgFP7'].src=document['fpAnimswapImgFP7'].imgRolln" href="contato.htm"> <img name="fpAnimswapImgFP7" src="images/index_r5_c10.jpg" width="80" height="21" border="0" id="fpAnimswapImgFP7" alt="" dynamicanimation="fpAnimswapImgFP7" lowsrc="images/bt_color_r1_c9.jpg" /></a></td>
                  <td><img name="index_r5_c12" src="images/index_r5_c12.jpg" width="5" height="21" border="0" id="index_r5_c12" alt="" /></td>
          </tr>
        </table>
      </td>
  </tr>
    <tr bgcolor="#E8E8E8">
      <td height="10" colspan="5"><img name="index_r6_c1" src="images/index_r6_c1.jpg" width="770" height="10" border="0" id="index_r6_c1" alt="" /></td>
  </tr>
    <tr>
      <td width="6" bgcolor="#E8E8E8"><img name="index_r7_c1" src="images/index_r7_c1.jpg" width="6" height="40" border="0" id="index_r7_c1" alt="" /></td>
            <td width="243" height="40" background="images/index_r7_c2.jpg">
              <table width="203" border="0">
                <tr>
                  <td height="27" valign="bottom">
                    <div align="right"><span class="style4">Busca de Produtos </span></div>
                  </td>
                </tr>
              </table>
  </td>
            <td colspan="3"><img name="index_r7_c5" src="images/index_r7_c5.jpg" width="521" height="40" border="0" id="index_r7_c5" alt="" /></td>
  </tr>
    <tr bgcolor="#E8E8E8">
      <td height="11" colspan="5"><img name="index_r8_c1" src="images/index_r8_c1.jpg" width="770" height="11" border="0" id="index_r8_c1" alt="" /></td>
  </tr>
    <tr bgcolor="#E8E8E8">
      <td width="6" height="146" background="images/index_r9_c1.jpg" bgcolor="#E8E8E8"> </td>
            <td background="images/fundo_b.jpg">
              <center>
                <span class="style1">Resultado da Busca:</span>
              </center>
            </td>
            <td width="510" background="images/fundo_b.jpg">
              <h2>
                <table width="95%" height="104" border="1" align="center">
                  <tr>
                    <td width="42%" rowspan="4">      
                      <div align="center"><img border="no" src="<%=WebRs("Imagem")%>">
                      </div>
      </td>
      <td width="58%" height="24"><span class="style6"><b>Número Medauto: </b><%=WebRs("NumeroMedauto")%></span></td>
    </tr>
                  <tr>
                    <td><span class="style6"><b>Número Original: </b><%=WebRs("NumeroOriginal")%></span></td>
    </tr>
                  <tr>
                    <td><span class="style6"><b>Descrição: </b><%=WebRs("Descricao")%></span></td>
    </tr>
                  <tr>
                    <td><span class="style6"><b>Aplicação: </b><%=WebRs("Aplicacao")%></span></td>
    </tr>
  </table>
              <br />
              </h2>
              <center>
                <table width="200" border="0" align="center">
                  <tr>
                    <td>
                      <center>
                        <a href="busca.htm" class="style2">Retorna</a>
                      </center>
              </td>
          </tr>
                </table>
        </center>
            <td width="11" background="images/index_r9_c11.jpg">          
  <tr>
  <%

Do While Not WebRs.EOF

%>
  <%WebRs.MoveNext

Loop%>
  <tr>
    <p>  
      <%
    WebRs.Close
Set WebRs = Nothing
    BdWeb.Close
Set BdWeb = Nothing

End If
%>
  <tr bgcolor="#E8E8E8">
        <td height="18" colspan="5"><img name="index_r10_c1" src="images/index_r10_c1.jpg" width="770" height="18" border="0" id="index_r10_c1" alt="" /></td>
  </tr>
    <tr bgcolor="#E8E8E8">
      <td height="17" colspan="5"><img name="index_r11_c1" src="images/index_r11_c1.jpg" width="770" height="17" border="0" id="index_r11_c1" alt="" /></td>
  </tr>
</table></div>

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...