Opplasting av billede, noen små feil ang bredde / høyde

Laster opp bilde.

Hvis bilde er større en 300 pixler i bredde eller høyde så skal den som er størst settes til 300 pixler.

Hvis ikke skal bilde bare lastes opp orginalt.

Hvis bredden eller høyden blir satt på bilde så skal den sjekke om du setter større bredde eller høyde enn orginal bilde. Hvis ikke større lagre bilde i ny høyde / bredde.

Scriptet jeg har lagd virker nesten som det skal bortsett fra at man ikke får satt en mindre høyde eller bredde på det.

'*******************************************
'CREATE IMAGE START
'*******************************************
If Upload.Form("ResizeOption") = "O" Then
   
    If strImageWidth > 300 OR strImageHeight > 300 Then
        If strImageWidth < strImageHeight Then
            jpeg.Open( File.Path )
            jpeg.Height = "300"
            jpeg.Width = jpeg.OriginalWidth * jpeg.Height / jpeg.OriginalHeight
            jpeg.Quality = 60
            SavePathWaterMark = Upload.Form("inpcatid") & "\" & File.ExtractFileName
            File.Delete
            jpeg.Save SavePathWaterMark                       
        Else
            jpeg.Open( File.Path )
            jpeg.Width = "300"
            jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
            jpeg.Quality = 60
            SavePathWaterMark = Upload.Form("inpcatid") & "\" & File.ExtractFileName
            File.Delete
            jpeg.Save SavePathWaterMark
        End if
    Else
        jpeg.Open( File.Path )
        jpeg.Quality = 60
        SavePathWaterMark = Upload.Form("inpcatid") & "\" & File.ExtractFileName
        File.Delete
        jpeg.Save SavePathWaterMark
    End if

Elseif Upload.Form("ResizeOption") = "B" Then
        jpeg.Open( File.Path )
                                           
        If Upload.Form("NewWidth") > strImageWidth Then
            jpeg.Width = strImageWidth
        Else
            jpeg.Width = Upload.Form("NewWidth")
        End if
       
        jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
        jpeg.Quality = 60
        SavePathWaterMark = Upload.Form("inpcatid") & "\" & File.ExtractFileName
        File.Delete
        jpeg.Save SavePathWaterMark
       
Elseif Upload.Form("ResizeOption") = "H" Then
       
        jpeg.Open( File.Path )
                                           
        If Upload.Form("NewHeight") > strImageHeight Then
            jpeg.Height = strImageHeight
        Else
            jpeg.Height = Upload.Form("NewHeight")
        End if                       

        jpeg.Width = jpeg.OriginalWidth * jpeg.Height / jpeg.OriginalHeight
        jpeg.Quality = 60
        SavePathWaterMark = Upload.Form("inpcatid") & "\" & File.ExtractFileName
        File.Delete
        jpeg.Save SavePathWaterMark
       
End if
'*******************************************
'CREATE IMAGE END
'*******************************************