1.
jag laddar upp bilder och förminskar dom med detta
problemet är att bilderna kan bli hur höga som helst, bredden funkar
jag vill alltså ha en maxbredd på 440 och en maxhöjd på 440

problemet är även att mindre bilder förstoras upp till 440

[code]Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage(Server.MapPath("upload/" & File.Filename ))
Image.FileName = (Server.MapPath("upload/" & File.Filename ))
Image.ImageFormat = 1
Image.JPEGQuality = 90
divX = Image.MaxX / 440
divY = Image.MaxY / 440
intXsize = Image.MaxX / divx
intYSize = Image.MaxY / divx
Image.ResizeR intXSize,intYSize[/code]

2. efter detta så gör jag en thumb bild med denna kod
här skulle jag villja få ut en cropad bild i storleken 100x100
det ser inte så snyggt ut att göra om en bild som är t.ex 800x200
till 100x100

[code]Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage(Server.MapPath("upload/" & File.Filename ))
Image.FileName = (Server.MapPath("upload/thumbs/" & File.Filename ))
Image.ImageFormat = 1
Image.JPEGQuality = 90
divX = Image.MaxX / 100
divY = Image.MaxY / 100
intXsize = Image.MaxX / divx
intYSize = Image.MaxY / divy
Image.ResizeR intXSize,intYSize[/code]


Någon som har en lösning ?

/norcomp

gör en if-sats innan ResizeR

if Bild.bredd > 440 then
Image.ResizeR värden...

Hur får jag ut bredd & höjd ?

Jag har provat med saker i den här stilen och det funkar ej

If Jpeg.OrginalHeight> Jpeg.OrginalWidth then

men jpeg.original funkar ej med aspimage

Löste det så här, tror det fungerar iaf.

Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage(Server.MapPath("upload/" & File.Filename ))
Image.FileName = (Server.MapPath("upload/" & File.Filename ))
maxbredd = 440
maxhojd = 440
bredd = Image.MaxX
hojd = Image.MaxY

If hojd> bredd AND hojd> maxhojd then
Image.ImageFormat = 1
Image.JPEGQuality = 90
divX = Image.MaxX / 440
divY = Image.MaxY / 440
intXsize = Image.MaxX / divy
intYSize = Image.MaxY / divy
Image.ResizeR intXSize,intYSize
Image.SaveImage
Set Image = Nothing

Else
If bredd> hojd AND bredd> maxbredd then
Image.ImageFormat = 1
Image.JPEGQuality = 90
divX = Image.MaxX / 440
divY = Image.MaxY / 440
intXsize = Image.MaxX / divx
intYSize = Image.MaxY / divx
Image.ResizeR intXSize,intYSize
Image.SaveImage
Set Image = Nothing

Else
Image.ImageFormat = 1
Image.JPEGQuality = 90
Image.SaveImage
Set Image = Nothing

End If
End If