Cambiar aspecto de coincidencias en busqueda

aruizroldan · #1 (**permalink**) 08/07/2004, 11:10

Hola. Tengo una BD Access con 4 campos: Pos (posicion), Pelicula , Ptos(puntos) y Votos.
En buscar.htm introduzco una palabra (enseño el codigo):
-------------------
<html>

<head>
<title>Busqueda</title>
<link href="http://www.uco.es/~b92hijia/personal/text.css" rel="stylesheet" type="text/css">
</head>
<form method="Post" action="buscar.asp">
<body background="http://www.uco.es/~b92hijia/personal/images/blue_bg3.jpg">
Ingrese
Palabra a buscar 
(película, director, año
de producción...etc)

<input type="text" name="palabra" size="20">


<input type="submit" value="Buscar" name="boton1">
<input type="reset" value="Restablecer" name="boton"></form>
 
</body>

</html>

Bien, lo que quiero es que cuando se muestre los resultados en buscar.asp , si se mete la palabra matr, y esta en la base de datos matrix, matrix reloaded y matrix revolutions, aparezca la palabra matr en color rojo-negrita. Os mando el codigo:
-----------------------------
<html>

<head>
<title>Resultados de Búsqueda</title>
<link href="http://www.uco.es/~b92hijia/personal/text.css" rel="stylesheet" type="text/css">
</head>

<body background="http://www.uco.es/~b92hijia/personal/images/blue_bg3.jpg">

Resultados obtenidos con
<%=Request("palabra") %>


<%

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

No se ha encontrado la pelicula
<%=Request("palabra")%> en la Base de Datos

<%
Else
%>
<% While Not Tabla.EOF%>
 
<li><%=Tabla.Fields("Pelicula")%> con <%=Tabla.Fields("Ptos")%> puntos, en la
posicion <%=Tabla.Fields("Pos")%> .</li>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
 
 
<a class=acts2 href="./buscar.htm">[Buscar de nuevo]</a>

</body>
</html>

Gracias.

AlZuwaga · #2 (**permalink**) 08/07/2004, 11:44

hola. eso lo lográs haciendo un replace()

cambiá ésta línea:

Código:

<li><%=Tabla.Fields("Pelicula")%> con <strong><%=Tabla.Fields("Ptos")%></strong> puntos, en la 
posicion <strong><%=Tabla.Fields("Pos")%></strong> .</li>

por esta:

Código:

<li><%=Replace(Tabla.Fields("Pelicula"), Request("palabra"), "<strong>" & Request("palabra") & "</strong>")%> con <strong><%=Tabla.Fields("Ptos")%></strong> puntos, en la 
posicion <strong><%=Tabla.Fields("Pos")%></strong> .</li>

Fijate que sólo puse el resultado en negritas.. ahora el color rojo te toca a vos ;)

saludos