Gracias por tu paciencia,
Este es el codigo asp de la página, he cortado lo que iba después porque es parte de la plantilla y no me dejaba enviar el mensaje sino pero vamos no creo que el problema esté allí:
Código HTML:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="Templates/plantillaVC.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<link rel="stylesheet" type="text/css" href="estilos/estilovideoclub.css">
<!--[if IE 6]>
<link rel="stylesheet" type="text/css" href="estilos/estilovideoclubIE6.css" />
<![endif]-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!-- InstanceBeginEditable name="doctitle" -->
<title>Untitled Document</title>
<!-- InstanceEndEditable -->
<!-- InstanceBeginEditable name="head" -->
<!-- InstanceEndEditable -->
</head>
<!--#include file="includes/AbrirBD.asp"-->
<!-- #include file="includes/acceder.asp"-->
<body>
<div class="titulo"><span class="titular">VIDEOCLUB <span class="verdetitular">ON</span>LINE</span></div>
<div class="decoracion"></div>
<div class="fondonegro">
<!-- Botón de home-->
<!-- Botón de home-->
<div class="genero3"><a href="index.asp" target="_self">MENU</a></div>
<div class="genero"><a href="listado.asp?id=1" target="_self">Accion</a></div>
<div class="genero"><a href="listado.asp?id=2" target="_self">Animacion</a></div>
<div class="genero"><a href="listado.asp?id=4" target="_self">Ciencia Ficcion</a></div>
<div class="genero"><a href="listado.asp?id=5" target="_self">Comedia</a></div>
<div class="genero"><a href="listado.asp?id=6" target="_self">Drama</a></div>
<div class="genero"><a href="listado.asp?id=3" target="_self">Suspense-Terror</a></div>
<form class="formulario1" action="buscarmultiple.asp?tmultiple=tmultiple" method="get">
<input name="tmultiple" type="text" id="tmultiple" style="height:17px;border:none;padding-top:0px;margin-top:0px;margin-left:0px;" size="15" />
<select style="height:18px;border:none;padding-top:0px;margin-top:0px;" name="multiple" id="multiple">
<option value="1" selected="selected">Interprete</option>
<option value="2" >Director</option>
<option value="3" >Titulo</option>
<option value="4" >Todas</option>
</select>
<label>
<input class="fexplorer" type="submit" name="button3" id="button3" value="Buscar" />
</label>
</form>
</div>
<div class="decoracion"></div>
<div class="fondoverde">
<!-- InstanceBeginEditable name="Editable" -->
<div class="menu31">
<%tmultiple=request.QueryString("tmultiple")
mmultiple= request("multiple")
Select case mmultiple%>
<% case 1:
ssql = "SELECT * FROM PELICULAS WHERE Interpretes like '" & replace(tmultiple,"'","''") & "*'"
response.write "<br /> ssql = " & ssql
response.end
tabla.Open sSQL,conexion,adopenstatic,adcmdtext
'resultados por pagina a elegir arbitrariamente'
num_registros = 10
session("ssql")=ssql
%>
<!--actualizamos numero de pagina-->
<%If Request.QueryString("pag")<>"" Then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina")=1
End If%>
<div align="center">
<% if tabla.RecordCount = 0 then%>
No se han encontrado: resultados
<%response.redirect("nohayresultados.asp")%>
<% else if tabla.RecordCount = 1 then%>
Se ha encontrado: <span class="negrita2"><%=tabla.RecordCount%></span> resultado
<%else%>
Se han encontrado: <span class="negrita2"><%=tabla.RecordCount%></span> resultados
<%end if
end if%>
<%ptotales = tabla.PageCount%>
</div>
<%
'Dimensionamos las paginas y determinamos la pagina actual'
tabla.PageSize=num_registros
tabla.AbsolutePage=Session("pagina")
%>
<%
'Contamos el numero de campos
num_campos=tabla.Fields.Count
For campo=0 to num_campos-1%>
<%
Next
registros_mostrados = 0%>
<%if tabla.RecordCount >=5 then%>
<div class="blanco">
<%else%>
<div class="blancoie">
<%end if%>
<%While (Not tabla.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1
%>
<%For campo=0 to num_campos-1 %>
<%Next%>
<div class="fila">
<div class="lista1">
<a href="detalle.asp?id=<%=tabla.fields("id")%>" title="Detalle" target="_self"><img class="imagen" style="border: 1px solid #0000;" src="miniaturas/<%=tabla.fields("foto")%>" /></a>
</div>
<div class="lista">
<ul>
<li><span class="negrita"><a href="detalle.asp?id=<%=tabla.fields("id")%>" title="Detalle" target="_self"><%=tabla.fields("Titulo")%></a></span> <a href="buscaranio.asp?anio=<%=tabla.fields("Anio")%>" target="_self">(<%=tabla.fields("Anio")%>)</a></li>
<li><span class="gris"><a href="buscarpais.asp?pais=<%=tabla.fields("Pais")%>" target="_self"><%=tabla.fields("Pais")%></span></a></li>
<li><span class="lnegro"><a href="buscardirector.asp?director=<%=tabla.fields("Director")%>" target="_self"><%=tabla.fields("Director")%></span></a></li>
<li><%=tabla.fields("Interpretes")%></li>
</ul>
</div>
</div>
<% tabla.movenext
Wend
i=0
%>
<% if tabla.PageCount > 1 then%>
<div class="paginacion"><span class="pag2">Ir a la página:
<% While i<tabla.PageCount
i=i+1
%>
<a href="buscaractor.asp?actor=<%=tmultiple%>&pag=<%=i%>"> <%=i%></a>
<%
Wend
%>
</span>
</div>
<%
tabla.close
conexion.close
%>
<% else
tabla.close
conexion.close
end if %>
<% case 2:
ssql = "SELECT * FROM PELICULAS WHERE Titulo like '*" & replace(tmultiple,"'","'") & "*'"
response.write "<br /> ssql = " & ssql
response.end
tabla.Open sSQL,conexion,adopenstatic,adcmdtext
'resultados por pagina a elegir arbitrariamente'
num_registros = 10
session("ssql")=ssql
%>
<!--actualizamos numero de pagina-->
<%If Request.QueryString("pag")<>"" Then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina")=1
End If%>
<div align="center">
<% if tabla.RecordCount = 0 then%>
<%response.Write("No se han encontrado resultados")
response.end()%>
<% else if tabla.RecordCount = 1 then%>
Se ha encontrado: <span class="negrita2"><%=tabla.RecordCount%></span> resultado
<%else%>
Se han encontrado: <span class="negrita2"><%=tabla.RecordCount%></span> resultados
<%end if
end if%>
<%ptotales = tabla.PageCount%>
</div>
<%'Dimensionamos las paginas y determinamos la pagina actual'
tabla.PageSize=num_registros
tabla.AbsolutePage=Session("pagina")
'Contamos el numero de campos
num_campos=tabla.Fields.Count
For campo=0 to num_campos-1%>
<%
Next
registros_mostrados = 0%>
<%if tabla.RecordCount >=5 then%>
<div class="blanco">
<%else%>
<div class="blancoie">
<%end if%>
<%While (Not tabla.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1
%>
<%For campo=0 to num_campos-1 %>
<%Next%>
<div class="fila">
<div class="lista1">
<a href="detalle.asp?id=<%=tabla.fields("id")%>" title="Detalle" target="_self"><img class="imagen" style="border: 1px solid #0000;" src="miniaturas/<%=tabla.fields("foto")%>" /></a>
</div>
<div class="lista">
<ul>
<li><span class="negrita"><a href="detalle.asp?id=<%=tabla.fields("id")%>" title="Detalle" target="_self"><%=tabla.fields("Titulo")%></a></span> <a href="buscaranio.asp?anio=<%=tabla.fields("Anio")%>" target="_self">(<%=tabla.fields("Anio")%>)</a></li>
<li><span class="gris"><a href="buscarpais.asp?pais=<%=tabla.fields("Pais")%>" target="_self"><%=tabla.fields("Pais")%></span></a></li>
<li><span class="lnegro"><a href="buscardirector.asp?director=<%=tabla.fields("Director")%>" target="_self"><%=tabla.fields("Director")%></span></a></li>
<li><%=tabla.fields("Interpretes")%></li>
</ul>
</div>
</div>
<% tabla.movenext
Wend
i=0
%>
<% if tabla.PageCount > 1 then%>
<div class="paginacion"><span class="pag2">Ir a la página:
<% While i<tabla.PageCount
i=i+1
%>
<a href="buscartitulo.asp?titulo=<%=tmultiple%>&pag=<%=i%>"> <%=i%></a>
<%
Wend
%>
</span>
</div>
<%
tabla.close
conexion.close
%>
<% else
tabla.close
conexion.close
end if %>
<%end select %>
</div>
...
Tal y como está ahora sólo muestra el contenido de las ssql pero he hecho pruebas sin el response.write y response.end y no encuentra resultados busque lo que busque. No tenía ningún título que empezase por Director pero lo he creado y al buscar de nuevo tampoco lo ha encontrado.
Lo de poner otro * delante no se si he entendido como iría ¿algo así? Lo he probado y me da el error de ayer: Microsoft JET Database Engine (0x80040E14)
ssql = "SELECT * FROM PELICULAS WHERE Titulo like '*" & replace(tmultiple,"'","'") & "*'"
ssql = SELECT * FROM PELICULAS WHERE Titulo like '*Director's cut*'