---

Jeg bruger normalt Imagesize til at skalerer billeder med ved visning
vha. ASPImage, men nu står jeg og skal bruge min løsning på et
webhotel uden Imagesize, så hvordan får jeg nu skaleret mine billeder
proportionalt ?

/Goose
--
<URL:mailto:webmaster@goose.dk>
<URL:http://www.goose.dk>

---

On Sat, 06 Oct 2001 16:52:47 +0200, Michael Jakobsen <admin@goose.dk>
wrote:

>Jeg bruger normalt Imagesize til at skalerer billeder med ved visning
>vha. ASPImage, men nu står jeg og skal bruge min løsning på et
>webhotel uden Imagesize, så hvordan får jeg nu skaleret mine billeder
>proportionalt ?

Newer mind, jeg har fundet en løsning

/Goose
--
<URL:mailto:webmaster@goose.dk>
<URL:http://www.goose.dk>

---

On Sat, 06 Oct 2001 22:17:40 +0200, Michael Jakobsen <admin@goose.dk>
wrote:

>Newer mind, jeg har fundet en løsning

Hvilken?

Mvh. Jørn

--
Jørn Andersen
Brønshøj

---

On Sun, 07 Oct 2001 01:57:42 +0200, Jørn Andersen <jorn.a@email.dk>
wrote:

>Hvilken?
Jeg har brugt nedenstående løsning, det er ikke sikkert den er
optimal, men den virker til mit behov.

<%
Const MINPIXELS = 150
Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage "d:\serversti\foto.bmp"
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX
NewHeight = Cint(ImageHeight*MINPIXELS/ImageWidth)
NewWidth = MINPIXELS
Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage "d:\serversti\foto.bmp"
Image.ImageFormat = 1
Image.JPEGQuality = 90
Image.Resizer NewWidth,NewHeight
response.binarywrite Image.Image
Set Image = Nothing
%>


/Goose
--
<URL:mailto:webmaster@goose.dk>
<URL:http://www.goose.dk>