Allora ho proveto come dici te ma in questo modo nn mi inserisce nulla di cio che scrivo nei rispettivi campi testo.
Ecco il codice aggiornato:
Questo è il form:
codice:
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="upload_Database.asp">
File 1: 
  <INPUT TYPE="file" NAME="file_1">

File 2: 
<INPUT TYPE="file" NAME="file_2">

File 3: 
<INPUT TYPE="file" NAME="file_3">


<label>
Titolo 1<input name="Titolo1" type="text" id="Titolo1" />
</label>


Titolo 2<input name="Titolo2" type="text" id="Titolo2" />


Titolo 3<input name="Titolo3" type="text" id="Titolo3" />


<INPUT TYPE="submit" NAME="Enter">
</FORM>
E questa è lapagina per upload e inserimento.
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("news.mdb"),"SELECT Top 1 * FROM news"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "files\"
.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("Titolo") = .Form("Titolo1")
			.Database.Fields("Titolo") = .Form("Titolo2")
			.Database.Fields("Titolo") = .Form("Titolo3")
			.Database.Fields("Percorso") = .GetCompletePathFile
	'		'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
end if
End With
Set oUpload = Nothing
%>
Potre essere la strada giustao utilizzare la sintassi "case"???

:master: