Tamaño de imagen - Problema de logica

[sjam7]

ahorita lo tengo asi:

Código ASP:

<&#37;
Response.Expires = 0
imagen=request("imagen")
MaxAncho=request("ancho")
MaxAlto=request("alto")
 
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("\"&imagen)
 
Ancho = Jpeg.OriginalWidth
Alto = Jpeg.OriginalHeight
 
difAncho =  Ancho - MaxAncho
difAlto = Alto - MaxAlto
 
    if difAncho > difAlto then
        Jpeg.Width = (MaxAncho * Alto) / Alto
    else        
        Jpeg.Height = (Ancho * MaxAlto) / Ancho 
    end if
 
'Jpeg.Grayscale 1
Jpeg.Quality=10
Jpeg.SendBinary
%>
 

pero no, me descuadra todo