Response.BinaryWrite Image.Image fejl

Jeg har nedenstående script, som giver nedenstående fejl ved linien

Response.BinaryWrite Image.Image

Der er installeret aspimage på begge servere.. hvad kan det være?



<font face="Arial" size=2>
<p>Response object</font> <font face="Arial" size=2>error 'ASP 0106 : 80020005'</font>
<p>
<font face="Arial" size=2>Type Mismatch</font>
<p>
<font face="Arial" size=2>/2007/pic.asp</font><font face="Arial" size=2>, line 34</font>
<p>
<font face="Arial" size=2>An unhandled data type was encountered.
</font>








<%

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")& "\2007\media\" & 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
%>