Tja!

Jag har gjort en funktion där man kan storleksändra uppladdade bilder direkt i browsern. Använder mig av AspImage men när jag ändrar storleken och sparar den nya filen på disekn så läggs det till en vit/transparant rand i botten och till höger.

Koden jag använder ser ut så här:

<code>
filename = Request.Querystring("filename")
strScale = Request.Querystring("scale")

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


Dim strOrigImg
strOrigImg = filename


Dim strNewSizeName
strNewSizeName = filename


Dim strOrigImgFullPath
strOrigImgFullPath = Server.MapPath("mapp")&"\"


Dim strNewSizeFullPath
strNewSizeFullPath = Server.MapPath("mapp")&"\"

Dim strOriginal, strNewSize, ResizedX,ResizedY
strOriginal = strOrigImgFullPath & strOrigImg
strNewSize = strNewSizeFullPath & strNewSizeName


MyImage.LoadImage strOriginal


ResizedX = strScale
MyImage.GetImageFileSize strOriginal, X, Y
MyImage.MaxX = X
MyImage.MaxY = Y


ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY


MyImage.FileName = strNewSize

if MyImage.SaveImage then

Response.Redirect "default.asp?filename="&filename&"&width="&strScale
else
Response.Write "Det gick inte att ändra storlek. Vänligen försök igen."
end if

Set MyImage = Nothing
</code>

Vad kan det vara som är knas? Ändrar jag storleken fler gånger så blir den vita randen bara bredare och bredare.

Tacksam för all hjälp!

Mvh Andreas

Jag löste det själv.

Om någon vill veta så ska man skriva till "MyImage.PadSize = 0" direkt under "Set MyImage".

Mvh Andreas