Inserta imagen pero luego no se ve

[piskui]

Hola tengo un codigo que te deja buscar una imagen, poner un titulo e insertarla en una pagina ASP, el codigo funciona y lo inserta, pero en la pagina ASP no se ve la imagen.....aunque si voy al editor puedo ver que la imagen si esta adjunta. Pero en la pagina no se ve, porque puede ser esto? supongo que sea una tonteria, xq sino da ningun error al añadirla....xq luego no se vera?

Gracias por la ayuda, un saludo!

[JuanRAPerez]

poskui

si la foto la almacenas en la base de datos tienen que usar
http://www.asptutor.com/asp/vart.asp?id=54

hay gente a la que le ha dado errores, puedes hacer una búsqueda en este foro (ASP) y encontraras cosas que se le han sugerido a los usuarios

suerte

[piskui]

He descubierto que la imagen si la sube al servidor, pero lo que no crea es el thumnail (vista en miniatura) que es sobre la que hacemos click y vemos la imagen en grande.
¿por qué puede ser? antes en el otro servidor si que lo creaba....

[JuanRAPerez]

por ahí hubiésemos empezado

permisos de escritura podría ser, no te da ningún error el código?


verifica la parte de programación en donde se hace la miniatura, y trata de identificar un posible fallo

suerte

[Shiryu_Libra]

este click que haces para mirar la foto en tamaño original, lo produce un javascript para verlo en un pop up??

si es asi, verifica el codigo del javascript, te ha de estar dando error de que no encuentra la imagen

no es asi... pon tu codigo

[piskui]

Permisos de escritura no son porque la imagen en grande si sube al servidor y se puede ver, lo que pasa es que no crea el Thumbnail y encima el procedimiento que crea la miniatura es enorme, recibe 11 parametros.....como para encontrar el fallo....
No da ningun error se muestra pero no se ve la foto en miniatura y en consecuencia la foto en el popup.

si llama a un javascript para verlo como popup, mirare ahora el codigo para ver si es mas facil localizar el fallo ahi.
Al poner el raton sobre la imagen en miniatura pone javascript:AbrirImagenVisor(--,--,--,-,--,--,--,--)
pero claro esto de AbrirImagenVisor solo me aparece cuando esta la miniatura, en las que no aparece no puedo llamar al javascript, entonces se descartaria que fuese del javascript???? sino de la funcion que crea la miniatura.

gracias por vuestra ayuda.

[Shiryu_Libra]

en este caso, la explicacion seria que no llama la funcion thumbnail, entonces debes buscar por ese lado

ahora, y si se realiza el procedimiento del thumbnail? por que no manda parametros a la funcion javascript AbrirImagenVisor

probablemente todo sea por falta de parametros

[piskui]

La llamada ala funcion la hace en esta linea y la manda estos parametros:

Código PHP:

      RecursoSubibleConThumnailActualiza true, "Visor", "", "", ValidaPasoDatos("TImagen",""), ValidaPasoDatos("IImagen",""), prefijoRS & "CambiaRec " & IDMS & "," & elID & ",", prefijoRS & "CambiaRecThumnail " & IDMS & "," & elID & ",", DameConfiguracion("VisorAnchoMaxThumnail",100),DameConfiguracion("VisorAltoMaxThumnail",100), RellenaConCeros(elID,5) & "_" 
   

y el procedimiento es el siguiente: la cabecera:

Código PHP:

  public sub RecursoSubibleConThumnailActualiza(ByVal EsPrivado, ByVal NombreCarpeta, ByVal IDRecAnterior, ByVal IDRecThumnailAnterior, ByVal TipoSeleccionado, ByVal Chorizo, ByVal ProcCambiaRec, ByVal ProcCambiaRecThumnail, ByVal AnchoMax, ByVal AltoMax, ByVal Prefijo) 
   

he estado mirando y estoy un poco liado con las "" y las ',' nose si hay parámetros de mas, podeis echarlo un ojo a ver si los parametros estan bien o hay mas de los que necesita el procedimiento?
gracias.

[JuanRAPerez]

si la miniatura es creada (guardada en el directorio X) deverias de tratar de poner un response.end y verificar que lleve los parámetros o tratar de usar en resume next o algo que te pueda identificar si lleva todo lo que tiene que llevar

suerte

[Shiryu_Libra]

viendolo de esta forma no parece haber error

Código HTML:

RecursoSubibleConThumnailActualiza     true, &_
                                    "Visor", &_
                                    "", &_
                                    "", &_
                                    ValidaPasoDatos("TImagen",""), &_
                                    ValidaPasoDatos("IImagen",""), &_
                                    prefijoRS & "CambiaRec " & IDMS & "," & elID & ",", &_
                                    prefijoRS & "CambiaRecThumnail " & IDMS & "," & elID & ",",&_
                                    DameConfiguracion("VisorAnchoMaxThumnail",100),&_
                                    DameConfiguracion("VisorAltoMaxThumnail",100),&_
                                    RellenaConCeros(elID,5) & "_"

