ASPUpload fejler

Hov... Her er koden:

<% Session.LCID = 1030
    ' Create an instance of AspUpload object
    Set Upload = Server.CreateObject("Persits.Upload")

    ' Capture uploaded file. Save returns the number of files uploaded
    Upload.Save("C:\websites\xxx.dk\images\billedegalleri")

      For Each File in Upload.Files

            ' create instance of AspJpeg object
            Set jpeg = Server.CreateObject("Persits.Jpeg")


            '--------------------------------------------------------------------
            'INSERT INTO DB START
            '--------------------------------------------------------------------
            SQL = "insert into billedegalleri (galleriID,billede,godkendt,dato) values('" & request.QueryString("galleriID") & "','','0','" & now() & "')"
            Conn.execute(SQL)

            SQL2 = "SELECT last_insert_id() FROM billedegalleri"
            Set RS = Conn.Execute(SQL2)
            nytID = RS(0)
            '--------------------------------------------------------------------
            'INSERT INTO DB END
            '--------------------------------------------------------------------

           
            '--------------------------------------------------------------------
            'CREATE THUMBNAIL START
            '--------------------------------------------------------------------
            ' open uploaded file
            jpeg.Open( File.Path )

            'Resize thumbnail
            jpeg.Width = "100"

            'Set new height, preserve original width/height ratio on thumbnail.
            jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
           
            'Set the quality.
            jpeg.Quality = 80

            SavePathThumbNail = "C:\websites\xxx.dk\images\billedegalleri\thumb\" & nytID

            ' AspJpeg always generates JPEG thumbnails regardless of original format.
            ' If the original file was not a JPEG, append .JPG extension.
            If UCase(Right(SavePathThumbNail, 3)) <> "JPG" Then
                SavePathThumbNail = SavePathThumbNail & ".jpg"
            End If       

            jpeg.Save SavePathThumbNail
            '--------------------------------------------------------------------
            'CREATE THUMBNAIL END
            '--------------------------------------------------------------------
           
            '--------------------------------------------------------------------
            'CREATE WATERMARK START
            '--------------------------------------------------------------------
            ' open uploaded file
            jpeg.Open( File.Path )

            'Resize watermark
            jpeg.Width = "400"

            'Set new height, preserve original width/height ratio on thumbnail.
            jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
           
            'Set the quality.
            jpeg.Quality = 80

            SavePathWaterMark = "C:\websites\xxx.dk\images\billedegalleri\watermark\" & nytID

            ' AspJpeg always generates JPEG thumbnails regardless of original format.
            ' If the original file was not a JPEG, append .JPG extension.
            If UCase(Right(SavePathWaterMark, 3)) <> "JPG" Then
                SavePathWaterMark = SavePathWaterMark & ".jpg"
            End If
           
            'Draw text
            Jpeg.Canvas.Font.Color = &H33CCFF
            Jpeg.Canvas.Font.Family = "Verdana"
            Jpeg.Canvas.Font.Size = "18"
            Jpeg.Canvas.Font.Bold = True
            Jpeg.Canvas.Print Jpeg.Width / Jpeg.Height, Jpeg.Height / Jpeg.Width, "spotpeople.dk"   

            jpeg.Save SavePathWaterMark
            '--------------------------------------------------------------------
            'CREATE WATERMARK END
            '--------------------------------------------------------------------


            '--------------------------------------------------------------------
            'UPDATE DB START
            '-------------------------------------------------------------------
            SQL = "UPDATE billedegalleri SET billede = '" & nytID&".jpg' WHERE id = '" & nytID & "'"
            Conn.execute(SQL)
            '--------------------------------------------------------------------
            'UPDATE DB END
            '-------------------------------------------------------------------


            '--------------------------------------------------------------------
            'DELETE ORIGINAL FILE START
            '--------------------------------------------------------------------
            fil = "c:/websites/xxx.dk/images/billedegalleri/" & File.ExtractFileName
            set fso = server.createobject("scripting.filesystemobject")
            fso.deletefile(fil)
            '--------------------------------------------------------------------
            'DELETE ORIGINAL FILE END
            '--------------------------------------------------------------------
            next
%>

Er der ingen som der kan hjælpe??

LUKKET!

Hej

jeg er selv igang med at skulle lave det du har på ovenstående, og så var det jeg tænkte om det var muligt at få en kopi af din kode, altså både form og resten af koden, og selvf. meget gerne beskrivelse af data basen.

jeg er selvf. villig til at betale point, hvad er prisen :-)