Subir miniatura con aspjpeg pero no como binario

[estoquera44]

Buenas tardes,

estoy subiendo una imagen al servidor y su enlace a una base de datos mediante aspupload pero tambien quisiera generar una miniatura con aspjpeg y poderla subir de la misma forma, no como dato binario dentro de la base de datos, sino como una imagen con un enlace relativo en la base de datos.

La imagen en tamaño normal no tengo problemas para subirla bien pero la miniatura se si puedo subirla asi o tengo que conformarme con datos binarios.

Alguien tiene idea de como hacerlo???

Gracias.

[JuanRAPerez]

Set Upload = Server.CreateObject("Persits.Upload")


' para el progresid
Upload.ProgressID = Request.QueryString("PID")
Path = Server.MapPath("../images/DirectorioMiniaturas/")

Count = Upload.Save

If Count = 0 Then
mensajeupload = "no selecciono ni una imagen."
ColorFondoCelda = "#FF0000"
Response.End
Else

Set File = Upload.Files(1)

Set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.OpenBinary( File.Binary )
scale = 80
jpeg.Width = jpeg.OriginalWidth * scale / 100
jpeg.Height = jpeg.OriginalHeight * scale / 100

' guardar la imagen menos pesada
SavePath = Path & "\pequenas\id__" & mivariableID & "__" & File.ExtractFileName

If UCase(Right(SavePath, 3)) <> "JPG" Then
SavePath = SavePath & ".jpg"
End If

If UCase(Right(SavePathBase, 3)) <> "JPG" Then
SavePathBase = SavePathBase & ".jpg"
End If

jpeg.Save SavePath

checa ese codigo..

suerte

[trasgukabi]

Qué manía con no leer. De acuerdo con que los manuales son altamente contagiosos ; pero, hermanos, un poco de espíritu aventurero nunca viene mal...
Hay que ver lo que me quiere a mí la gente en mi barrio....(mojinos)
Perdón. Es que hoy es mi cumpleaños....

[estoquera44]

Fantastico.

Gracias JuanRa, he conseguido lo que queria gracias a tu codigo.