Persits - scaler ned hvis billede større end 350 pixels
Jeg har et forum, og gider ikke have det smadret af alt for store billeder derfor har jeg lavet detteSet Image = Server.CreateObject("AspImage.Image")
Image.AutoSize = true
Image.LoadImage(server.mappath("\cygshop\forum\billeder\" & filnavn))
intXSize = 350
intYSize = (intXSize / Image.MaxX) * Image.MaxY
Image.ResizeR intXSize, intYSize
'Image.AddImageTransparent "d:\home\jonsendk\www\cygshop\billeder\overlay.jpg", 300, 0, vbWhite
Image.FileName = server.mappath("\cygshop\forum\billeder\" & filnavn)
Image.SaveImage
Set Image = nothing
men hvis nu billedet er mindre end 350 skal det ikke laves større - hvordan gøres dette ?
/cygnet
