asp subir archivos o foto

[haga41]

Hola Adler,

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.

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">
 
<label class="invisible" for="tmultiple">B&#250;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>
 

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

Código asp:

<%    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
%>
 
 
<%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
       %>
 

En cadena he puesto lo de "& #39" sin espacio aunque por programación se vean iguales.

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

He sustituido:

Código asp:

cadena = replace(cadena,"'","& #39")
 

por

Código asp:

cadena = replace(cadena,"'","& #27")
 

Pero sigue sin funcionar.

He hecho otra prueba poniendo en buscarmultiple.asp esto:

Código asp:

<% tmultiple = Remplaza(request.QueryString("tmultiple"),0)
 session("multiple") = tmultiple%>
 

Y en nohayresultados.asp esto:

Código asp:

<%              a = session("multiple")
                b = escape(a)
                response.write(b)
                response.End()%>
 

Con

Código asp:

cadena = replace(cadena,"'","& #39")
 

en buscarmultiple.asp y cuando escribo 's en el buscador me sale esto en pantalla:

%26%2339s

No se porque me escribe eso en vez del %27 que necesito.

[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

[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
%>
 

[Adler]

Hola

Cambia la consulta a

Código asp:

Select * from PELICULAS where Interpretes like '" & tmultiple & "%' ORDER by
 

Iniciado por haga41

¿Te refieres al campo Interprete de mi base de datos de Access o del campo Interprete en el formulario de búsqueda?

Me refiero al campo de la bd. Si finalmente decides no todos aquellos registros que contengan apostrofe entonces, cuando recibas el valor desde form, no uses la función, por que no es practica

Suerte

[haga41]

Hola,

He cambiado la SQL pero sigue sin ir bien, supongo que es porque no entiendo como tengo que ponerlo en la base de datos, se que me has dicho que lo cambie pero he probado a poner los registros de algunas películas con apostrófe (Director's) que creo que es como ya estaba, otras con acento (Director´s) y otras sustituyendo directamente por el valor de la función remplaza (Director&#39s) y ninguno de las 3 registros me los detecta buscandolo con apóstrofe (Director's).

Ya siento no entenderlo bien.

[Adler]

Hola

Veamos has esto

' Valor que se recibe del form (Director's cut)
tmultiple = Replace(Request.QueryString("tmultiple"), "'", "&#39")

' Sentencia
ssql = "Select * from PELICULAS where Interpretes like '" & tmultiple & "%' ORDER by " &

' Como esta escrito el valor en el campo Interpretes de bd
Director&#39s cut

Una vez que hayas probado esto y funciones, usa la función, si te es útil, cuando recibas el valor desde el form

Suerte

[haga41]

Hola Adler,

He puesto los nombres de los registros como Director's cut en la base de datos de Access y he cambiado también esas 2 líneas que me has puesto en buscarmultiple.asp pero sigue sin funcionar de hecho ahora ni siquiera me busca nada cuando pongo Director a secas o cut a secas, ¿será un problema de como tengo el campo en la base de datos de Access?

Los datos del campo Titulo en la bd de Access 2000 son:

Tipo de datos: texto

Tamaño del campo: 80
Requerido: No
Permitir longitud cero: Sí
Indexado: No
Compresión Unicode: Sí
IME Mode: Sin Controles
Ime Sentence Mode: Nada

El campo Director es exactamente igual pero con un tamñao de campo 150

El campo Interpretes es tipo memo pero el resto de los valores son iguales a los otros 2 campos anteriores.

No tengo ni idea de donde puede estar el fallo la verdad.
De todas formas muchisímas gracias por tener tanta paciencia.

¡¡¡Feliz año nuevo!!!

[Adler]

Hola

Inserta este script en un archivo con el nombre prueba.asp e insertalo en el mismo directorio en el que está buscarmultiple.asp. Edita la ruta hacia tu bd.

<%
control = Request.QueryString("c")
IFcontrol = "" 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"), "'", "&#39")

set conexion=Server.CreateObject("ADODB.Connection")
conexion.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./XXX.mdb"))
set tabla = Server.CreateObject("ADODB.Recordset")

ssql = "Select * from PELICULAS where Interpretes like '" & tmultiple & "%' ORDER by " &_
"Anio,Titulo asc"
tabla.Open ssql,conexion,adopenstatic,adcmdtext
if not tabla.eof then
Response.write Replace(tabla.fields("Interprete"), "&#39", "'")
else
Response.write "No Existe"
end if

tabla.Close
set tabla=nothing
conexion.Close
set conexion=nothing
END IF
%>

Suerte

[haga41]

Hola Adler,

Gracias por tu paciencia,

He puesto el código que me has dado en un archivo llamado prueba.asp en el mismo directorio que buscarmultiple y que mi base de datos cambiando sólo la ruta de la bd por esta:

Código asp:

conexion.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./pelis.mdb"))
 

Pero al buscar me da este error:

ADODB.Recordset (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
/pelis2/prueba.asp, línea 20

En esta línea:

Código asp:

tabla.Open ssql,conexion,adopenstatic,adcmdtext
 

He intentado poner esa línea antes de esta:

Código asp:

ssql = "Select * from PELICULAS where Interpretes like '" & tmultiple & "%' ORDER by " &_
"Anio,Titulo asc"
 

Pero me sigue dando el mismo error en la línea de tabla.Open...

[Adler]

Hola, nada de gracias, para esto estamos

Cambia esto

like '" & tmultiple & "%'

por esto

like '" & texto & "%'

Lo copié tal y como tu lo tienes

Suerte

[haga41]

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:

<%
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
%>
 

[Adler]

Hola

Copia esto

ssql = "Select * from PELICULAS where Interpretes like '%" & texto & "%' ORDER by " &_

Suerte

[haga41]

Hola Adler,

Siento haber tardado tanto en responder pero he estoy bastante enfermo estos últimos días y no he podido hacerlo antes.

Con lo que me pusiste en el último mensaje fucniona perfectamente.

Ahora tengo otras dudas de que estoy haciendo mal en otros archivos que estoy intentando "depurar". Al crear una ficha nueva y editarla, el campo genero he decidido ponerlo con un campo select para que sea obligatoriamente uno de los 6 que tengo.

El tema es que aunque debería de funcionar bien, no va bien y no entiendo porque. También me da problemas al poner como país España ya que si busco películas por país me muestra las 2 películas españolas que meti a mano desde Access y está última no la saca, ya que mediante la funcion remplaza convertimos España en España.

Este es el fichero de editar fichas.

Código asp:

<!--#include file="includes/AbrirBd.asp"-->
<%id = request("id")
          sql = "Select * from PELICULAS where id =" & id
   tabla.open sql,conexion%> 
   
   
   
   <form action="registrarficha.asp" method="post" enctype="multipart/form-data" name="form1" id="form1" accept-charset="UTF-8">
<table width="500" border="1" align="center" bgcolor="#FFF" valign="top">
          <tr>
           <td bgcolor="#489B02" colspan="5" style="color:#FFF">EDITAR PELICULA</td>
          </tr>
         <tr>
          <td bgcolor="#489B02">Titulo</td><td colspan="4" bgcolor="#FFFFFF"><div align="center"><input name="titulo" id="titulo" value="<%=tabla.fields("Titulo")%>" type="text" size="58" /></div></td>           
         </tr>
         <tr>
           <td bgcolor="#489B02">Director</td><td colspan="4" bgcolor="#FFFFFF">
            <div align="center">
             <input name="director" id="director" value="<%=tabla.fields("Director")%>" type="text" size="58" /></div></td>
         </tr>
         <tr>
           <td bgcolor="#489B02">Año</td><td colspan="4" bgcolor="#FFFFFF">
            <div align="center">
              <input name="anio" id="Anio" value="<%=tabla.fields("Anio")%>" type="text" size="58" />
             </div>
           </td>
         </tr>
         <tr>
          <td bgcolor="#489B02">Duración</td><td colspan="4" bgcolor="#FFFFFF"><div align="center"> <input name="min" id="min" value="<%=tabla.fields("Min")%>" type="text" size="58" /></div></td>          </tr>
         <tr>
         <td bgcolor="#489B02">Género</td> 
         <td colspan="4" bgcolor="#FFFFFF">
         <!--<div align="center"><input name="genero" id="genero"  type="text" size="58" />-->
         
<% gen = tabla.fields("Genero")
response.Write(tabla.fields("Genero"))
   select case gen
   case 1%>
<select style="display:block;magin-left:auto;margin-right:auto;text-align:center" name="genero" id="genero">
<option value="1" selected="selected" id="1">Acción</option>
<option value="2" id="2" >Animación</option>
<option value="3" id="3" >Ciencia-ficción</option>
<option value="4" id="4">Comedia</option>
<option value="5" id="5">Drama</option>
<option value="6" id="6">Suspense-Terror</option>
</select>
<%case 2%>
<select style="display:block;magin-left:auto;margin-right:auto;text-align:center" name="genero" id="genero">
<option value="1" id="1">Acción</option>
<option value="2" selected="selected" id="2" >Animación</option>
<option value="3" id="3" >Ciencia-ficción</option>
<option value="4" id="4">Comedia</option>
<option value="5" id="5">Drama</option>
<option value="6" id="6">Suspense-Terror</option>
</select>
<%case 3%>
<select style="display:block;magin-left:auto;margin-right:auto;text-align:center" name="genero" id="genero">
<option value="1" id="1">Acción</option>
<option value="2" id="Director" >Animación</option>
<option value="3" id="Titulo" >Ciencia-ficción</option>
<option value="4" id="Todas">Comedia</option>
<option value="5" id="Todas">Drama</option>
<option value="6" selected="selected" id="Todas">Suspense-Terror</option>
</select>
<%case 4%>
<select style="display:block;magin-left:auto;margin-right:auto;text-align:center" name="genero" id="genero">
<option value="1" id="Interprete">Acción</option>
<option value="2" id="Director" >Animación</option>
<option value="3" selected="selected" id="Titulo" >Ciencia-ficción</option>
<option value="4" id="Todas">Comedia</option>
<option value="5" id="Todas">Drama</option>
<option value="6" id="Todas">Suspense-Terror</option>
</select>
<%case 5%>
<select style="display:block;magin-left:auto;margin-right:auto;text-align:center" name="genero" id="genero">
<option value="1" id="Interprete">Acción</option>
<option value="2" id="Director" >Animación</option>
<option value="3" id="Titulo" >Ciencia-ficción</option>
<option value="4" selected="selected" id="Todas">Comedia</option>
<option value="5" id="Todas">Drama</option>
<option value="6" id="Todas">Suspense-Terror</option>
</select>
<%case 6%>
<select style="display:block;magin-left:auto;margin-right:auto;text-align:center" name="genero" id="genero">
<option value="1" id="Interprete">Acción</option>
<option value="2" id="Director" >Animación</option>
<option value="3" id="Titulo" >Ciencia-ficción</option>
<option value="4" id="Todas">Comedia</option>
<option value="5" selected="selected" id="Todas">Drama</option>
<option value="6" id="Todas">Suspense-Terror</option>
</select>
<%end select%>     
         <!--</div>--></td>           
         </tr>
         <tr>
         <td bgcolor="#489B02">País</td> 
         <td colspan="4" bgcolor="#FFFFFF"><div align="center"><input name="pais" id="pais" value="<%=tabla.fields("Pais")%>" type="text" size="58" /></div></td>           
         </tr>
         <tr>
         <td bgcolor="#489B02">Argumento</td> 
         <td colspan="4" bgcolor="#FFFFFF"><div align="center">
         <textarea name="argumento" id="argumento" cols="45" rows="6">
         <%=tabla.fields("Argumento")%>
         </textarea>         
         </div></td>           
         </tr>
         <tr>
         <td bgcolor="#489B02">Interprétes</td> 
         <td colspan="4" bgcolor="#FFFFFF"><div align="center"><input name="interpretes" id="interpretes" value="<%=tabla.fields("Interpretes")%>" type="text" size="58" /></div></td>           
         </tr>
         <tr>
           <td bgcolor="#489B02">Foto</td><td colspan="4" bgcolor="#FFFFFF"><div align="center"><img src="caratulas/<%=tabla.fields("Foto")%>" /></td>             
           </tr>
           <tr>
           <td bgcolor="#489B02">  
             Foto
           </td>
           <td>  
             <input type="file" name="fichero" id="fichero"  />
           </td>
         </tr>        
        <tr>
           <td bgcolor="#489B02">Miniatura</td><td colspan="4" bgcolor="#FFFFFF"><img src="miniaturas/<%=tabla.fields("Miniatura")%>" /></td>            
           </tr>
           <tr>
           <td bgcolor="#489B02">  
             Miniatura
           </td>
           <td>  
             <input type="file" name="fichero2" id="fichero2"  />
           </td>
         </tr>
        <tr>
 
        
     <td colspan="5" class="centro3">
       <input type="submit" name="button" id="button" value="Enviar" /></td>
       </tr>
<% if session("admin") = "ok" then
 Call cerrar2()
 else
 response.Redirect("admin.asp")
 end if
%>                 
</table>
<% session("id") = id %>
<% tabla.close
conexion.close
Set tabla = Nothing
Set conexion = Nothing%>
</form>         
</div>
 

El de registrarficha.asp lo pongo en el siguiente mensaje porque en este no me entra.

[haga41]

Y este el de registraficha.asp

Código asp:

<!--#include file="includes/xelupload.asp"-->
<%    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
%>
     <%
        id = session("id")
       Dim up, objFich1, objFich2
        set up = new xelUpload
        up.Upload()          
 
      if vartype(up.Ficheros("fichero"))<>0 then
      set objFich1 = up.Ficheros("fichero")
      objFich1.ListFolderContents(Server.MapPath("caratulas/"))
      nombreFoto=objFich1.nombre
      end if
 
      if vartype(up.Ficheros("fichero2"))<>0 then
      set objFich2 = up.Ficheros("fichero2")
      objFich2.ListFolderContents(Server.MapPath("miniaturas/"))
      nombreFoto2=objFich2.nombre
      end if
%>  
       
       <!--#include file="includes/AbrirBD.asp" -->
       <%                           
        titulo = Remplaza(up.form("titulo"),0)      
        director = Remplaza(up.form("director"),0)
        anio = up.form("anio")
        min = up.form("min") 
        genero = Remplaza(up.form("genero"),0)
        pais = Remplaza(up.form("pais"),0)
        argumento = Remplaza(up.form("argumento"),0)
        interpretes = Remplaza(up.form("interpretes"),0)
        
        sql= "Select * from PELICULAS where Id =" & id
        tabla.open sql,conexion,1,3
        
        tabla.fields("Titulo") = titulo
        tabla.fields("Director") = director
        tabla.fields("Anio") = anio
        tabla.fields("Min") = min
        tabla.fields("Genero") = genero
        tabla.fields("Pais") = pais
        tabla.fields("Argumento") = argumento
        tabla.fields("Interpretes") = interpretes
        
        if (len(nombreFoto) > 0) then
            tabla.fields("Foto") = nombreFoto
        end if
        
       if (len(nombreFoto2) > 0) then
       tabla.fields("Miniatura") = nombreFoto2
       end if
                
        tabla.update
        tabla.close        
        conexion.close
        set up = nothing
        Set tabla = Nothing
        Set conexion = Nothing    
        %>  
        Ficha actualizada. <a href="Adminfichas.asp">Continuar</a>.
 

[Adler]

Iniciado por haga41

Ahora tengo otras dudas de que estoy haciendo mal en otros archivos que estoy intentando "depurar". Al crear una ficha nueva y editarla, el campo genero he decidido ponerlo con un campo select para que sea obligatoriamente uno de los 6 que tengo.

Yo usaría radio en vez de select. Te ahorras mucho código

Código asp:

gen = tabla.fields("Genero")
response.Write(tabla.fields("Genero"))
 
<input type="radio" id="genero" name="genero" value="1"<%if CInt(gen) = "1" then%> checked="checked"<%end if%> />Acción<br />
<input type="radio" id="genero" name="genero" value="2"<%if CInt(gen) = "2" then%> checked="checked"<%end if%> />Animación<br />
<input type="radio" id="genero" name="genero" value="3"<%if CInt(gen) = "3" then%> checked="checked"<%end if%> />Ciencia-ficción<br />
<input type="radio" id="genero" name="genero" value="4"<%if CInt(gen) = "4" then%> checked="checked"<%end if%> />Comedia<br />
<input type="radio" id="genero" name="genero" value="5"<%if CInt(gen) = "5" then%> checked="checked"<%end if%> />Drama<br />
<input type="radio" id="genero" name="genero" value="6"<%if CInt(gen) = "6" then%> checked="checked"<%end if%> />Suspense-Terro
 

Iniciado por haga41

El tema es que aunque debería de funcionar bien, no va bien y no entiendo porque.

¿Qué error te marca? ¿que esperabas que hiciera y no hace?

Iniciado por haga41

También me da problemas al poner como país España ya que si busco películas por país me muestra las 2 películas españolas que meti a mano desde Access y está última no la saca, ya que mediante la funcion remplaza convertimos España en España.

En tu bd, España ha de aparecer como Espa &ntilde; a

Suerte

[haga41]

Hola,

El problema que tenía era que no cogía bien la opción que seleccionaba y no sabía porque, he probado con radio buttons y lo pilla bien, el problema que tengo ahora y que no me había dado cuenta antes es que las búsquedas sólo me pillan bien los acentos escritos con &acute; es decir si en el buscador pongo una palabra con acento, por ejemplo límite me encuentra las que escribí en su día a mano en la bd como límite, pero para buscar una pelicula que haya generado o editado a través de los archivos de asp, tengo que poner el &acute; o el &tilde cuando por ejemplo lo de Director's escribiendolo tal cual si lo pilla bien.

Es decir la duda que tengo ahora es si tengo pasar todos los acentos de la base de datos a &acute; etc o puedo usar la función que me diste de alguna forma para que me encuentre tanto los registros que creé en su día como los nuevos creados a traves de las páginas asp, es decir que si yo pongo en el buscador: límite me encuentre en la bd tanto límite como l &iacute; mite.

El editar.asp al final lo he dejado así:

Código asp:

<&#37; gen = tabla.fields("Genero")
select case gen
case 1 %>
           <input name="genero" type="radio" value="1" checked="checked" />
           Acci&#243;n<br/>
           <label>
           <input type="radio" name="genero" value="2" />
           </label>
           Animaci&#243;n<br/>    
           <label>
           <input type="radio" name="genero" value="3" />
           </label>           
           Suspense-Terror<br/>
           <label>
           <input type="radio" name="genero" value="4" />
           </label>           
           Ciencia-ficci&#243;n<br/>  
           <label>
           <input type="radio" name="genero" value="5" />
           </label>           
           Comedia<br/>
           <label>
           <input type="radio" name="genero" value="6" />
           </label>           
           Drama<br/> 
...
 

Y ahora tengo problemas con por ejemplo buscarpais.asp si uso esto me encuentra bien las películas que tienen Espa &ntilde; a on Canad &aacute; a en la bd.

Código asp:

<% 
    pais = request("pais")
    pais = Remplaza(Request.QueryString("pais"),0)
    ssql = "Select * from PELICULAS where Pais like '" &pais& "%' ORDER by Titulo,Anio asc"
    tabla.Open sSQL,conexion,adopenstatic,adcmdtext%>
 

El problema es el mismo que arriba supongo que sería algo así como una función que dijera si me viene una á o una &aacute; considerar el resultado como bueno.

[Adler]

Hola

Iniciado por haga41

Es decir la duda que tengo ahora es si tengo pasar todos los acentos de la base de datos a &acute; etc o puedo usar la función que me diste de alguna forma para que me encuentre tanto los registros que creé en su día como los nuevos creados a traves de las páginas asp, es decir que si yo pongo en el buscador: límite me encuentre en la bd tanto límite como l &iacute; mite.

Esto es justamente lo que he intentado que hicieras desde el principio, que editaras los registros que tienes acentos, ñs, etc.. con su equivalencia en entidades html.

Si lo haces, seguro que todos los problemas que expones, se solventarán

Suerte

[haga41]

Hola Adler,

Te he hecho caso y estoy intentando pasar todos los datos con acentos y eñes a entidades html pero la bd es bastante extensa y me llevará bastante tiempo.

El caso es que subido las últimas versiones de mis páginas para hacer pruebas manteniendo aún la bd antigua que creé directamente en Access y en los 2 servidores que lo he subido no me ha encontrado las películas que tenían Director's en el titulo, ya no me da el error que me daba antes ahora me dice que no hay resultados pero en modo local si me encuentra esos títulos perfectamente, ¿puede fallar la función replace en esos servidores?

Esta es la parte de buscarmultiple.asp que me va bien local y mal en los servidores:

Código asp:

<%  tmultiple = Replace(Request.QueryString("tmultiple"), "'", "'")%>
 

Uno de los servidores me da errores con el favicon, a pesar de que el icono que debe mostrar esta en otra página así que quizás sea problema del servidor no?

[Adler]

Hola

La función no es el problema. El problema de que en el servidor que te diga que no se han encontrando resultados es que, como tú dices, estás trabajando con la bd antigua, mientras que en local has de estar trabajando con la bd editada.

En cuanto al favicon, puede que algunos servidores no reconozcan la extensión .ico, no lo sé. Un poco de lectura quizás ayude

Suerte

[haga41]

Hola Adler,

He tardado bastante en responder porque me han dado bastantes problemas el servidor y la base de datos. Como bien decías el problema no estaba en la función replace pero mi servidor tampoco anda muy bien ya que edite mi bd en modo local usando los archivos asp poniendo los acentos y las eñes como entidades html y cuando sustituí la bd vieja por la que acababa de editar me seguía sin funcionar bien. Así que al final tuve que editar todos los registros de la bd del servidor online usando los archivos de asp y ahora funciona perfectamente.

Gracias por el link del favicon, en principio está todo bien y no funciona pero bueno seguiré intentando cosillas.

Muchísimas gracias a ti y a todos los que me habéis ayudado por vuestra paciencia y ayuda durante todos estos días.

Espero que algun día, ahora mismo estoy intentando aprender JavaScript, Php, Asp y Ajax, consiga aprender lo suficiente de programación para poder ayudarte a ti o cualquiera de estos foros tanto como me habéis ayudado vosotros a mí.

[Adler]

Iniciado por haga41

Muchísimas gracias a ti y a todos los que me habéis ayudado por vuestra paciencia y ayuda durante todos estos días.

Espero que algun día, ahora mismo estoy intentando aprender JavaScript, Php, Asp y Ajax, consiga aprender lo suficiente de programación para poder ayudarte a ti o cualquiera de estos foros tanto como me habéis ayudado vosotros a mí.

Nada , continua trabajando y esperos verte por aquí ayudando a otros usuarios