Busca Dinâmica

[Igor O. Costa 0]

Olá pessoal,

 

Sou novo aki no forum, e tmb sou novo com ASP, e estou tendo um problema com uma busca dinâmica q estou fazendo.

 

Bem o problema é o seguinte quando envio o parâmetro para a página de Busca, e esse parâmetro for com acento ele ñ me retorna nada do q foi enviado, pois ñ conseguir codificar isso, e depois decodificar na página de busca, mas porém, pra isso fiz o q acho uma gambiarra, fiz uns replace para recolocar o acento, ná página q vai gerar o resultado da busca, e ainda continua com um erro, que é com acento agudo na letra i, os outros q configurei no replace estão me dando resultado normal, mas qd tem a letra i com acento agudo, ñ acha nada.

 

quem quizer testar a busca o link é http://www.fasete.com/revistarios/busca.asp

 

so ñ reparem muito na bagunça q esta o código, pois ainda estou arrumando :D

 

Ai esta o Código da página q gera o resultado, aguardo respostas.

 

 

ASP

<%

 

Dim rs_buscaAutor__MMColParam

 

rs_buscaAutor__MMColParam = "1"

 

If (Server.HTMLEncode(Request.form("param")) <> "") Then

 

 

 

  rs_buscaAutor__MMColParam = trim(Request.form("param"))

 

 ' Replace para substituir os acentos

 

  rs_buscaAutor__MMColParam = replace(rs_buscaAutor__MMColParam,"é","é")

 

  rs_buscaAutor__MMColParam = replace(rs_buscaAutor__MMColParam,"á","á")

 

  rs_buscaAutor__MMColParam = replace(rs_buscaAutor__MMColParam,"Ã","í")

 

  rs_buscaAutor__MMColParam = replace(rs_buscaAutor__MMColParam,"ó","ó")

 

  rs_buscaAutor__MMColParam = replace(rs_buscaAutor__MMColParam,"ú","ú")

 

  rs_buscaAutor__MMColParam = replace(rs_buscaAutor__MMColParam,"í¢","â")

 

  rs_buscaAutor__MMColParam = replace(rs_buscaAutor__MMColParam,"íª","ê")

 

  rs_buscaAutor__MMColParam = replace(rs_buscaAutor__MMColParam,"í®","î")

 

  rs_buscaAutor__MMColParam = replace(rs_buscaAutor__MMColParam,"í´","ô")

 

  rs_buscaAutor__MMColParam = replace(rs_buscaAutor__MMColParam,"í»","û")

 

 

 

  rs_buscaAutor__MMColParam = replace(rs_buscaAutor__MMColParam,"í£","ã")

 

  rs_buscaAutor__MMColParam = replace(rs_buscaAutor__MMColParam,"íµ","õ")

 

 

 

  rs_buscaAutor__MMColParam = replace(rs_buscaAutor__MMColParam,"í§","ç")

 

 

 

 

 

 

 

End If

 

%>

 

 

 

<%

 

Dim rs_buscaAutor

 

Dim rs_buscaAutor_cmd

 

Dim rs_buscaAutor_numRows

 

 

 

Set rs_buscaAutor_cmd = Server.CreateObject ("ADODB.Command")

 

rs_buscaAutor_cmd.ActiveConnection = MM_RevistaRios_STRING

 

rs_buscaAutor_cmd.CommandText = "SELECT t.tipoarquivo, c.id, c.id_tipo, c.id_revista, c.titulo, c.conteudo, c.autor, c.url, t.id AS Expr1, t.tipo, t.cor FROM tbl_Conteudo c INNER JOIN                       tbl_Tipo t ON c.id_tipo = t.id WHERE c.autor LIKE ?"

 

rs_buscaAutor_cmd.Prepared = true

 

rs_buscaAutor_cmd.Parameters.Append rs_buscaAutor_cmd.CreateParameter("param1", 200, 1, 255, "%" + rs_buscaAutor__MMColParam + "%") ' adVarChar

 

 

 

Set rs_buscaAutor = rs_buscaAutor_cmd.Execute

 

rs_buscaAutor_numRows = 0

 

%>

 

<%

 

Dim Repeat1__numRows

 

Dim Repeat1__index

 

 

 

Repeat1__numRows = -1

 

Repeat1__index = 0

 

rs_buscaAutor_numRows = rs_buscaAutor_numRows + Repeat1__numRows

 

%>

 

<% Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1" %>

 

 

 

 

 

<%if (rs_buscaAutor.EOF) then %>

 

<div id="textotituloBusca"><% Response.Write(rs_buscaAutor__MMColParam)%>Nenhum resultado para a busca</div>

 

 

 

<%else%>

 

<div id="textotituloBusca"><strong>Resultado da Busca</strong></div>

 

   

 

<%

 

While ((Repeat1__numRows <> 0) AND (NOT rs_buscaAutor.EOF))

 

%>

 

 

 

  <div id="resultabusca" class="<%Response.Write("" &  myColor & "")%>">

 

          <div id="primeirapartebusca" align="left">

 

                                <%=(rs_buscaAutor.Fields.Item("titulo").Value)%>    

 

          </div>

 

         

 

           <%if(rs_buscaAutor.Fields.Item("tipoarquivo").Value)= "Resumo" then%>

 

         

 

          <div id="segundaparte" align="center">

 

            <a href="/RevistaRios/LerArtigo.asp?id_artigo=<%=(rs_buscaAutor.Fields.Item("id").Value)%>"><h1><%=(rs_buscaAutor.Fields.Item("tipoarquivo").Value)%></h1>

 

            </a>  

 

          </div>

 

         

 

         <%end if%>

 

         

 

         <% if (rs_buscaAutor.Fields.Item("tipoarquivo").Value)= "PDF" then%>  

 

         

 

           <div id="segundaparte" align="center">

 

           

 

           <a href="/RevistaRios/Arquivos_Revista/RIOS2007/<%=(rs_buscaAutor.Fields.Item("url").Value)%>" target="_blank"><h1><%=(rs_buscaAutor.Fields.Item("tipoarquivo").Value)%></h1>

 

            </a>  

 

           

 

          </div>          

 

                 

 

           <%end if%>

 

 

 

  </div>

 

   

 

                      <%

 

                                        if myColor = myColor1 then

 

                                                        myColor = myColor2

 

                                                else

 

                                                        myColor = myColor1

 

                                                end if

 

                                        %>

 

                   

 

                   

 

   <%

 

          Repeat1__index=Repeat1__index+1

 

          Repeat1__numRows=Repeat1__numRows-1

 

          rs_buscaAutor.MoveNext()

 

        Wend

 

   %>

 

   

 

   

 

 

 

<%end if%>

 

<%

 

rs_buscaAutor.Close()

 

Set rs_buscaAutor = Nothing

 

%>

 

 

[Salgado 4]

Cara, dê uma pesquisada aqui mesmo no fórum pois existe uma solução para buscas com acentuação.

[Igor O. Costa 0]

Ok, vou procurar no forum, vlw.