Buona Sera,
utilizzo egregiamente la classe BAOL per upload file e scrivere il percorso in un db.
Vorrei se possibile, implementarlo per aggiungere dei file ad un record esistente.
Per cui se prima aggiungo 2 foto con due descrizioni per il prodotto PIPPO e tutto mi va ok.
Vorrei avere la possibilità di aggiungere altre 2 foto (magari senza descrizione) ma sempre per il prodotto PIPPO.
Ovviamente il db avrà in questo caso 4 campi foto, (foto, foto1, foto2, foto3)

ho cosi pensato di eliminare
Rs.AddNew
E inefetti cosi facendo non mi crea un nuovo record.

e ovviamente ho aggiunto
sql = "SELECT * FROM PLUTO WHERE Id_contatore=389"
Ho inserito direttamente l'id contatore per vedere se mi modifica esattamento quella riga.

Il risultato è il seguente.
Il file viene uploado.
Non mi crea un nuovo record.
Però non mi modifica la riga 389, ma un'altra (non capisco in base a quale logica la scelga...)

Posto tutto il codice.
<%
If Request.QueryString("Save")="1" then
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = True
oUpload.Overwrite = False
oUpload.SetPath "\foto\" 'Impostazione del percorso
oUpload.Load
While Not oUpload.EOF
oUpload.Save()
Select Case lCase(oUpload.Files("InputName"))
Case "foto"
FileName_foto = oUpload.GetFileName()
Case "foto1"
FileName_foto1 = oUpload.GetFileName()
Case "foto2"
FileName_foto2 = oUpload.GetFileName()
Case "foto3"
FileName_foto3 = oUpload.GetFileName()
End Select
oUpload.MoveNext
Wend
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\vhosts\xxxx.mdb"
sql = "SELECT * FROM PLUTO WHERE Id_contatore = 389"
Set Rs=server.CreateObject("ADODB.Recordset")
Rs.Open "CICCIO",Conn,3,3
Rs("foto") = "foto/"&FileName_foto
Rs("foto1") = "foto/"&FileName_foto1
Rs("foto2") = "foto/"&FileName_foto2
Rs("foto3") = "foto/"&FileName_foto3

Rs.update
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn=Nothing
Set oUpload = Nothing
E