Svær Upload funktion med AspUpload/JUpload!

Jeg er ved at lave en Upload system til filer/fotos med
database!

Brugeren har mulighed for at markere en hel mappe med filer, som bliver uploadet.

I den mappe er der filer med tilhørende thumbnails(jpg's).

Eksempel på inhold af mappe:
Thumb_test1.jpg
Thumb_test2.jpg    > Disse er thumbnails og genkendes ved
Thumb_test3.jpg    > at starte med Thumb_

Test1.jpg
Test2.psd          > Disse er de egentlige filer
Test3.tif          > Og indeholder naturligvis ikke Thumb_


Eksisterer der ikke et thumbnail til filen skal feltet hvor jeg angiver thumbnils filnavne være tomt.

Jeg har lavet flg. kode, som desværre ikke virker!

<%
Server.ScriptTimeout=16000
Session.timeout = 500

    PATH = Server.mappath("Images")

    Set Image = Server.CreateObject("AspImage.Image")
    Set Upload = Server.CreateObject("Persits.Upload")
    Upload.OverwriteFiles = FALSE

    On Error Resume Next
    n = Upload.Save (PATH)
    ErrorNum = Err.Number
    Descr = Err.Description
    On Error Goto 0


    If ErrorNum <> 0 Then
    Response.Write "<B>The following error occurred: <FONT COLOR=""#FF0000"">" & Descr & "</B>"
    Response.End
    End If


    intKundeID = Upload.form("KundeID")

    If intKundeID <> "" Then
        If NOT IsNumeric(intKundeID) Then
            Response.write "Error!"
            Response.End
        End If
    End If


    For Each File in Upload.Files
        If NOT FILE Is Nothing Then
        fExt = lCase(File.Ext)
        FileSize = Null

            If fExt = ".psd" Or fExt = ".tif" Or fExt = ".tiff" Or fExt = ".eps" Or fExt = ".jpg" And inStr(1,Lcase(File.FileName),"thumb_") = 0 Then
            Foto = File.FileName
            FileSize = File.Size

            Count = inStr(1,Foto,fExt,1)
            Thumb = Left(File.FileName,Count)&"jpg"

                If Upload.FileExists(PATH&"\"&Thumb) Then
                Call ScaleImage (Thumb,100,100,50)
                    Else
                    Thumb = Null
                End If

            Conn.Execute("Insert into fildata (KundeID, ThumbFile, FotoFile, FileSize) VALUES ('"&intKundeID&"', '"&Thumb&"', '"&Foto&"', '"&FileSize&"')")
            End If
        End If

    Next

Set Image = Nothing
Set Upload = Nothing
%>




Jeg sætter 180 points på højkant til den der kan lave en funktion der altid virker! Har snart prøvet alt - og er tom for ideer :/


//netPhreak