Busca por várias palavras e paginação

vivi@ne · Janeiro 10, 2007

Boa tarde a todos. Estou com um problema com um código que tem que buscar por qualquer palavra digitada. Na verdade estou quebrando a cabeça com ASP, apredendo sozinha, com a ajuda do pessoal do forum e algumas apostilas. Tenho o código abaixo que tá funcionando legal mas quando mando buscar por uma palavra que não seja a primeira, ele não acha. Outro problema é que vai ter muito registro então vou ter que fazer uma páginação e por último tenho que ignorar toda a pontuação acento etc. Será que alguém tem como me ajudar e me dar uma explicação rápida do que estarei alterando... Bjs

<%@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=\"300\" 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=\"2\" 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><% Do While Not WebRs.EOF %> <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> </h2> <%WebRs.MoveNext Loop%> <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> <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>

jothaz · Janeiro 10, 2007

Boa tarde a todos. Estou com um problema com um código que tem que buscar por qualquer palavra digitada. Na verdade estou quebrando a cabeça com ASP, apredendo sozinha, com a ajuda do pessoal do forum e algumas apostilas. Tenho o código abaixo que tá funcionando legal mas quando mando buscar por uma palavra que não seja a primeira, ele não acha. Outro problema é que vai ter muito registro então vou ter que fazer uma páginação e por último tenho que ignorar toda a pontuação acento etc.Será que alguém tem como me ajudar e me dar uma explicação rápida do que estarei alterando...Bjs

Não entendi muito bem seu questionamento!

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 & "%' "

Pelo que entendi você quer localizar o conteúdo de "Palavra" em todos os campos NumeroMedauto, NumeroOriginal , Descricao e Aplicacao. É isso? Se for posso ajudá-la.você estulizando qual banco de dados?você esta utilizando Stored Procedures?t+

vivi@ne · Janeiro 11, 2007

Então, como falei ainda não sei muito bem sobre os termos usados no asp, mas basicamente o que eu preciso é fazer com que a busca no campo Descrição (só nesse campo) encontre resultados mesmo quando a pesquisa for composta por mais de uma palavra, hoje só encontra se eu colocar uma palavra isolada e se essa palavra for a primeira. Tipo assim tenho no bd access vários registros que começam com bomba.Qd digito bomba aparecem todos os resultados mesmo que seja "alguma coisa" bomba. Por outro lado se tem um termo bomba óleo e digito óleo, não retorna nada. preciso encontrar por exemplo bomba óleo se digitar bomba+óleo e assim por diante... qualquer dúvida, se puder me ajudar, me adicione no msn osasconet@hotmail.com estou lá no horário comercial...Agradeço desde já

klonder · Janeiro 11, 2007

Bom, é meio complicado explicar todos os procedimentos em poucas linhas, por isso achei melhor colocar o código que utilizo em meus sites. Ele já está testado, mas você e outras pessoas deverão adaptá-lo conforme o site ou aplicação de vocês.

O código já está mais ou menos comentado. Leve para seu editor de VBScript para visualizar os comentários mais facilmente.

<%@ Language=VBScript %><% Option Explicit %><html><head><title>Busca por várias palavras</title></head><body bgcolor="#FFFFFF" topmargin=5px leftmargin=5px><%'Recupera o valor das palavras inseridas em uma tag TEXT, com o nome "busca" em um form.'As palavras são cortadas em cada espaço entre elas e armazenadas em um array:Dim PalavraPalavra = Split(Trim(Request.Form("busca"))," ")'Abre a conexão com o Banco de DadosDim objConnSet objConn = Server.CreateObject("ADODB.Connection")objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; " & _"DBQ=" & Server.MapPath("SeuBancoDeDados.mdb")objConn.Open,"","SuaSenha"Dim strSQL, iLoop'Cria um loop dentro da string para possibilitar a busca por mais de uma palavraFor iLoop=0 to Ubound(Palavra) step 1strSQL = "SELECT * FROM tblEnquetes WHERE Opcao LIKE '%" & Palavra(iLoop) & "%'"Next		'Cria seu RecordSetDim objRSSet objRS = Server.CreateObject("ADODB.Recordset")objRS.Open strSQL, objConn, 1, 1		'Se nenhum termo for encontrado, irá aparecer a mensagem:If objRS.EOF ThenResponse.write "Nenhum termo foi encontrado"'Caso contrário, os registros serão impressos na tela:Else'Lista quantos registros foram encontradosResponse.write "Foram encontrados " & objRS.RecordCount & " registros.<br><br>"Dim FraseWhile NOT objRS.EOFResponse.write objRS("Opcao") & "<br>"objRS.MoveNextWendEnd If%></body></html>

