Förminska bild i pixlar och kB med AspSmartImage

Bilder som är 1024x768 och 150kB stora förminskas förvisso
till 960x720 pixlar, men de är fortfarande 140kB stora.
Någon som ser ett uppenbart misstag?

<%

Set xSmartImage = Server.CreateObject("aspSmartImage.SmartImage")
xSmartImage.OpenFile (Request("dabild"))

OriginalWidth = xSmartImage.OriginalWidth

If OriginalWidth > 960 Then
xSmartImage.Resample 960, 0
End If

 komp = 101
Size = xSmartImage.Size
Do While Size \> 102400
komp = komp - 1
xSmartImage.Quality = komp	
Size = xSmartImage.Size
Loop

xSmartImage.AddImage "bonstamp.gif", "RIGHT", "BOTTOM"
xSmartImage.SaveFile (Request("dabild"))

%>