Loko da Web

E quanto a opção "Todos" ???? porque na select vai ter as categorias e também todos... Editando... Fiz conforme bareta pediu, e não deu certo. Digito um nome no campo e seleciono categoria que não faz parte desse nome, em mesmo assim retorna resultado. pesq=request.form("pesq") idcat=request.form("idcat") busca=request.form("busca") Set RS= Server.CreateObject("ADODB.Recordset") If (Request.Form("busca") = "palavraexata") Then sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "' AND idcat= " & request.form("idcat") & "" else sql = "SELECT * FROM fotos WHERE nome LIKE '%" & palavrasem(pesq) & "%' OR nome LIKE '%" & palavracom(pesq) & "%' AND idcat= " & request.form("idcat") & "" end if RS.Open SQL, conn, 3

Boa tarde. Fiz um sistema de busca, funciona 100%. Agora falta colocar o filtro,... tenho um form com busca (pesq) e select da palavraexata e qualquerpalavra (busca), segue abaixo como esta a minha select: If (Request.Form("busca") = "palavraexata") Then sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "'" else sql = "SELECT * FROM fotos WHERE nome LIKE '%" & palavrasem(pesq) & "%' and nome LIKE '%" & palavracom(pesq) & "%'" end if Agora gostaria de acrescentar o filtro com as categorias (idcat), de que forma poderia ser feito em cima dessa sql ? Form da busca: <FORM name="form" action="busca_filmes.asp" method="Post"> <tr><td><input class="textb" type="text" name="pesq" size="40"></td></tr> <tr><td><select class="textb" size="1" name="idcat"> <option value="todos">Todos</option> <% set conexao = createobject("adodb.connection") constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("db/filmes.mdb") conexao.open constr Set rscat=Conexao.Execute("SELECT * FROM categorias ORDER BY nome_cat asc") %> <% While not rscat.EOF %> <option value="<%=rscat("id")%>"><%=rscat("nome_cat")%></option> <% rscat.Movenext Wend %> </select></td></tr> <tr><td><SELECT class="textb" NAME="busca"> <OPTION value="palavraexata">Palavra Exata</OPTION> <OPTION value="qualquerpalavra" SELECTED>Qualquer Palavra</OPTION> </SELECT></td></tr> <tr><td><input class="textb" type="submit" name="submit" value="Buscar"></td></tr>

Acho que ele validar os campos utilizando asp, em vez de javascript....

