Hola de nuevo,
Ya he hecho ese cambio y un par de cosas que me había dejado por declarar y ahora sí funciona, la única duda que tengo es si puedo hacer que me detecte las pelis poniendo sólo Director's o Director's Cut ya que ahora me encuentra las pelis si le pongo el nombre entero, es decir: Clerks Director's cut por ejemplo la encuentra pero si escribo Director's o cut me dice No existe, supongo que será cosa del sql.
Así está el archivo ahora:
Código asp:
Ver original<%
control = Request.QueryString("c")
IF control = "" then
%>
<form action="prueba.asp" method="get">
<input name="tmultiple" type="text" id="tmultiple" value="Buscar"/>
<input name="c" type="text" value="1"/>
<input type="submit" name="button3" id="button3" value="Buscar" />
</form>
<%
ELSE
texto = Replace(Request.QueryString("tmultiple"), "'", "'")
set conexion=Server.CreateObject("ADODB.Connection")
conexion.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("pelis.mdb"))
set tabla = Server.CreateObject("ADODB.Recordset")
Const adCmdText = &H0001
Const adOpenStatic = 3
'conexion.open "pelis"'
ssql = "Select * from PELICULAS where Interpretes like '" & texto & "%' ORDER by " &_
"Anio,Titulo asc"
tabla.Open sSQL,conexion,adOpenStatic,adCmdText
if not tabla.eof then
Response.write Replace(tabla.fields("Interpretes"), "'", "'")
else
Response.write "No Existe"
end if
tabla.Close
set tabla=nothing
conexion.Close
set conexion=nothing
END IF
%>