Crop billed med ASPimage

Hejsa

Jeg bruger den fantastiske komponent ASPImage til at Resize uploadede billeder på websites, og nu skal jeg have cropped et billed, det har jeg læst mig til at man kan med ASPImage.cropImage, men jeg er sådan lidt lost hvordan man gør det eftersom jeg ikke kan finde nogle eksempler på det!

Kan nogen fortælle mig hvordan jeg foreksempel får et billed resized til 200x150 pixels og herefter cropper den til 150x150 pixels?

Min kode jeg bruger til at resize med er :

        <%
        Dim ImageName
        Dim DummyPic
        'Create a Random Number called Random_Number
       
        Randomize
       
        'Set your Min and Max Values
       
        Random_Number_Min = 2
        Random_Number_Max = 9999
       
        'Call the RND Command
       
        Random_Number = Int(((Random_Number_Max-Random_Number_Min+1) * Rnd) + Random_Number_Min)
       
        DummyPic = "../../img/nopic.jpg"
       
        ImageName = "/admin/housetypeupload/" & rs("largeimage")
        if Len(ImageName) < 1 then
          ImageName = DummyPic
        end if
       
        ImageName = Server.MapPath(ImageName)
        'response.write(ImageName)
       
        '*** get width/height of original image
        Set objImageSize = Server.CreateObject("ImgSize.Check")                                                                                   
        objImageSize.FileName = ImageName
        ImageHeight = objImageSize.Height
        ImageWidth = objImageSize.Width
       
        If ImageHeight < 1 then ImageHeight = 1 end if
        If ImageWidth < 1 then ImageWidth = 1 end if 
       
       
        '*** calculate aspect ratio based on MINPIXELS
        If ImageHeight > ImageWidth Then
            NewHeight = (ImageHeight*(MINPIXELS/ImageWidth))  '###CInt
            NewWidth = MINPIXELS
        Else
            NewWidth = (ImageWidth*(MINPIXELS/ImageHeight))    '###CInt
            NewHeight = MINPIXELS
        End If
        Set objImageSize = Nothing
       
        '*** create thumbnail image
        Set Image = Server.CreateObject("AspImage.Image")
       
        Image.LoadImage(ImageName)
       
        newPicFileNameOnDisk = ""
        NewPicLogicalFileName = ""
        NewPicLogicalFileName = "/admin/housetypeupload/small/small_" & Random_Number & ".jpg"                       
        newPicFileNameOnDisk = Server.MapPath(NewPicLogicalFileName)
newPicFileNameOnDisk = trim(newPicFileNameOnDisk)
response.write(newPicFileName)
       
Image.FileName = newPicFileNameOnDisk
Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize NewWidth,NewHeight
Image.SaveImage
Set Image = Nothing
       
Response.Write "<img src=""" & newPicLogicalFileName & """ border=""1"" bordercolor=""#000000"">" %>

På forhånd Mange,Mange 1000 tak :-)

/Stig :-)