eu perciso é que le manda a mesma tabela para o lado direito.... até chegar a terceira e depois mudar de linha. perciso mesmo de ajuda... so me falta isto, e tenho limite até quinta, se me podessem ajudar agradecia pessoal!! :( obrigado quero que apareca como este link http://worten.pt/ProductList.aspx?oid=10&c=1024271 O link que o jow indicou é pra isso... O que você esta querendo é listar em colunas, não é ???!!!! Tipo assim: produto 01 | produto 02 | produto 03 produto 04 | produto 05 | produto 05 É isso ????

É só você hospedar seu site num datacenter, como: www.hoteldaweb.com.br/ www.Hostnet.com.br etc... quanto ao end, você tera de registrar na http://www.fapesp.org/

Cara, não esquenta, a propósito deu tudo certo... mais uma vez obrigado pela atenção e paciencia. você é dez !!!! :D Só corrigindo pra caso alguém queira... deve acrescentar aspas duplas. "&Replace(Mid(letras, i,1),"#","0")&" E colocar a variavel dessa forma: letras = "ABCDEFGHIJKLMNOPQRSTUVWXYZ#"

Tua request e funcao <% txtPesquisa = request.form ("txtPesquisa") function palavrasem(txtPesquisa) palavrasem = Replace(txtPesquisa,"a","[a, á , ã]") palavrasem = Replace(palavrasem,"A","[A, Á, Ã]") palavrasem = Replace(palavrasem,"e","[e, é , è , ê]") palavrasem = Replace(palavrasem,"E","[E , É , Ê]") palavrasem = Replace(palavrasem,"i","[i , í , ì]") palavrasem = Replace(palavrasem,"I","[I , Í]") palavrasem = Replace(palavrasem,"o","[o , ó , ò , ô , õ]") palavrasem = Replace(palavrasem,"O","[O , Ó , Ô , Õ]") palavrasem = Replace(palavrasem,"u","[u , ú , ù]") palavrasem = Replace(palavrasem,"U","[U , Ú]") palavrasem = Replace(palavrasem,"c","[c , ç]") palavrasem = Replace(palavrasem,"C","[C , Ç]") palavrasem = palavrasem end function function palavracom(txtPesquisa) palavracom = Replace(txtPesquisa,"ã","[a]") palavracom = Replace(palavracom,"Ã","[A]") palavracom = Replace(palavracom,"á","[a]") palavracom = Replace(palavracom,"Á","[A]") palavracom = Replace(palavracom,"ê","[e]") palavracom = Replace(palavracom,"Ê","[E]") palavracom = Replace(palavracom,"í","[i]") palavracom = Replace(palavracom,"Í","[I]") palavracom = Replace(palavracom,"õ","[o]") palavracom = Replace(palavracom,"Õ","[O]") palavracom = Replace(palavracom,"ú","[u]") palavracom = Replace(palavracom,"Ú","[U]") palavracom = Replace(palavracom,"ç","[c]") palavracom = Replace(palavracom,"Ç","[C]") palavracom = palavracom end function %> SQL sql = "SELECT * FROM escolas WHERE escola LIKE '%" & palavrasem(txtPesquisa) & "%' OR escola LIKE '%" & palavracom(txtPesquisa) & "%'" Testa ai e poste o resultado...

Rafael, não precisa mais, consegui fazer de outra maneira (sei a ideia que estou usando agora é diferente do prinicipio)... A select é a mesma coisa, eu consegui fazer dessa forma: variaveis: letra = Request.QueryString("Letra") letras = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0" Loop: <% Count = 0 i = 0 For i = 1 to 27 Response.write("<td align='center'>") Response.write("<div align='center' class='pag-link2'>") Response.write("<a href=teste.asp?letra="&(Mid(letras, i,1))&"&idcat=" & idcat & ">") Response.write(""&(Mid(letras, i,1))&"") Response.write("</a>") Response.write("</div>") Response.write("</td>") Response.write("<td>") Response.write("&nbsp;") Response.write("</td>") Next %> Dai ficaria assim: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0 A unica coisa chata foi o zero... tentei fazer do jeito que você fez nos posts acima, mas se troco 0 por #, o parametro que ira ser passado sera # e não um numero. não sei se teria como fazer um replace, fazendo com que o # fosse um numero ???? Rafael, muito obrigado por tudo !!!! Se souber de uma ideia de como fazer esse esquema !!!!

Tua select ficaria dessa forma: sql = "SELECT * FROM tabela WHERE nomecampo LIKE '%" & palavrasem(pesq) & "%' OR nomecampo LIKE '%" & palavracom(pesq) & "%'" Lembrando a que pesq é a valor da variavel da request.form(pesq)

Ok !!!! Espero não dar muito trabalho pra você !!!!!! :D

Ok... Rafael agora sim foi subsituido, mas dai esta dessa forma: ## B M N R Tem dois #, em vez de um... tem como ter apenas um # ???

Complementando o Rafael... O link ficaria dessa forma: fotos.asp?id=<%=RS("id")%>

Agora não apresentou nenhum erro... mas continua na condição anterior: 0 1 B M N R

Apresentou esse erro: Microsoft VBScript compilation error '800a03f9' Expected 'Then' /sistema_locadora/sistema_locadora/todos_filmes.asp, line 202 if rsnome = "0" OR rsnome = "1" OR rsnome = "2" OR rsnome = "3" OR rsnome = "4" OR rsnome = "5" rsnome = "6" rsnome = "7" OR rsnome = "8" OR rsnome = "9" then --------------------------------------------------------------------------------------------------^

Vixi Rafael ainda não esta dando certo !!!!! Continua aparecendo todos os numeros !!!! Pra você ter noção de como esta, segue o link... http://www.aspet.somee.com/sistema%5Flocad...19&cat=Ação

Esse link explica melhor: http://forum.wmonline.com.br/index.php?sho...mp;#entry929843

Da uma olhada nesse tópico http://forum.imasters.uol.com.br/index.php?showtopic=124526

Pra funcionar você precisa do componente Aspmail . Verifique o link abaixo.... http://www.serverobjects.com/products.htm

Rafael não deu certo... uma coisa que estava vendo, quando tem filme como 007 - cassino royale e 8 mile, ira ser criado um link pro 0 e 8, mas quando clico no 0 ira mostrar os dois filmes (007 e 8 mile), então por isso preciso que quando for criado link 0 e 8, apareça apenas um numero como # ou 0-9. Meu loop esta dessa maneira: <% While Not Rs1.EOF rsnome = RS1("nome") if rsnome = "0" then rsnome = "#" elseif rsnome = "1" then rsnome = "#" elseif rsnome = "2" then rsnome = "#" elseif rsnome = "3" then rsnome = "#" elseif rsnome = "4" then rsnome = "#" elseif rsnome = "5" then rsnome = "#" elseif rsnome = "6" then rsnome = "#" elseif rsnome = "7" then rsnome = "#" elseif rsnome = "8" then rsnome = "#" elseif rsnome = "9" then rsnome = "#" end if %> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=<%=LEFT(trim(RS1("nome")),1)%>&idcat=<%=RS1("idcat")%>"><%=LEFT(trim(RS1("nome")),1)%> </td><td> </td> <% RS1.MoveNext Wend %>

Desculpe reabrir o tópico :blush: .... Mas, fiz uns testes em relação a registros que começam com numeros, e constatei o seguinte: - Quando tem registros que começam com 0, 1, 2,.... Como 007 - Cassino Royale, 8 Miles,... Ira ser criado um link com o numero correspondente, ou seja, 0, 8,... - Não sei se é possivel, mas gostaria que quando houver registro que comecem com numeros, fosse criado apenas um link "representando" os numeros, como # ou 0-9. Dessa forma não fica extenso. Se puderem me ajudar nesse detalhe, agradeço de verdade !!!! :D

Caraca.... tu é o cara, to sem palavras !!!!! kkkkk Rafael deu tudo certo, adorei essa lógica, ele vai mostrar apenas a letras que correspondem o mesmo... Fantastico, eu quebrando a minha cuca um tempao e você me detona em poucas horas. Muito obrigado !!!!! :lol:

Desculpe a minha ignorancia, mas não entendi lhufas nenhuma,... se me explicar, fica mais facil !!!!!

Ok... é o seguinte, essa busca estou utilizando num sistema de videolocadora. Tenho um pagina que lista todos os filmes de um determinado genero, chamado todos_filmes.asp, nessa pagina coloquei esse cod (pra fazer a busca): <table align="center" border="0" cellpadding="0" cellspacing="0" width="575"> <tr> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=A&idcat=<%=RS("idcat")%>">A</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=B&idcat=<%=RS("idcat")%>">B</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=C&idcat=<%=RS("idcat")%>">C</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=D&idcat=<%=RS("idcat")%>">D</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=E&idcat=<%=RS("idcat")%>">E</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=F&idcat=<%=RS("idcat")%>">F</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=G&idcat=<%=RS("idcat")%>">G</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=H&idcat=<%=RS("idcat")%>">H</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=I&idcat=<%=RS("idcat")%>">I</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=J&idcat=<%=RS("idcat")%>">J</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=K&idcat=<%=RS("idcat")%>">K</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=L&idcat=<%=RS("idcat")%>">L</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=M&idcat=<%=RS("idcat")%>">M</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=N&idcat=<%=RS("idcat")%>">N</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=O&idcat=<%=RS("idcat")%>">O</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=P&idcat=<%=RS("idcat")%>">P</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=Q&idcat=<%=RS("idcat")%>">Q</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=R&idcat=<%=RS("idcat")%>">R</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=S&idcat=<%=RS("idcat")%>">S</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=T&idcat=<%=RS("idcat")%>">T</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=U&idcat=<%=RS("idcat")%>">U</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=V&idcat=<%=RS("idcat")%>">V</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=X&idcat=<%=RS("idcat")%>">X</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=Z&idcat=<%=RS("idcat")%>">Z</td> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=0&idcat=<%=RS("idcat")%>">#</td> </tr> </table> Esses link abrem um outra pagina chamado buscar_letra_resultado.asp, a select esta dessa maneira: <% idcat=request.querystring("idcat") nome_cat=request.querystring("nome_cat") cat=request.querystring("cat") idfoto=request.querystring("idfoto") PagAtual = Request.QueryString("PagAtual") Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db/filmes.mdb") Conn.Open DSNtest Dim letra letra = Request.QueryString("letra") If isNumeric(letra) Then letra = "[0-9]" End If Set RS= Server.CreateObject("ADODB.Recordset") sql = "SELECT fotos.nome, fotos.nome_original, fotos.idcat, fotos.id, fotos.thumb, fotos.ano, fotos.detalhe, categorias.nome_cat FROM fotos INNER JOIN categorias ON fotos.idcat = Categorias.id Where fotos.nome LIKE '"& letra&"%' AND fotos.idcat=" & idcat & " ORDER BY fotos.nome ASC" RS.Open SQL, conn, 3 If RS.EOF Then Response.Redirect ("default.asp") end if Const NumPorPage = 9 Dim PagAtual IF Request.QueryString("PagAtual") = "" Then PagAtual = 1 Else PagAtual = Request.QueryString("PagAtual") End If RS.CacheSize = NumPorPage RS.MoveFirst RS.PageSize = NumPorPage Dim TotalPages TotalPages = RS.PageCount RS.AbsolutePage = PagAtual %>

