salve a tutti o cercato e cercato per 4 giorni sul forum pero' non riesco a capire perche' non carica i dati nel database

questo e' il mio codice del form
codice:
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="Upload_Database.asp">
Titolo: <input type="text" name="titolo">

File : <INPUT TYPE="file" NAME="foto1">

File : <INPUT TYPE="file" NAME="Campo2">

File : <INPUT TYPE="file" NAME="Campo3">

File : <INPUT TYPE="file" NAME="Campo4">

File : <INPUT TYPE="file" NAME="Campo5">

<INPUT TYPE="submit" NAME="Enter">
</FORM>
questo invece il codice asp
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("/mdb-database/mercatino.mdb"),"Select Top 1 * FROM mercatino"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "\public\images\mercatino\"
.Load
.MoveFirst
if .EOF then
	NumFiles = .Count()
	Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo di file."
else

	.Database.Open()
	While Not .EOF
			.Save
			response.Write "il file " & .GetFileName &" è stato salvato 
"
			'Inserimento dei valori
			.Database.Fields("titolo") = .Form("titolo")
			.Database.Fields("foto1") = .GetFileName
			'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
end if
End With
Set oUpload = Nothing
%>
le immagini le carica correttamente modificando il nome se inserisco un file che e' gia presente
solo che non scrive niente nel database

a dire il vewro io devo inserire molti dati in piu pero' volevo iniziare a provare con uno per poi aggiungere tutti gli altri

grazie per l' aiuto