Finalmente funziona.
Questo è il codice per aggiornare una singola foto si un record già esistente.
Si suppone che si sia inserita una foto errata per l'articolo pippo, con questo script (BAOL) si aggiorna il record dell'articolo pippo con una nuova foto.


Attenzione al form bisogna dare questo
<form action="?save=1&cod=<%= Request.QueryString("cod") %>" method="post" enctype="multipart/form-data" name="form1" id="form1">


Codice di upload
<%cod=Request.Querystring("cod")%>

<%
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 "foto1"
FileName_foto1 = oUpload.GetFileName()
End Select
oUpload.MoveNext
Wend
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=xxxx.mdb"
cod=Request.Querystring("cod")
SQL=" SELECT * FROM pippo WHERE id_contatore="&cod
Set Rs=server.CreateObject("ADODB.Recordset")
Rs.Open sql ,Conn,3,3
Rs("foto1") = "foto/"&FileName_foto1

Rs.update
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn=Nothing
Set oUpload = Nothing
End if
%>