Buenas
estoy intentando hacer un buscador para el web que busque nombres y apellidos y dni en la BD
he hecho como ahy aqui en la web manuales para hacer los buscadores pero no consigo que la base de datos me devuelva nada lo he intentado todo pero no que mas hacer
me podrias decir que es lo que hago mal que hay algo seguro
gracias
PAGINA DE BUSCAR.HTM
<html>
<head>
<title>Busqueda</title>
</head>
<form method="Post" action="buscar.asp">
<body bgcolor="#FFFFCC">
<p align="center"><font face="Tahoma" size="2"><b><i>Ingrese N.i.f o C.i.f a buscar</i></b></font>
</p>
<p align="center"><input type="text" name="palabra" size="20">
</p>
<p align="center">
<input type="submit" value="Buscar" name="boton1">
<input type="reset" value="Restablecer" name="boton"></form>
<p> </p>
</body>
</html>
BUSCAR.ASP
<html>
<head>
<title>Buscar datos</title>
</head>
<body bgcolor="#FFFFCC">
<p align="center"><b><font face="Tahoma" size="4">INFORME DE MORALIDAD COMERCIAL</font></b></p>
<%
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")
Dim Temp
Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request("palabra")) & "%'"
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>
<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("palabra")%></strong> en la Base de Datos</font></p>
<p> </p>
<%
Else
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="14%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Nombre </font></strong></p>
</td>
<td width="29%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Apellidos</font></strong>
</td>
<td width="14%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Nif/Cif</font></strong></p>
</td>
<td width="42%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Informe</font></strong>
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="14%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Nombre")%></font></td>
<td width="29%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Apellidos")%></font></td>
<td width="29%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Apellidos")%></font></td>
<td width="14%" bgcolor="#FFCC00" height="51">
<p align="center"> </tr>
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Informe")%></font></td>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table>
</center></div>
<p align="center"> </p>
</body>
</html>
MUCHAS GRACIAS A TODOS POR VUESTRA AYUDA