ASP image

Hej
Prøve at få følgende til at virke, men den siger:
fejl:
Division med nul
/Test/aspimage.asp, line 7
Det er som om den ikke for hentet billedet ind

Hvad er galt?

<%
    '----       
    Set AspImage = Server.CreateObject("AspImage.Image")
    AspImage.LoadImage("F:\Inetpub\wwwroot\Test\pic\pic.gif")

      Dim intYSize
      intYSize = (100 / AspImage.MaxX) * AspImage.MaxY
      AspImage.ResizeR 100, intYSize
   
    ASPImage.FileName = "F:\Inetpub\wwwroot\Test\pic\thumb\pic.gif"
    ASPImage.SaveImage
    Set ASPImage = Nothing
    '----
%>