aspimage virker ikke

Hvad indeholder variablen fil2

D:\websider\global\c-cc.dk\c-cc.dk\www\grafik\varer\test_t.jpg

undskyld forsinkelsen skulle lige på tanken efter smøger

slet ingen som kan hjælpe mig ?

size = 70
Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage D:\websider\global\c-cc.dk\c-cc.dk\www\grafik\varer\test_t.jpg
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX
NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage D:\websider\global\c-cc.dk\c-cc.dk\www\grafik\varer\test_t.jpg
Image.FileName = D:\websider\global\c-cc.dk\c-cc.dk\www\grafik\varer\test_t.jpg
Image.ImageFormat = 1
ProgressiveJPEGEncoding = true
Image.JPEGQuality = 80
Image.ResizeR NewWidth,NewHeight
Image.SaveImage
Set Image = Nothing

/Goose

Se evt.:
http://www.actionjackson.com/articles/19991119/

/Goose

Hvis mit første bud ikke virker, så prøv denne:

size = 70
Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage "D:\websider\global\c-cc.dk\c-cc.dk\www\grafik\varer\test_t.jpg"
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX
NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage "D:\websider\global\c-cc.dk\c-cc.dk\www\grafik\varer\test_t.jpg"
Image.FileName = "D:\websider\global\c-cc.dk\c-cc.dk\www\grafik\varer\test_t.jpg"
Image.ImageFormat = 1
ProgressiveJPEGEncoding = true
Image.JPEGQuality = 80
Image.ResizeR NewWidth,NewHeight
Image.SaveImage
Set Image = Nothing

/Goose

takker, men nu har jeg et lille tillægsproblem... det må maks være 70 på den største led, men uden at det mister propertionerne...

Jamen så må du jo bare checke om bredden er større end højden, er den det skal den udfører det ene, er det ikke tilfældet skal den udfører noget andet.

/Goose

Står forøvrigt også på den side jeg linkede til længere oppe, så prøv og kig på den side så løser det sig nok det hele ...

/Goose

If ImageHeight > ImageWidth Then
    NewHeight = Cint(ImageHeight*size/ImageWidth)
    NewWidth = size
Else
    NewWidth = Cint(ImageWidth*size/ImageHeight)
    NewHeight = size
End If

-så får du ikke mere for den 25 øre :o)

/Goose

thanx

Det var så lidt

/Goose