Bom, é isso. Espero que ajude um pouco!

Abraços e boa sorte! ^^

vivi@ne · Janeiro 11, 2007

Bom, é meio complicado explicar todos os procedimentos em poucas linhas, por isso achei melhor colocar o código que utilizo em meus sites. Ele já está testado, mas você e outras pessoas deverão adaptá-lo conforme o site ou aplicação de vocês.O código já está mais ou menos comentado. Leve para seu editor de VBScript para visualizar os comentários mais facilmente.

<%@ Language=VBScript %><% Option Explicit %><html><head><title>Busca por várias palavras</title></head><body bgcolor="#FFFFFF" topmargin=5px leftmargin=5px><%'Recupera o valor das palavras inseridas em uma tag TEXT, com o nome "busca" em um form.'As palavras são cortadas em cada espaço entre elas e armazenadas em um array:Dim PalavraPalavra = Split(Trim(Request.Form("busca"))," ")'Abre a conexão com o Banco de DadosDim objConnSet objConn = Server.CreateObject("ADODB.Connection")objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; " & _"DBQ=" & Server.MapPath("SeuBancoDeDados.mdb")objConn.Open,"","SuaSenha"Dim strSQL, iLoop'Cria um loop dentro da string para possibilitar a busca por mais de uma palavraFor iLoop=0 to Ubound(Palavra) step 1strSQL = "SELECT * FROM tblEnquetes WHERE Opcao LIKE '%" & Palavra(iLoop) & "%'"Next		'Cria seu RecordSetDim objRSSet objRS = Server.CreateObject("ADODB.Recordset")objRS.Open strSQL, objConn, 1, 1		'Se nenhum termo for encontrado, irá aparecer a mensagem:If objRS.EOF ThenResponse.write "Nenhum termo foi encontrado"'Caso contrário, os registros serão impressos na tela:Else'Lista quantos registros foram encontradosResponse.write "Foram encontrados " & objRS.RecordCount & " registros.<br><br>"Dim FraseWhile NOT objRS.EOFResponse.write objRS("Opcao") & "<br>"objRS.MoveNextWendEnd If%></body></html>

Bom, é isso. Espero que ajude um pouco!Abraços e boa sorte! ^^

Cara Agradeço sua ajuda, mas não deu certo não, vou continuar tentando

LUIZ PAULO MONTEIRO · Janeiro 11, 2007

olá viviane exemplo para tirar os acentos espero ter ajudado'#Função que tira todos os acentos das palavrasfunction TiraAcento(StrAcento)for i = 1 to len(StrAcento)Letra = mid(StrAcento, i, 1)Select Case LetraCase "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"Letra = "A"Case "é","É","ê","Ê","Ë","ë","È","è"Letra = "E"Case "í","Í","ï","Ï","Ì","ì"Letra = "I"Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"Letra = "O"Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"Letra = "U"Case "ç","Ç"Letra = "C"Case "ñ"Letra = "N"End Selecttexto = texto & LetranextTiraAcento = textoend function' Instrução SQL que busca nos campos Nome e DescriçãoCase "NumeroMedauto"SQL = "SELECT * FROM Pesquisa WHERE NumeroMedauto LIKE '%" & TiraAcento(Replace(Palavra, "'", "''")) & "%' "Case "NumeroOriginal"SQL = "SELECT * FROM Pesquisa WHERE NumeroOriginal LIKE '%" & TiraAcento(Replace(Palavra, "'", "''")) & "%' "Case "Descricao"SQL = "SELECT * FROM Pesquisa WHERE Descricao LIKE '%" & TiraAcento(Replace(Palavra, "'", "''")) & "%' "Case "Aplicacao"SQL = "SELECT * FROM Pesquisa WHERE Aplicacao LIKE '%" & TiraAcento(Replace(Palavra, "'", "''")) & "%' "Espero ter ajudadobjsLuiz Paulo

dimarcinho · Janeiro 11, 2007

viviane

