Problema Registros

[ferranWEB]

Tengo un problema, hago una busqueda y a la hora de mostrar los registros de la base de datos, me los muestra todos, y no los que yo le he pedido. dejo aqui el codigo asp a ver si alguien me puede ayudar, gracias!

<%

Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connectio n")
Set Tabla=Server.CreateObject("adodb.recordset&qu ot;)
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("buscador.mdb")

Dim Temp

Temp="Select * From empresas Where UCase(actividad) like '%" & UCase(Request("Actividad")) & "%'"

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("Actividad") %></strong> en la Base de Datos</font></p>


<%
Else
%>

<% While Not Tabla.EOF%>
<tr>
<td width="22%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Act ividad")%></font></td>
<td width="30%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Nom bre Empresa")%></font></td>
<td width="22%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Pro vincia")%></font></td>
<td width="26%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Loc alidad")%></font>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>