asp subir archivos o foto

[Adler]

Hola, vamos por partes, ¿quién dijo eso?

Iniciado por haga41

Lo he intentando hacer como tu decías, pero aunque ya no da error me dice que no hay resultados. He probado poniendo:

Código asp:

tmultiple = Remplaza(request.QueryString("tmultiple"),0)
response.Write(tmultiple)
response.end()
 

Y lo que me muestra está bien, es decir si copio, directamente del Titulo del registro: Director's Cut el response.write me muestra Director's Cut así que no tengo ni idea de donde puede estar el fallo.

Has de tener en cuenta que en el campo Interprete, Director's Cut, ha de tener reemplazada la comilla simple, es decir ha de estar escrito Director's Cut

Iniciado por haga41

Este es el formulario para elegir si busca Intérpretes, Titulo, Director o Todo.

Código asp:

<form class="formulario1" action="buscarmultiple.asp?tmultiple=tmultiple" method="get" accept-charset="UTF-8">
 

Prueba así
<form class="formulario1" action="buscarmultiple.asp" method="get">

Iniciado por haga41

Y este es el archivo buscarmultiple.asp, bueno parte de él pero es todo el rato igual:

Código asp:

<&#37;    Public Function Remplaza(limpia,caso)    
      Dim cadena
          cadena = trim(limpia)
          Select Case caso
          Case 0:
              cadena = replace(cadena,"'","'")
              cadena = replace(cadena,"¿","&iquest;")
              cadena = replace(cadena,"¡","&iexcl;")
              cadena = replace(cadena,"ñ","&ntilde;")
              cadena = replace(cadena,"Ñ","&Ntilde;")
              cadena = replace(cadena,"á","&aacute;")
              cadena = replace(cadena,"Á","&Aacute;")
              cadena = replace(cadena,"é","&eacute;")
              cadena = replace(cadena,"É","&Eacute;")
              cadena = replace(cadena,"í","&iacute;")
              cadena = replace(cadena,"Í","&Iacute;")
              cadena = replace(cadena,"ó","&oacute;")
              cadena = replace(cadena,"Ó","&Oacute;")
              cadena = replace(cadena,"ú","&uacute;")
              cadena = replace(cadena,"Ú","&Uacute;")
      cadena = replace(cadena,"'","'")     
          Case Else
              cadena = limpia
          End Select
          Remplaza = cadena
      End Function%>
 

Tienes dos veces la función replace para la comilla simple (al principio y al final)

Iniciado por haga41

Código asp:

<%tmultiple = Remplaza(request.QueryString("tmultiple"),0)
  mmultiple= request("multiple")
  Select case mmultiple%>   
<% case 1:
  ssql = "Select * from PELICULAS where Interpretes like '%" & tmultiple & "%' ORDER by "  &_
  "Anio,Titulo asc"
  tabla.Open sSQL,conexion,adopenstatic,adcmdtext
 
'resultados por pagina a elegir arbitrariamente'
num_registros = 10 
 session("ssql")=ssql
       %>
 

Todo es ASP, no es necesario abrir y cerrar tantas veces los scripts

Iniciado por haga41

He echo otra prueba usando el escape con las pelis que tienen en el título Director's cut, buscandolas con director si me salen, y haciendo esto:

Código asp:

<% tit = escape(tabla.fields("Titulo"))
                
                response.Write(tit)%>
%>
 

Y me saca esto: Clerks%20Director%27s%20cut

Claro lo has codificado, haz esto ahora

Response.Write unescape("Clerks%20Director%27s%20cut")

Suerte