modifica o codigo do klonder pra isso aki

Dim strSQL, iLoop,p'Cria um loop dentro da string para possibilitar a busca por mais de uma palavrastrSQL = "SELECT * FROM tblEnquetes WHERE Opcao LIKE "For iLoop=0 to Ubound(Palavra) step 1	 strSQL = strSQL & " '%" & Palavra(iLoop) & "%' OR Opcao LIKE"Next'para apagar o OR LIKE q ficou no final da stringp = Len(strSQL)-13 strSQL = Left(strSQL,p)

espero q tenha entendido a idéia!!

tenta aih pra ver se funciona

[]s

jothaz · Janeiro 11, 2007

Acho q solucção apresantada por dimarcinho irá atender seu problema.

Só tenha cuida na utilizaçaõ de OR´s poir degrada em mto a performance.

vivi@ne · Janeiro 12, 2007

Cara tá feio o negócio aqui, mas na verdade andei testando o cod aqui e percebi que não é o problema de achar mais de uma palavra ele acha sim... marcação minha. O que não acha é palavra com acento. Testei a função pra tirar acento mas não rolou. E não posso tirar o acento do bd vai ter muita coisa.

Preciso de uma função que procure com ou sem acento e mesmo que no bd tenha acento ache, entendeu... vou postar o começo do cód pra vcs verem o que dá pra ser feito...

Ah e se alguém tiver alguma coisa pra ignorar qd digitar "de" "para" essas coisas, me manda pra eu testar.... tipo bomba de óleo procurar bomba óleo....e também bomba de óleo

<%@LANGUAGE="VBSCRIPT" %><%Option ExplicitDim FiltroFiltro = Cstr(Trim((Request.Form("Criterio"))))Dim Palavra Palavra = Request.Form("Palavra")Dim BdWebSet BdWeb = Server.CreateObject("ADODB.Connection")BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb")Dim SqlSelect 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 & "%'"End SelectDim WebRsSet WebRs = Server.CreateObject("ADODB.Recordset")WebRs.Open Sql , BdWeb, 3If WebRs.EOF Then%>

Agradeço a todos por estarem me ajudando, bjs

vivi@ne · Janeiro 15, 2007

Cara tá feio o negócio aqui, mas na verdade andei testando o cod aqui e percebi que não é o problema de achar mais de uma palavra ele acha sim... marcação minha. O que não acha é palavra com acento. Testei a função pra tirar acento mas não rolou. E não posso tirar o acento do bd vai ter muita coisa.Preciso de uma função que procure com ou sem acento e mesmo que no bd tenha acento ache, entendeu... vou postar o começo do cód pra vcs verem o que dá pra ser feito...Ah e se alguém tiver alguma coisa pra ignorar qd digitar "de" "para" essas coisas, me manda pra eu testar.... tipo bomba de óleo procurar bomba óleo....e também bomba de óleo
<%@LANGUAGE="VBSCRIPT" %><%Option ExplicitDim FiltroFiltro = Cstr(Trim((Request.Form("Criterio"))))Dim Palavra Palavra = Request.Form("Palavra")Dim BdWebSet BdWeb = Server.CreateObject("ADODB.Connection")BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb")Dim SqlSelect 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 & "%'"End SelectDim WebRsSet WebRs = Server.CreateObject("ADODB.Recordset")WebRs.Open Sql , BdWeb, 3If WebRs.EOF Then%>
Agradeço a todos por estarem me ajudando, bjs

Bom gente o meu problema era mais simples que eu imaginei, não estava na pg asp e sim no html era só uma configuração, se alguém precisar de um exemplo, me manda uma msg que eu envio o cód quase pronto. Só tá faltando a paginação e uma função pra igorar o "para, por, de, etc" entre as palavras que vai buscar.Estou fuçando e assim que o cod estiver mais completo coloco no forum. Se alguém tiver alguma sugestão destas funções agradeço...Bjs até mais

vivi@ne · Janeiro 17, 2007

E aí pessoal beleza.

As coisas estão caminhando, já tá feita a parte de consulta certinha inclusive com a acentuação agora tô ralando na paginação.

De início achei que tava rolando, mas qd tem que mudar pra 2a pg tá zuado. Fica tudo branco, nem erro nem resultado alguém já teve esse problema?

Se vcs souberem o que pode ser me deem uma mãozinha....