Teria um exemplo pra aplicar ????? Achei interessante, se mostrar o caminho do paraiso, agradeço !!!!!!! :rolleyes:

Boa noite ! Desenvolvi um script pra busca por letra inicial, dessa maneira: A B C D E F G H I J K L M N O P Q R S T U V X Z # O sistema funciona 100%, agora eu preciso de ajuda para quando não houver um nome que comece, por exemplo com a letra A, a letra fique inativa, e quando houver um nome que comece com letra B, o link fica ativo. Um exemplo dessa aplicação pode ser conferida neste site: http://www.locahouse.com.br/v2/categoria.asp?ID=1 O usuario clica no link mais alugados, apresenta a pagina correspondente, e na busca por letra algumas estao inativas, devido não ter registros que comecem com a letra. Tentei usar uma logica, usando IF e ELSE, o porem é que funciona apenas após o ELSE... <% if rs("nome") = "" then Response.Write("<div class='pag-link2'>") Response.Write("X") Response.Write("</div> ") else Response.Write("<div class='pag-link2'>") Response.Write("<a href='buscar_letra_resultado_status.asp?letra=X&idstatus=" & idstatus & "'>") Response.Write("X") Response.Write("</a></div> ") end if %> ou if isnull(rs("nome")) then Response.Write("<div class='pag-link2'>") Response.Write("X") Response.Write("</div> ") else Response.Write("<div class='pag-link2'>") Response.Write("<a href='buscar_letra_resultado_status.asp?letra=X&idstatus=" & idstatus & "'>") Response.Write("X") Response.Write("</a></div> ") end if Dai eu colocaria um if pra cada letra do alfabeto,... No IF apresenta o link inativo, no ELSE apresenta o link ativo,...mas só funciona o links ativos, mesmo quando não há registros correspondente a letra, inverti as ordem e deu a mesma coisa. Ou seja, o link ativo no if e link inativo no ELSE, o link ficava inativo mesmo que havia registro correspondente a letra. E ai galera como pode ser feita ??? Existe um solução ???? Agradeço a ajuda de todos !!!!