Ciao Rob, allora lo script è questo:
codice:
If Request("Upload")="1" then
Dim oUpload
Set oUpload= new cUpload
With oUpload
.SetDatabase "Driver={Microsoft Access Driver (*.mdb)};DBQ="
& server.MapPath("/mdb-database/ARCHIVIO.mdb"),"SELECT * FROM eventi"
.EnabledAspUpload = True
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = False
.Overwrite = True
.SetPath "allegatiEventi/"
.Load
.MoveFirst
if .EOF then
NumFiles = .Count()
else
.Database.Open()
While Not .EOF
.Save ()
response.Write "il file " & .GetFileName &" è stato salvato
"
'Inserimento dei valori
.Database.Fields("Titolo") = .Form("titolo")
.Database.Fields("Descrizione") = .Form("descrizione")
.Database.Fields("Allegato") = .GetHTTPPathFile
'Inserimento
.Database.Addnew()
.MoveNext
Wend
end if
End With
Set oUpload = Nothing
end if
Che cosa devo cambiare? la Select e scrivere al suo posto un insert into? Grazie