Bjs

Segue o código

<%Option ExplicitDim registros, paginasregistros = 3pagina = Request.QueryString("pagina")If pagina = "" Thenpagina = 1End IfDim FiltroFiltro = Cstr(Trim((Request.Form("Criterio"))))Dim Palavra Palavra = Request.Form("Palavra")Dim BdWebSet BdWeb = Server.CreateObject("ADODB.Connection")BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb")Dim SqlSelect 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 & "%'"End SelectDim WebRsSet WebRs = Server.CreateObject("ADODB.Recordset")WebRs.CursorType = 3WebRs.PageSize = registrosResponse.Write Sql Response.EndWebRs.Open Sql , BdWeb, 3If 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><script language="JavaScript" fptype="dynamicanimation"><!--function dynAnimation() {}function clickSwapImg() {}//--></script><script language="JavaScript1.2" fptype="dynamicanimation" src="[url="file:///C:/Arquivos%20de%20programas/Microsoft%20Office/Office10/fpclass/animate.js"]file:///C:/Arquivos%20de%20programas/Microsoft%20Office/Office10/fpclass/animate.js[/url]"></script><body onLoad="dynAnimation()"> <div id="centro"><table width="770" height="300" 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>												<%Else	  WebRs.AbsolutePage = pagina%>	  						</b>					  </center>					</td>				  <tr>					<td height="2" 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><%Do While Not WebRs.EOF AND x < WebRs.PageSizeDim xx = x + 1 %>			 <div align="center">				  <center>			 <table width="95%" height="78" border="1" style="border-collapse: collapse" bordercolor="#CCCCCC" cellpadding="0" cellspacing="0">			   <tr bordercolor="#CCCCCC">				 <td width="40%" height="120" rowspan="3" bgcolor="#FFFFFF">	  				   <div align="center"><img src="<%=WebRs("Imagem")%>" border="no" align="absmiddle">					  </div>	  </td>					<td width="2%" rowspan="3"> </td>					<td width="58%" height="25" bordercolor="#CCCCCC"><span class="style6"><b>Número Medauto: </b><%=WebRs("NumeroMedauto")%></span></td>	</tr>			   <tr>				 <td height="25" bordercolor="#CCCCCC"><span class="style6"><b>Número Original: </b><%=WebRs("NumeroOriginal")%></span></td>	</tr>			   <tr>				 <td height="70" bordercolor="#CCCCCC"><span class="style6"><b>Descrição/Aplicação: </b><%=WebRs("Descricao")%></span></td>	</tr>			   </table>				  </center>			  </div>			  </h2>  <%WebRs.MoveNextLoopDim anterior, pagina, proxima, ultima, primeira, ultm2anterior = pagina - 1proxima = pagina + 1ultima = WebRs.PageCountprimeira = 1ultm2 = FormatNumber(WebRs.PageCount - 1,0)If pagina <> 1 ThenResponse.Write "[ <a href=resultado_busca.asp?pagina="&primeira&">Primeira Página</a></b> "End IfIf pagina > 1 AND pagina <> 2 ThenResponse.Write "[ <a href=resultado_busca.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "End IfIf pagina > 1 ThenResponse.Write "[ <a href=resultado_busca.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "End IfResponse.Write "[ "&pagina&" ] "If Not WebRs.EOF ThenResponse.Write "[ <a href=resultado_busca.asp?pagina="&proxima&">"&proxima&"</a> ] "End IfIf Not WebRs.EOF AND pagina <> ultima AND pagina <> ultm2 ThenResponse.Write "[ <a href=resultado_busca.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ] "End IfIf Not WebRs.EOF ThenResponse.Write "[<a href=resultado_busca.asp?pagina="&ultima&">Última Página</a> ]"End IfEnd If%>  <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>	<p>  	  <%	WebRs.CloseSet WebRs = Nothing	BdWeb.CloseSet BdWeb = Nothing%>  <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>

Arquivado

Busca por várias palavras e paginação

Recommended Posts

vivi@ne 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jothaz 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

vivi@ne 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

klonder 14

Compartilhar este post

Link para o post

Compartilhar em outros sites

vivi@ne 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

LUIZ PAULO MONTEIRO 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

dimarcinho 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jothaz 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

vivi@ne 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

vivi@ne 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

vivi@ne 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante