Busca Dinâmica

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

%>