Ciao a tutti,

con molta pazienza e tanto tempo perso sono riuscito ad ottenere un minimo di risultato.
Adesso con il mio form e lo script di baol (upload.asp e upload_database.asp) riesco a caricare nel server due immagini e scrivere nel database i nomi dei file e i campi testo del form che mi interessano.
Problema, comune ad altri, che crea due record con le stesse informazioni eccetto l’id e il nome del file se carico due foto.
Il mio obbiettivo è due foto e un record con le informazioni nome dei campi fotopiccola e fotogrande e altri campi testo. Si può? come?

Di seguo il codice:



<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/database/news.mdb"),"SELECT Top 1 * FROM news"
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = False
.Overwrite = True
.SetPath "/database/"
.Load
.MoveFirst
if .EOF then
NumFiles = .Count()
Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
.Database.Open()
While Not .EOF
.Save
response.Write "il file " & .GetFileName &" è stato salvato
"
'Inserimento dei valori
.Database.Fields("Fotopiccola") = .GetFileName
'.Database.Fields("Fotogrande") = .GetFileName
.Database.Fields("Descrizione") = .Form("Descrizione")
.Database.Fields("Oggetto") = .Form("Oggetto")
'Inserimento
.Database.AddNew()
.MoveNext
Wend
end if
End With
Set oUpload = Nothing
%>