AspImage -> thum fylder 0 kb og er sort

Jeg laver thumnails af hvert billede. Og den placerer den fint i den mappe den skal,og filnavnet er rigtigt. Så man må vel gå ud fra at den tager billedet ind...
Men den thumdenlaver fylder 0 kb og er bare helt sort...

/Lars

'***** LAVER Thum ****

Dim FrmThumPath,FmrFolderPath,FrmHead,FrmCat,FrmTxt

FrmCat = Request.Form("cat")
FrmHead = Request.Form("head")
FrmTxt = Request.Form("txt")

FrmThumPath = "..\gall\" & FrmCat & "\thum\"
FrmFolderPath = "..\gall\" & FrmCat & "\"


ImageIn=server.mappath(FrmFolderPath)
ImageOut=server.mappath(FrmFolderPath&"thum") &"\"

Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder(Server.MapPath(FolderPath))
Set objFiles = objFolder.Files

    img = FrmHead
    Set Image = Server.CreateObject("AspImage.Image")
    Image.AutoSize = false
    Image.LoadImage(ImageIn& img )
    X = Image.MaxX
    Y = Image.MaxY

    If Y > 90 Then
        ResizedY = 90
        ResizedX = (ResizedY * X/Y)
    End if


    Image.Resize ResizedX, ResizedY

    Image.ImageFormat = 1
    Image.JPEGQuality = 50

    Image.FileName = (ImageOut & img )
    Image.SaveImage
    Set Image = nothing

Set fso = Nothing