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!