Amigos tengo un buscador interno de palabras en una pagina en donde yo trabajo, pero quiero mofificarla para que encuentre palbras que contengan asento como las que no, como puedo hacerlo????? e encontrado faq que te dicen como pero hasta el memento no e podido entenderlo me podrian explicar????
Elñ codigo que estoy utilizando en este moemnto para el buscador es:
<html>
<META HTTP-EQUIV="Page-Enter" CONTENT = "RevealTrans (Duration=1, Transition=23)">
<head>
<title>Formulario para consulta sencilla</title>
</head>
<body OnLoad="javascript
:document.fconsulta5.cedula.focu s();">
<h1 align="center">Consulta</h1>
<H1><B><U>Intrucción</U>:</B></H1>
<h3>Por favor Introduzca el NÚMERO DE CÉDULA SIN PUNTO, y luego presiona el botón de enviar, en el caso de no saber la cedula use el buscador: </h3>
<CENTER><a href="portal-posturg.html"><H2><B>Volver a Inicio</B></H2></a></CENTER>
<body OnLoad="javascript
:document.fconsulta5.cedula.focu s();">
<form method="POST" action="espera3.asp" name="fconsulta5" AUTOCOMPLETE="OFF">
<table border="1" width="50%">
<tr>
<td width="40%"><B>Cedula Identidad:</B></td>
<td width="50%"><input type="text" name="cedula" size="8"></td>
</tr>
<tr>
<td width="16%"><input type="submit" value="Enviar" name="B1"></td>
<td width="84%"><input type="reset" value="Restablecer" name="B2"></td>
</tr>
</table>
</form>
<HR>
<%
Dim buscar
buscar = Request.Form("textfield")
%>
<body bgcolor="#FFFFFF" text="#000000">
<p><b><font size="5"><CENTER>Buscador por Palabras</CENTER></font></b> </p>
<p><b><font size="3">Por favor introduzca el nombre o apellido del profesor a buscar y presione el boton "buscar:</font></b> </p>
<%
Function fBuscar(cnn)
Dim rs
Dim SQL
Dim str
SQL="SELECT * FROM profesores WHERE Nombre LIKE '%"&buscar&"%';"
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cnn
rs.Open SQL
While Not rs.EOF
str = str & FormatNumber((rs("Cedula").Value), 0, -2, -1, -1)& " " & rs("nombre")& "<BR>"
rs.MoveNext
Wend
if str = "" then str ="<CENTER><B>Lo siento, no se encontraron resultados</B></CENTER>"
if buscar = "" then str ="<CENTER><B>Por favor, especifique su búsqueda</B></CENTER>"
fBuscar = str
End Function
Dim cnn
Dim str
Set cnn = CreateObject("ADODB.Connection")
str = "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("profesores.mdb")
cnn.Open str
Response.write "<FONT COLOR=Blue "
Response.write "SIZE=4 FACE=Arial> "
Response.write "Resultados "
Response.write "de la busqueda: <P>"
Response.write "</FONT> "
Response.write "<HR>"
Response.write "<FONT COLOR=Green "
Response.write "SIZE=3 FACE=Arial> "
Response.Write fBuscar(cnn)
Response.write "</FONT><hr> "
%>
<body OnLoad="javascript
:document.form1.textfield.focus( );">
<form name="form1" method="post" action="form-consulta-prof3.asp">
<input type="text" name="textfield">
<input type="submit" name="Submit" value="Buscar!">
</form>
</body>
</html>
Miguel
