aspjpeg thumb???

[diegof18]

hola lo que quier que haga es que me guarde un thumb y la imagen original dentro del mismo directorio especificado mas abajo. en cuyo caso si se puede que la imagen original tambien se le fuerse dimensiones fijas. pero seguro no se pueden crear 2 objetos como estoy intentando alguien que me ayude por favor!!!

<!--#include file="connect.inc"-->
<%
'identificar la propiedad
txtid=request.QueryString("txtid")
'crear el objeto upload.
Set Upload = Server.CreateObject("Persits.Upload")
' el objeto para dimensionarlo
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' limitar el tamaño maximo del archivo, en memoria.
Upload.SetMaxSize 100000, True
'cancela que se sobreescriban los archivos del mismo nombre.(nota:averiguar si funciona con este metodo)
Upload.OverwriteFiles = False
' salvar a la memoria. path omitido.
Upload.Save

' Chekear si fue cargado algun archivo.
Set File = Upload.Files("FILE1")
If Not File Is Nothing Then
For Each File in Upload.Files
' obtener el nombre del archivo.
Filename = file.Filename
' chequear si el archivo existe en la carpeta.
If Upload.FileExists("d:\xvrt\rehdicon.com\html\img\p romo" & txtid &"\fotos\" & filename ) Then
msj = "El archivo Existe en el servidor"
response.Write(msj & "<br>")
'response.Redirect("galeria.asp?txtid=" & txtid & "&msj=" & msj)
Else
' sino guardar el archivo
Conexion.Execute("INSERT INTO GALERIA(ID_PROMOCION, FOTO, FOTITO) VALUES ('"& txtid &"', '"& File.Filename &"', 'small_" & File.Filename &"' )" )
File.SaveAs "d:\xvrt\rehdicon.com\html\img\promo" & txtid &"\fotos\" & File.Filename
Jpeg.Open File.Path
Scale = Upload.Form("Scale")
Jpeg.Width = 26
Jpeg.Height = 26
Jpeg.Save Server.MapPath("..\img\promo" & txtid &"\fotos\") & "small_" & File.FileName
msj = "El Archivo se guardo en el servidor."
response.Write(msj & "<br>")
'response.Redirect("galeria.asp?txtid=" & txtid & "&msj=" & msj)
End If
Next
Else ' ningun Archivo Seleccionado.
msj = "No seleciono ningun archivo."
response.Redirect("galeria.asp?txtid=" & txtid & "&msj=" & msj)
End If

%>