Hola. En un post anterior pregunté como cambiar las coincidencias con la busqueda en una base de datos. Ahora casi lo tengo. Lo unico que me gustaria es que me ayudarais a una cosa. Lo que he hecho es que si coincide la palabra introducida en buscar.htm con alguna de la BD la pone en negrita (me gustaria que tambien saliera roja). Pero no pone si hay alguna mayuscula, es decir: si meto bra me coloca todas las que tenga bra, pero no Bra (tambien me gustaria contemplar esto).
El codigo de buscar.asp es:
<p><font face="Arial, Helvetica, sans-serif" size="2">Resultados obtenidos con
<strong><%=Request("palabra") %></strong></font>
<font size="2" face="Arial, Helvetica, sans-serif">
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("./paginar.mdb")
Dim Temp
Temp="Select * From Tabla Where UCase(Pelicula) like '%" & UCase(Request("palabra")) & "%'"
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>
</font>
<p><font face="Arial, Helvetica, sans-serif" size="2">No se ha encontrado la pelicula
<strong><%=Request("palabra")%></strong> en la Base de Datos</font></p>
<font size="2" face="Arial, Helvetica, sans-serif">
<%
Else
%>
<% While Not Tabla.EOF%>
<br>
<li><%=Replace(Tabla.Fields("Pelicula"), Request("palabra"), "<strong>" & Request("palabra") & "</strong>")%>
con <%=Tabla.Fields("Ptos")%> puntos, en la
posicion <%=Tabla.Fields("Pos")%> .</li>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
Gracias.