Upload/resize giver problemer

Vha ASP.Upload og ASP.Image forsøger jeg at uploade et billede fra brugerens browser til serveren, gemme billedet og automatisk generere en thumbnail, der gemmes, til oversigtsvisning.

Jeg har haft forskellige forsøg, nogen bedre end  andre - og har primært to problemer:

File.Copy er disablet på serveren, men ved brug af File.CopyVirtual får jeg en fejl om at jeg ikke kan gøre netop det, da filen er i brug (se kode nedenfor).

Og så har image-resizeren problemer med at generere billedet. Det gemte billede bliver godt nok, men thumbnailen (der ellers bliver den rigtige størrelse) bliver bare helt hvidt...

Nogen, der har erfaring med det - eller bare til noget af det?

Al hjælp vil blive modtaget med tak!

strImageUploadTo = "images/"
strImageCopyTo = "images/"

    Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.OverwriteFiles = true
    Upload.SetMaxSize 200000
    upload.SaveVirtual strImageUploadTo

    navn = upload.form("navn")
    email = upload.form("email")
   
    For Each file In Upload.files
        ext = lcase(right(file.ExtractFileName,3))
        If ext = "jpg" Then

              File.CopyVirtual "images/" & File.ExtractFileName
                        Set objImg2 = Server.CreateObject("AspImage.Image")
                        objImg2.LoadImage File.ExtractFileName
                          objImg2.Resize 100,75
                objImg2.ImageFormat = 1
                objImg2.FileName = server.mappath("images") & "\thm_" & File.ExtractFileName
                          if objImg2.SaveImage then
                set conn = server.createobject("adodb.connection")
                conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("mindb.mdb")
                sql = "insert into posts (dato, image, navn, email) values (" & date & ",'"&File.ExtractFileName&"','"&navn&"','"&email&"')"
                conn.execute(sql)   
                conn.close
                            response.write "Dit piece er modtaget!"
                          end if
                        Set objImg2 = Nothing