codice:
 
<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/Forum_Avatar.mdb"),"SELECT * FROM Utenti"

.EnabledAspUpload = False
.EnabledImageSize = True
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "files\"
.Load
'.UploadOnly "Images"
While Not .Eof
If .Files("Height")>=51 or .Files("Width")>=51 then
 Response.write ("Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato; ripetere l'operazione
"  )
%>
<head>
<meta http-equiv="refresh" content="15;URL=Registrazione_Forum.asp">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>
<%
else
 .MoveFirst 
 .Database.Open()
 .Save
%>
<font size="2" face="Verdana" color="#800000"><%response.Write "il file " & .GetFileName &" è stato salvato 
"%></font>
<%
.Database.Fields("Data") = .Form("Data")
.Database.Fields("Login") = .Form("user")
.Database.Fields("Password") = .Form("psw")
.Database.Fields("user") = .Form("user")

.Database.Fields("nomefile") = .GetFileName 


.Database.Update() 
.MoveNext
end if
Wend
End With
'end if
Set oUpload = Nothing
%>


<html>
<head>
<meta http-equiv="refresh" content="5;URL=http://www.miosito.it/login1.asp">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>
Ottengo un update sul primo ID della tabella e non l'insert sul nuovo record!