Min er Version: 2.31, så det burde være i orden :-)
Jeg kommer lige med kode delen (undskyld rodet )
billedet bliver kaldt
<div id="forste" style="position:absolute; left:173px; top:95px; width:109px; height:109px; z-index:1"><img src="thumbnail.asp?FileName=anker.jpg&size=150&rotate=10" ></div>
og selve aspimage delen
rotate=request.QueryString("rotate")
FileName=request.querystring("FileName")
size=Cint(request.querystring("size"))
Response.ContentType = "image/jpeg"
'*** get width/height of original image
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage Request.ServerVariables("APPL_PHYSICAL_PATH")& "fotos\" & FileName
ImageHeight = Image.MaxY
ImageWidth = Image.MaxX
'Image.CreateButton 5,false
Image.ImageFormat = 3 ' png format
'Image.JPEGQuality = 80
'Image.RoundRect 0, 0, 50, 50, 10, 10
if ImageHeight > size then
NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Image.ResizeR NewWidth,NewHeight
end if
Image.Transparent = true
Image.TransparentColor = RGB(&hFF, &hFF, &hFF)
Image.ClearTexture
'Image.FloodFill 1, 1, RGB(&h00, &h00, &h00), 0
'Image.FishEye 1
'Image.Wave 10 1' kan jeg ikke få til at virker????
'Image.AddImageTransparent "c:\stien\images\anker.jpg", 1, 1, vbWhite
'Response.BinaryWrite Image.Image
Image.RotateImage rotate
FileName= Left(FileName,(Len(FileName)-4))
Image.FileName = "c:\stien\images\" & FileName &"_small.png"
Image.SaveImage
'Set Image = Nothing
'Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage Request.ServerVariables("APPL_PHYSICAL_PATH")& "images\" & FileName & "_small.png"
Image.Transparent = true
Image.TransparentColor = vbWhite
Image.ImageFormat = 3 ' png format
Response.BinaryWrite Image.Image
Set Image = Nothing
%>
