ASPImage og thumbnails

Har selv løst problemet

hvad med at forklare hvordan, således andre kan se løsningen, hvis man skulle stå overfor det samme ?

thumbnail.asp
--------------

<%
FileName=request.querystring("FileName")
size=Cint(request.querystring("size"))
PWidth=Cint(request.querystring("Width"))
PHeight=Cint(request.querystring("Height"))
Response.ContentType = "image/jpeg"
'*** get width/height of original image
Set Image = Server.CreateObject("AspImage.Image")
Myfolder ="pics"
Image.LoadImage Request.ServerVariables("APPL_PHYSICAL_PATH")& "\billeder\" & FileName
ImageHeight = Image.MaxY
ImageWidth = Image.MaxX
Image.CreateButton 5,true
Image.ImageFormat = 1
Image.JPEGQuality = 80
if size>0 AND ImageWidth > size then
NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Image.ResizeR NewWidth,NewHeight
end if
if PWidth >0 AND ImageWidth > PWidth then
NewHeight = Cint(ImageHeight*PWidth/ImageWidth)
NewWidth = PWidth
Image.ResizeR NewWidth,NewHeight
end if
if PHeight >0 AND ImageHeight > PHeight then
NewWidth = Cint(ImageWidth*PHeight/ImageHeight)
NewHeight = PHeight
Image.ResizeR NewWidth,NewHeight
end if


Response.BinaryWrite Image.Image
Set Image = Nothing
%>

Kaldes med:

<img src="thumbnail.asp?FileName=billede.jpg%>&width=50" alt="" border='0'>