Ş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