Ver Mensaje Individual
  #22 (permalink)  
Antiguo 25/12/2008, 17:00
haga41
 
Fecha de Ingreso: junio-2008
Mensajes: 145
Antigüedad: 16 años, 10 meses
Puntos: 0
Respuesta: asp subir archivos o foto

Hola otra vez,

He estado mirando temas similares y he visto este:
http://www.forosdelweb.com/f15/agreg...upload-257830/

Haciendo lo que pone ahí y adaptandolo a mi caso me sirve para subir las 2 fotos o no subir ninguna foto pero me da error si sólo subo una de ellas. La persona que abrió ese post tiene el mismo problema.

Este es mi código ahora mismo:
Código asp:
Ver original
  1. <!--#include file="includes/xelupload.asp"-->
  2.      <%
  3.         id = session("id")
  4.         'Primero subimos el fichero:'
  5.         Dim up, objFich, objFich2
  6.         set up = new xelUpload
  7.         up.Upload()
  8.          
  9.        
  10.         if up.Ficheros.Count = 0 then
  11.         Response.Write("¡No has subido ningún fichero!")
  12. else    
  13.    
  14.         if (up.Ficheros("fichero") = true) then
  15.             set objFich = up.Ficheros("fichero")
  16.             nombreFoto=objFich.nombre
  17.             objFich.Guardar(Server.MapPath("caratulas/"))
  18.         'else
  19.         'If ISObject(up.Ficheros.("fichero2")) then '  
  20.             'set objFich2 = up.Ficheros("fichero2")
  21.             'nombreFoto2=objFich2.nombre
  22.             'objFich2.Guardar(Server.MapPath("miniaturas/"))
  23.        
  24.         end if
  25.         end if
  26. %>

Y al final

Código asp:
Ver original
  1. <%
  2. if (len(nombreFoto) > 0) then
  3.             tabla.fields("Foto") = nombreFoto
  4.         end if
  5.        
  6.        ' if (len(nombreFoto2) > 0) then
  7.         '    tabla.fields("Miniatura") = nombreFoto2
  8.         'end if
  9.                
  10.         tabla.update
  11.         tabla.close        
  12.         conexion.close
  13.         set up = nothing
  14.         Set tabla = Nothing
  15.         Set conexion = Nothing    
  16.        
  17.         %>  
  18.         Ficha actualizada. <a href="Adminficha.asp">Continuar</a>.

De esta forma si subo el primer fichero me dice en la línea en la que sale esto:
if (up.Ficheros("fichero") = true) then


Error de Microsoft VBScript en tiempo de ejecución (0x800A01B6)
El objeto no acepta esta propiedad o método

Última edición por haga41; 25/12/2008 a las 17:51