Tengo un buscador pero el problema que tengo es que no me filtra las palabras a buscar , digamos yo pongo las palabras a buscar y me muestra toda la base de datos , y yo solo quiero que me muestre los resultados con las palabras relacionadas .
Paso el codigo de la pagina que me tiene que mostrar los resultados
<%
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("base.mdb")
'definimos las variables de busqueda
Dim Temp,Rango
Rango=Request("Tipo")
If Rango="1" Then
'En la Tabla la palabra que buscamos
Temp="Select * From Tabla1 Where UCase([pal])='" & UCase(Request("palabra"))'"
Else
Temp="Select * From Tabla1 Where InStr(UCase([pal]),'" & UCase(Request("Criterio")) & "')>0"
End If
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>
<!-- si no encuentra nada nos da este mensaje -->
<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("palabra")%></strong> en la Base de Datos</font></p>
<!-- aquí comienza el Script que nos muestra los resultados, si los encuentra, en una tabla -->
<%
Else
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="28%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Categoria</font></strong>
</td>
<td width="28%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Nombre de la pagina</font></strong></p>
</td>
<td width="52%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Descripcion</font></strong>
</td>
<td width="19%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Url</font></strong></p>
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="28%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Categoria")%></font></td>
<td width="28%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Nombre")%></font></td>
<td width="52%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Des")%></font></td>
<td width="19%" bgcolor="#FFCC00" height="51">
<!-- Convertimos los datos URL en el vinculo de la palabra IR -->
<p align="center"><a href="<%=Tabla.Fields("url")%>"><font face="Tahoma" size="2">Ir</font></a>
</tr>
<%
'si encuentra mas de un resultado nos hace una celda mas en la tabla
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table>
la variable pal es la que tiene las palabras relacionadas
a ver si alguien me puede dar una mano. GRACIAS