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
%>