codice:
While Not .EOF
.Save
response.Write "Il file " & .GetFileName &" è stato salvato 

"
'Inserimento dei valori
.Database.Fields("URL") = .GetFileName
.Database.Fields("descrizione") = .Form("descrizione")
.Database.Fields("breve") = .Form("breve")
.Database.Fields("microcategorie") = .Form("microcategorie")

.Database.Fields("larghezza")= .Files("Width")
.Database.Fields("Altezza")= .Files("Height")