O meu problema é o seguinte tenho um banco de dados de lista telefonica e quando faço a busca no asp por um nome sem colocar o acento ele nao acha a pessoa, queria saber como fazer para ele ignorar essa acentuação.
Abaixo coloco o sistema de formulario e resultado que fiz:
busca.asp
<body style="overflow-y: no;overflow-x: hidden;"> <div align="left"> <table width="100%" border="0"> <tr> <td background="../images/barra.GIF"><div align="center"><font face=verdana size=2><strong>CONSULTAS POR NOMES </strong></font></div></td> </tr> </table> <br> <table width="570" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="557" height="24" valign="top"><form action="resultado.asp" method="post"> <strong> <input type = text name="buscando" size=37 style= "font-family : Verdana; font-size : 11px;"> <input type="submit" name="Submit" value="Buscar por Nome"> </strong> </form></td> <td width="13"> </td> </tr> </table> <br> * Informe o nome da pessoa ou empresa que procura. </div> </body>
resultado.asp
<body bgcolor="#f2f2f2" style="overflow-y: no;overflow-x: hidden;">
<%
Busca = Trim(Request.form("buscando"))
%>
<%
set DB = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("cad.mdb")
DB.open constr
Set objRS = Server.CreateObject("ADODB.Recordset")
%>
<%
function TiraAspas(str)
str = replace(str,"'","""")
TiraAspas = str
End function
%>
<%
Busca=TiraAspas(Busca)
strSql = "SELECT * FROM tabela WHERE nome LIKE '%"&Busca&"%'"
objRS.Open strSQL,DB,1,1
%>
<table width="100%" border="0">
<tr>
<td background="../images/barra.GIF"><div align="center"><font face=verdana size=2><b>RESULTADO DA BUSCA POR NOMES
</b></font></div></td>
</tr>
</table>
<p> </p>
<table width="100%" border="0">
<!--DWLayoutTable-->
<tr>
<td width="252" height="14"><strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Nome:</font></strong></td>
<td width="268"><strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Endereço:</font></strong></td>
<td width="126" valign="top"><strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Bairro:</font></strong></td>
<td width="117" valign="top"><strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Fone:</font></strong></td>
</tr>
<%
if (len(busca)<=2) then
Response.write("Digite uma palavra com o mínimo de 3 letras para fazer a busca.")
ElseIf (Busca = "") then
Response.write("Você precisa escrever uma palavra para fazer uma busca.")
ElseIf (objRS.EOF = true) then
response.write "Sua busca por <b>"&Busca&"</b> não retornou nenhum resultado."
Else
do While not objRS.EOF
%>
<tr>
<td height="21"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=objRS(TiraAspas("nome"))%></font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=objRS(TiraAspas("ende"))%></font></td>
<td valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=objRS(TiraAspas("bairro"))%></font></td>
<td valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=objRS(TiraAspas("fone"))%></font></td>
</tr>
<%
objRS.MoveNext
Loop
End IF
%>
</table>
<p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
<a href="consultageral.asp">Ver Todos</a></font></strong></p>
<p><strong></strong></p>
</body>Valeu, espero que alguem possa me dar uma luz, hehehe!!!
