Gracias otra vez, lo he revisado y sigue igual, te mando el código completo para ver si tu puedes ver lo que yo no...
Dim Base 'Objeto de conección a la base de datos
Dim tabla 'Objeto recordset para realizar consultas
Dim SQL 'String para crear la consulta SQL
Dim categoria 'Codigo de la categoria que estamos mostrando
Dim cod_categoria 'Nombre de la categoria en la que estamos
Dim nombre 'nombre que está buscando el usuario
Dim secciones 'secciones en la que se realiza la búsqueda
Dim seccion 'variable para obtener las secciones
Dim pagina 'contiene el número de la página que estamos viendo
Dim cont 'contador de registros mostrados
Dim Ruta 'Auxiliar para almacenar la Ruta
'fin de la definición de variables
categoria = Request.QueryString ("categoria")
cod_categoria = Request.QueryString ("cod_categoria")
secciones = ""
For each seccion in request.form("seccion")
if secciones="" then
secciones="'"&seccion&"'"
else
secciones=secciones & ", '" & seccion & "'"
end if
next
nombre =request.form("nombre")
%>
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<%
'########## COMENZAMOS A LLENAR CABECERA
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>productos</title>
<script languaje="javascript">
<!--
function enviar(donde)
{
document.formi.pagina.value=donde
document.formi.submit()
}
//-->
</script>
</head>
<%'########## COMENZAMOS A LLENAR EL CUERPO
%>
<body>
<a href="../index.asp">home</a><br />
<a href="../compra/cesta.asp">Ver Cesta</a><br />
<%
Ruta="secciones.asp?cod_categoria="& Server.URLEncode(cod_categoria)
%>
<h2><a href="<%=Ruta%>"><%=categoria%></a><br /></h2>
<%
Ruta="busqueda.asp?categoria="&Server.URLEncode(ca tegoria)& "&cod_categoria="&Server.URLEncode(cod_categoria)% >
<form name="formi" method="post" action="<%=Ruta%>">
<input type="Hidden" name="nombre" value="<%=nombre%>">
<input type="Hidden" name="seccion" value="<%=request.form("seccion")%>">
<input type="Hidden" name="pagina" value="">
</form>
<%
Set Base = Server.CreateObject("ADODB.Connection")
Set tabla =Server.CreateObject("ADODB.RecordSet")
Base.Open = "servidor.tienda"
SQL = "Select COD_PRODUCTO, PRODUCTO, PRECIO FROM productos " & "where ACTIVO=1 and COD_SECCION IN ("&secciones & ") and PRODUCTO LIKE '%"&nombre&"%' order by PRODUCTO"
tabla.Open SQL, Base, 3,3
IF tabla.EOF then
Response.write "No se ha encontrado ningún producto " & "que cumpla las especificaciones"
else
...