resim boyutlandıma

iyi geceler ben bir sorunum avr resim boyutlandırmada kod çalışıyor ama boyutlandırmada bir sorun var sadece wşdth yada sadece height yi boyutlandırıyor aynı anda ikisini birden yapmıyor.mesela aşağıda 2. boyutlandırmada sadece height yi yapıyor ama height ile width ın yerini değiştirince bu seferde sadece widthınkini boyutlandırıyor.kodu aşağıya yazıyorum yazdım edenler herkeze şimdediden teşekkürler.

<%
Function CRefNum()
strValue = Empty
strValue = strValue & Year(Date)
If Len(Month(Date)) = 1 Then
strValue = strValue & "0" & Month(Date)
Else
strValue = strValue & Month(Date)
End If
If Len(Day(Date)) = 1 Then
strValue = strValue & "0" & Day(Date)
Else
strValue = strValue & Day(Date)
End If
If Len(Hour(Time)) = 1 Then
strValue = strValue & "_0" & Hour(Time)
Else
strValue = strValue & "_" & Hour(Time)
End If
If Len(Minute(Time)) = 1 Then
strValue = strValue & "0" & Minute(Time)
Else
strValue = strValue & Minute(Time)
End If
If Len(Second(Time)) = 1 Then
strValue = strValue & "0" & Second(Time)
Else
strValue = strValue & Second(Time)
End If
CRefNum = strValue
End Function

Yol="c:/inetpub/wwwroot/denemeweb/images/"

Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Count = UpLoad.SaveTomemory
if Count<>1 then
response.Redirect("?dr=resim")
end if
For Each File In Upload.Files
if File.ImageType<>"GIF" and File.ImageType<>"JPG" and File.ImageType<>"PNG" then
File.Delete
uzanti=uzanti+1
elseif File.Size<1024 or File.Size>3072000 then
File.Delete
buyukluk=buyukluk+1
elseif File.ImageWidth>3000 then
File.Delete
genislik=genislik+1
elseif File.ImageHeight>3000 then
File.Delete
yukseklik=yukseklik+1
else
Dosya=TurkceKarakter(left(File.ExtractFileName,(Le n(File.ExtractFileName)-4)))
Dosya=Dosya & "_" & CRefNum() & "." & File.ImageType
Path=Yol & Dosya
File.SaveAs Path

Set JPEG=Server.CreateObject("PERSITS.JPEG" )
JPEG.Open Path
JPEG.Preserveaspectratio=True

if jpeg.OriginalWidth>500 then
jpeg.Width = 500
end if
jpeg.Save Yol & Dosya

jpeg.Width=150
jpeg.Height=120
jpeg.Save Yol & "s_"& Dosya
%>
<script language="javascript">
window.opener.document.Form1.KucukResim.value='<%= "images/Icerik/s_"& Dosya%>';
window.opener.document.Form1.BuyukResim.value='<%= "images/Icerik/"& Dosya%>';
window.close();
</script>
<%
end if
Next
if uzanti<>"" or buyukluk<>"" or genislik<>"" or yukseklik<>"" then
response.Redirect("?dr=resim")
end if
%>

Şu şekilde yaparsan boyutlandırır


Set JPEG=Server.CreateObject("PERSITS.JPEG" )
JPEG.Preserveaspectratio=True
Jpeg.Open File.Path
L = 50
If jpeg.OriginalWidth > jpeg.OriginalHeight Then
jpeg.Width = L
jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
jpeg.Height = L
jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If

"aspect ratio" veya "taraf oranını koruma" gibi kelimelerle problemin çözümü bulunabilir.