Løbende generering af thumbs med AspImage

Jeg er ved at lave mit eget lille galleri, men har lidt problemer med at få AspImage til at (on the fly) generere thumbs.

Jeg bruger følgende kode!
Funktionen som lister billederne:
*************************************************************************
    Function ListFiler(mappen)
        Dim filer, obj, strTemp
        Set filer    = CreateObject("Scripting.FileSystemObject").GetFolder(Server.Mappath(mappen)).Files

        For Each obj in filer
            strTemp = strTemp & "<img src=inc_crtthb.asp?Fil=" & Server.Mappath(obj.Name) & """ border=""0""><br><br>"
        Next

        ListFiler    = strTemp
        Set filer    = Nothing
    End Function
*************************************************************************

inc_crtthb.asp ser således ud:
*************************************************************************
Dim strFilNavn

strFilNavn = Request.QueryString("Fil")

If strFilNavn = "" Then        '// HVIS DER INGEN FIL ER MELDES FEJL, ELLERS FORTSÆT
    Response.Write "FEJL"
Else
    '// START ASPIMAGE
    Set MyImage = Server.CreateObject("AspImage.Image")
    MyImage.LoadImage strFilNavn

    '// SIKRE AT BILLEDERNE IKKE BLIVER OVER 90p HØJE
    If MyImage.MaxY < MyImage.MaxX Then
        MyImage.Resize 120,90
    ElseIf MyImage.MaxY = MyImage.MaxX Then
        MyImage.Resize 90,90
    Else
        MyImage.Resize 60,90
    End If

    MyImage.ImageFormat = 1
    MyImage.JPEGQuality = 30
    ProgressiveJPEGEncoding = True

    Response.BinaryWrite MyImage.Image
    Set MyImage = Nothing
End If
*************************************************************************

Det eneste der sker er at jeg får hvide kasser istedet for billederne :-|
Nogen der kan hjælpe mig på vej?

Vh. Cowman