ASPImage, det virker ikke

Hejsa

Jeg har følgende som jeg bruger sammen med ASPImage, men det virker ikke. Jeg ved at det er første linie der går galt, men hvordan skriver jeg den rigtigt.

<%
    FileName="<%=rs("pic")%>"
    size= 100
    '*** get width/height of original image
    Set objImg = Server.CreateObject("AspImage.Image")
    objImg.LoadImage "C:\Inetpub\www\images\" & FileName
    ImageHeight = objImg.MaxY
    ImageWidth = objImg.MaxX
    Set objImg = Nothing
    Set Image = Server.CreateObject("AspImage.Image")
    Image.LoadImage "C:\Inetpub\www\images\" & FileName
    Image.ImageFormat = 1
    Image.JPEGQuality = 80
   
if ImageHeight > size then
    NewHeight = Cint(ImageHeight*size/ImageWidth)
    NewWidth = size
    Image.ResizeR NewWidth,NewHeight
end if
    Response.BinaryWrite Image.Image
    Set Image = Nothing
%>

Håber der er en eller flere der vil hjælpe.