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](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 %>

<% Response.Write(rs_buscaAutor__MMColParam)%>Nenhum resultado para a busca

<%else%>

Resultado da Busca

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

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

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

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

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

" target="_blank">

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

<%end if%>

<% 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 %>

Igor O. Costa

Problema de acentuação ajax no IE com ASP

Busca Dinâmica