Beregne ny højde og bredde på billede

Jeg bruger denne kode til at beregne den nye højde og/eller bredde på et billede:

width = Image.Width
height = Image.height

maxwidth = 200
maxheight = 150

If width > maxwidth Then
width = maxwidth
height = Int(height*maxwidth/width)
End If

If height > maxheight Then
width = Int(width*maxheight/height)
height = maxheight
End If

Response.Write width & "px bred"
Response.Write height & "px høj"

De fleste billeder ser også godt nok ud (billeder der er højere end de er bredde), men nogle af dem bliver trykket lidt sammen i bredden så det ser forkert ud (omkring 10-20px) og hvis billederne er under begge max størrelser så bliver målene byttet om så højden bliver til bredden og modsat.

Hvad er der lige galt i denne formel?