ASPImage Crop funktion virker ikke

Width    = Image.MaxX   
Height  = Image.MaxY

NHeight = 100
NWidth = 100

if Width>Height then 
              if (Height/Width)*100>80 then 
                    Height = NHeight 
                    Width = NWidth 
              else 
              Height = NHeight 
              Width = Height * Width / Height 
               
              chopoff=(Width-NWidth)/2 
              Image.Cropimage chopoff,0 , Width-chopoff, 100 
              end if 
          else 

              if (Width/Height)*100>80 then 
                    Height = NHeight 
                    Width = NWidth 
              else 

 
              Width = NWidth 
              Height = Height * Width / Width 
           
              chopoff=(Height-100)/2
              Image.Cropimage 0, chopoff, NWidth, Height-chopoff 
             
        end if       
end if



Image.SaveImage


Hvorfor sker der intet jeg har prøvet 100 ting men uanset hvad jeg gør bliver original billedet gemt uden nogen crop

luk

øhh - umiddelbart ser det ud som om at du ikke gemmer billedet, med Image.FileName

f.eks -

filnavn = "billed.jpg"

Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage server.mappath("\upload\" & filnavn & "")
Image.JPEGQuality = 80
Width    = Image.MaxX   
Height  = Image.MaxY

NHeight = 100
NWidth = 100

if Width>Height then 
              if (Height/Width)*100>80 then 
                    Height = NHeight 
                    Width = NWidth 
              else 
              Height = NHeight 
              Width = Height * Width / Height 
               
              chopoff=(Width-NWidth)/2 
              Image.Cropimage chopoff,0 , Width-chopoff, 100 
              end if 
          else 

              if (Width/Height)*100>80 then 
                    Height = NHeight 
                    Width = NWidth 
              else 

 
              Width = NWidth 
              Height = Height * Width / Width 
           
              chopoff=(Height-100)/2
              Image.Cropimage 0, chopoff, NWidth, Height-chopoff 
             
        end if       
end if
Image.ImageFormat = 1
Image.FileName = Server.MapPath("\upload\billed.")
Image.SaveImage
Set Image = Nothing

det fandt jeg ud af igår det var derfor jeg lukkede men jeg glemte desværrer at skrive jeg havde fundet svaret