Resize

Hej alle

Jeg har den nedenstående kode, til at upload billeder, og jeg vil gerne have den kommenterede kode med aspimage og uploadnings koden sat sammen, så den først laver om på billedets størrelse, altså komprimerede billedet.
Hvis billedet er større end 300 px i width så skal det laves om til 300, og ellers skal der ikke gøres noget ved det...

Thomas

<%
    Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.OverwriteFiles = False
    Upload.SetMaxSize 3000000, True
   
    Count = Upload.Save(Server.Mappath("billeder/"))
   
    If Err <> 0 or Count = 0 Then
        If Err <> 0 Then theresponse = "Fejl: " & Err.Description Else theresponse = "Fejl: Ingen fil(er) valgt."
    else
       
        Set File = Upload.Files(1)

    end if
   
   
    'Set Image = Server.CreateObject("AspImage.Image")
    'Image.LoadImage "sti_til_billedet"
    'Image.GetImageFileSize "sti_til_billedet", X, Y
    'Image.MaxX = X
    'Image.MaxY = Y
    'ResizedY = (ResizedX / Image.MaxX) * Image.MaxY
    'Image.ResizeR ResizedX, ResizedY
    'Image.SaveImage
%>