Dimentioner på images

det skal loades op først og derefter kan du hente det og scaler og derefter gemme det. Her bruges komponent ASPImage
Set FS = CreateObject("Scripting.FileSystemObject")
filename = "dit billed"
  FileName_2 = Server.MapPath ("evt din billedmappe/"&filename)

  Set Image = Server.CreateObject("AspImage.Image")

  Image.LoadImage(FileName_2)
'du kan sætte JPEGQuality som du ønsker
  Image.JPEGQuality = 85
 
  '----Sætter tjekkes/rettes størrelse----
 
  Image_Height = Image.MaxY
  Image_Width = Image.MaxX
 
  If Image_Width > 500 then
      Ny_bredde = 500
    Ny_Hojde = (Image_Height/(Image_Width/500))
    if Ny_Hojde > 450 then
        Ny_Hojde_1 = 450
        Ny_bredde_1 = (Ny_bredde/(Ny_Hojde/450))
        Image.resize Ny_bredde_1, Ny_Hojde_1
        Else
        Image.resize Ny_bredde, Ny_Hojde
    end if
    Var_temp = 1
  End if
 
  If not Var_temp = 1 then 
      If Image_Height > 450 then
        Ny_Hojde_1 = 450
        Ny_bredde = (Image_Width/(Image_Height/450))
        Image.resize Ny_bredde, Ny_Hojde_1
      End if
  End if
  '----Sætter rette størrelse slut----
  strSfilename = split(Filename,".")
  nyt_navn = "test_" & strSfilename(0) & ".jpg"
'hvis der skal være med et ny navn
  Image.Filename = Server.MapPath ("evt din billedmappe/" & nyt_navn)
  Nyt_filnavn = Server.MapPath ("evt din billedmappe/" & nyt_navn)

'hvis det skal overskrive den gamle fil
  Image.Filename = Server.MapPath ("evt din billedmappe/" & strSfilename(0) & ".jpg")
  Nyt_filnavn = Server.MapPath ("evt din billedmappe/" & strSfilename(0) & ".jpg")

  Image.SaveImage
  Set Image = nothing

set file = nothing
set fso = nothing