aspimage - den ene virker - den anden gør ikke hvorfor

Jeg har 2 næsten ens koder i hver sin fil, den øverste af den virker fint, men den nederste får ikke lavet billedet ordenligt men får dog lavet et eller andet.

<%
Set Image = Server.CreateObject("AspImage.Image")
fil = "image1.jpg"
imgFullPath = (Server.MapPath("../billeder/test/temp/"& fil ))

Image.LoadImage imgFullPath

Image.GetImageFileSize imgFullPath, X, Y
Image.MaxX = X
Image.MaxY = Y

'If X > Y Or X > 150 Then
ResizedX = 150
ResizedY = 200
'End If   

Image.Resize ResizedX, ResizedY

Image.ImageFormat = 1
Image.JPEGQuality = 50
Image.FileName = Server.MapPath("../billeder/test/image10.jpg")
Image.SaveImage
Set Image = Nothing

%>

Denne virker ikke:

<%
Set Image = Server.CreateObject("AspImage.Image")
fil = "image1.jpg"
indmappe = (Server.MapPath("../billeder/test/temp/"& fil ))

Image.LoadImage indmappe

Image.GetImageFileSize imgFullPath, X, Y
Image.MaxX = X
Image.MaxY = Y

'If X > Y Or X > 150 Then
ResizedX = 150
ResizedY = 200
'End If   

Image.Resize ResizedX, ResizedY

Image.ImageFormat = 1
Image.JPEGQuality = 50
Image.FileName = Server.MapPath("../billeder/test/image10.jpg")
Image.SaveImage
Set Image = Nothing

%>