public sub RecursoSubibleConThumnailActualiza(
                                    ByVal EsPrivado,
                                    ByVal NombreCarpeta,
                                    ByVal IDRecAnterior,
                                    ByVal IDRecThumnailAnterior,
                                    ByVal TipoSeleccionado,
                                    ByVal Chorizo,
                                    ByVal ProcCambiaRec,
                                    ByVal ProcCambiaRecThumnail,
                                    ByVal AnchoMax,
                                    ByVal AltoMax,
                                    ByVal Prefijo) 

sera acaso alguno de los parametros que no va bien vinculado?
intenta un response.write sobre los parametros para encontrar el error
algo asi mira:

Código HTML:

response.Write     true, &_
                "Visor", &_
                "", &_
                "", &_
                ValidaPasoDatos("TImagen",""), &_
                ValidaPasoDatos("IImagen",""), &_
                prefijoRS & "CambiaRec " & IDMS & "," & elID & ",", &_
                prefijoRS & "CambiaRecThumnail " & IDMS & "," & elID & ",",&_
                DameConfiguracion("VisorAnchoMaxThumnail",100),&_
                DameConfiguracion("VisorAltoMaxThumnail",100),&_
                RellenaConCeros(elID,5) & "_"

verifica los que te escribe, y si en realidad te escribe lo que ocupas

parece todo bien, que hara falta??

[piskui]

lo he estado mirando y creo que lo que pasa es que no crea el thumnail, la miniatura, xq en el servidor me deja escribir en la carpetal temporal...y la vista en grande si la pone en su carpeta pero no crea la miniatura, la funcion que crea la miniatura es esta:
Dim Rec : Set Rec = new claseRecurso
Dim RecThumnail:Set RecThumnail = new claseRecurso
Set RecThumnail = CreaRecThumnail(Rec, NombreCarpeta, AnchoMax, AltoMax)

Código PHP:

  Function CreaRecThumnail(ByRef Recurso, ByVal NombreCarpeta, ByVal AnchoMax, ByVal AltoMax)
 
    Dim RecThumnail : Set RecThumnail = new claseRecurso
    Dim RutaImagen : RutaImagen = Request.ServerVariables("APPL_PHYSICAL_PATH") & "Temporal\" & Recurso.campoURL
    Dim Extension : Extension = LCase(Right(Recurso.campoURL, Len(Recurso.campoURL) - InStrRev(Recurso.campoURL, ".")))
    Dim fsx
    
    Dim suAncho, suAlto
    if ("" & Recurso.campoTipoRecurso = RecursoTipoImagen & "") then 'Creamos un thumnail
 
        'Creamos el fichero en el temporal [B]NO ME LO CREA!![/B]        On error resume next
        Set fsx = Server.CreateObject("Scripting.FileSystemObject")  
        Dim objImage
        set objImage = Server.CreateObject("GflAx.GflAx")
        objImage.LoadBitmap RutaImagen 'cargamos la imagen inicial, grande.
        suAncho = objImage.Width
        suAlto = objImage.Height
        Call EscalaValoresImagen(suAlto,suAncho,AltoMax,AnchoMax)         if (err.number) = 0 then
            If Extension = "jpg" Or Extension = "jpeg" Or Extension = "jpe" Then
                objImage.Resize Cint(suAncho), Cint(suAlto)
                objImage.Sharpen 20 ' imagen nítida
                objImage.SaveFormat = 1 ' formato JPEG 
                objImage.SaveJPEGQuality = 85                 objImage.SaveBitmap Request.ServerVariables("APPL_PHYSICAL_PATH") & "TemporalThumnail_" & Recurso.campoURL
            Else
                'copia archivo del origen (RutaImagen) a destino Temporal/thumnail_ NO LO HACE!!
                fsx.CopyFile RutaImagen, Request.ServerVariables("APPL_PHYSICAL_PATH") & "TemporalThumnail_" & Recurso.campoURL
            End If
        End if
        Set objImage = Nothing
        Set fsx = Nothing
        On error goto 0
 
        RecThumnail.campoURL = "Thumnail_" & Recurso.campoURL
        RecThumnail.campoTipoRecurso = RecursoTipoImagen
        RecThumnail.campoFormaRecogida = Recurso.campoFormaRecogida
        RecThumnail.campoAncho = Cint(suAncho)
        RecThumnail.campoAlto = Cint(suAlto)
        RecThumnail.campoHSpace = Cint((AnchoMax - Cint(suAncho)) / 2) ' Para guardar una proporción con el resto de Thumb...
        RecThumnail.campoVSpace = Cint((AltoMax - Cint(suAlto)) / 2) ' Para guardar una proporción con el resto de Thumb...
        RecThumnail.campoNombre = Recurso.campoNombre
        RecThumnail.campoDescripcion = Recurso.campoDescripcion
        RecThumnail.campoOtrosDatos = Recurso.campoOtrosDatos
        RecThumnail.campoPrivado = Recurso.campoPrivado
 
        Set ObjImage = Nothing 
   

veis algun problema? no entiendo xq puede ser, este codigo yo creo que s correcto.
gracias por vuestra ayuda!