Persits.Upload Resim boyutlandırma?

Merhaba böyle bir resim upload kodum var ama resim boyutlandırma yapamadım birtürlü resmi boyutlantıdırmıyor neresinde yanlış yapmış olabilirim?

değerli yardımlarınızdan dolayı şimdiden teşekkür ederim.

<%
if request.QueryString("islem")="ekle" then
Set Upload = Server.CreateObject("Persits.Upload")
Path = Server.MapPath("../upload/logo-resim/")
Count = Upload.Save(Path)
If Count = 0 Then
Response.Write("Resim Seç")
Else
Set File = Upload.Files(1)
If File.ImageType <> "UNKNOWN" Then
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open(File.Path)
Jpeg.Width = 1024
Jpeg.Height = (Jpeg.OriginalHeight * Jpeg.Width) / Jpeg.OriginalWidth
Jpeg.Save File.Path
Set Jpeg = Nothing
Set yukle = server.CreateObject("ADODB.Recordset")
sql = "Select * From logolar "
yukle.Open sql, bag,3,2
yukle.addnew
yukle("aciklama") = Upload.form("aciklama" )
yukle("resimadres") = "upload/logo-resim/" & File.ExtractFileName
yukle.update
End If
End If
End If
%>

Jpeg.Open Img.Path

Jpeg.Height= 600
Jpeg.Width= 800

Jpeg.Save Server.Mappath("../urunresim/") & "\" & GetImageTitle

'LOGO BASMA BAŞLANGICI
Set Jpeg = Server.CreateObject("Persits.Jpeg" )
Path = Server.MapPath("../urunresim/" & GetImageTitle & "" )
Jpeg.Open Path
Set Jpeg1 = Server.CreateObject("Persits.Jpeg" )
Jpeg1.Open Server.MapPath("../images/basim.jpg" )
Jpeg.Canvas.DrawPNG 46, 46, Jpeg1
Jpeg.SendBinary
Jpeg.Canvas.DrawImage 0,500, Jpeg1, 0.4
'LOGO BASMA BİTİŞİ
Jpeg.Save Server.MapPath("../urunresim/" & GetImageTitle & "" )
File.Delete

bu kodlarla çalışıyorum ben işine yarayacaktır.

teşekkürler aslında benim kod çalışıyormuş ama form post daki url resmi boyutlandırmadan yüklediğim dosyada kalmış o yüzden bir türlü çözemmeişim. afa takıldımı göremiyor basit bir şeyi.