har set mig blind

Hej

Jeg har lavetet script hvor jeg uploader nogle filer.  Jeg laver en løkke der gemmer filen og indsætter sti i DB.

Problemet er at hvis jeg vælger en fil der ikke er JPG fil som den første, bliver ikke nogen af filerne gemt, men sti osv. bliver alligevel skrevet til DB.

Er der nogen der kan se hvad jeg har gjort galt?

For Each File in Upload.Files
    ' Obtain file object

    File.SaveAs filepath & "\" & File.FileName

    If File.Size < 100000 Then
        If File is Nothing Then
            strAllFiles = strAllFiles & File.Name & ": " & File.FileName & " " & FormatNumber((File.Size/1000),1) &" kb ikke en fil<BR>"
        Else
            If File.ImageType <> "JPG" Then
                strAllFiles = strAllFiles & File.Name & ": " & File.FileName & " " & FormatNumber((File.Size/1000),1) &" kb ikke en JPG fil<BR>"
                Upload.DeleteFile File.Path
                Upload.RemoveDirectory filepath
            Else
                strAllFiles = strAllFiles & File.Name & ": " & File.FileName & " " & FormatNumber((File.Size/1000),1) &" kb OK<BR>"

                descr = Replace(Upload.Form(descrNo), "'", "''")
                If Not File Is Nothing Then

                    ' Build ODBC connection string
                    Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db\upload.mdb")
                    'Connect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("upload.mdb") & ";"

                    uploaddate = FormatDateTime(Now, 2)
                    uploadtid = FormatDateTime(Now, 3)

                    ' Build SQL INSERT statement
                    SQL = "INSERT INTO billeder(filename, filepath, filesize, width, height, descr, filetype, uploaddate, uploadtid) VALUES("
                    SQL = SQL & "'" & File.Filename & "', "
                    SQL = SQL & "'" & File.Path & "', "
                    SQL = SQL & "'" & File.Size & "', "
                    SQL = SQL & "'" & File.ImageWidth & "', "
                    SQL = SQL & "'" & File.ImageHeight & "', "
                    SQL = SQL & "'" & descr & "', "
                    SQL = SQL & "'" & File.ImageType & "', "
                    SQL = SQL & "#" & uploaddate & "#, "
                    SQL = SQL & "#" & uploadtid & "#"
                    SQL = SQL & ");"

                    'IF descr = "" THEN
                    '    Upload.DeleteFile File.Path
                    'END IF

                    ' Save to database
                    File.ToDatabase Connect, SQL

                    'Set rs = Server.CreateObject("ADODB.RecordSet")

                    'SQL = "SELECT @@IDENTITY AS succesLog"
                    'rs.open SQL, Connect

                    'strIdentity = strIdentity & "Identity " & rs("succesLog") & " gemt<BR>"
                    'rs.close
                End If

            End If
        End If
    Else
        strAllFiles = strAllFiles & File.Name & ": " & File.FileName & " " & FormatNumber((File.Size/1000),1) &" kb for stor<BR>"
        Upload.DeleteFile File.Path
        Upload.RemoveDirectory filepath
    End If

    descrNo = descrNo + 1
Next