asp subir archivos o foto

[haga41]

Hola otra vez,

Hay algo que no he entendido bien, cuando dices:

Iniciado por Adler

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

¿Te refieres al campo Interprete de mi base de datos de Access o del campo Interprete en el formulario de búsqueda? Tampoco entiendo lo de que tienes que estar reemplezada la comilla simple. Es decir la comilla simple la reemplazo cuando me llega lo que alguien haya escrito en el campo de búsqueda al archivo buscarmultiple.asp pero antes de que llegue ahí no se como reemplazarlo.

Es decir, la gente escribe Director's cut con comilla simple normal, la que está a la derecha de la eñe en el campo tmulyiple del formulario. He puesto al función remplaza en esa web, pero lo que no sea es que como hacer que la función se ejecute directamente en el formulario de búsqueda. Es decir, todas las páginas de mi web tienen este buscador integrado:

Código HTML:

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

<label class="invisible" for="tmultiple">Búsqueda</label>
<input name="tmultiple" type="text" id="tmultiple" class="c1" size="5" value="Buscar"/>

<label for="multiple">
<select class="c2" name="multiple" id="multiple">
<option value="1" selected="selected" id="Interprete">Interprete</option>
<option value="2" id="Director" >Director</option>
<option value="3" id="Titulo" >Titulo</option>
<option value="4" id="Todas">Todas</option>
</select>
</label>

<input class="fexplorer" type="submit"  name="button3" id="button3" value="Buscar" />
</form> 

Si escribes cualquier cosa sin tildes funciona bien y te lleva a buscarmultiple.asp, por ejemplo si pones: Director en el campo Titulo te lleva a la página:

http://localhost/videoclub/buscarmul...button3=Buscar

Este es el código de buscarmultiple.asp después de las modificaciones:

Código asp:

<&#37; tmultiple = Remplaza(request.QueryString("tmultiple"),0)
 session("multiple") = tmultiple
  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%>
 

Si pones director's te lleva nohayresultados.asp.

La función remplazar va en todas las páginas:

Código asp:

<%    Public Function Remplaza(limpia,caso)    
      Dim cadena
          cadena = trim(limpia)
          Select Case caso
          Case 0:
              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,"'","&#39")
          Case Else
              cadena = limpia
          End Select
          Remplaza = cadena
      End Function
%>