Ciao a tutti
ho questo codice che mi genera errore e non riesco a capire dov'è
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("../dati/colbertaldo.mdb"),"SELECT Top 1 * FROM TBVEICOLI"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "..\images\foto\"
.Load
.UploadOnly "Images"
If Not .EOF then
.Database.Open()
	While Not .EOF
		.Save
			response.Write "il file " & .GetFileName &" è stato salvato 
"
			.Database.Fields("TIPO") = .Form("Tipo")
			.Database.Fields("MARCA") = .Form("Marca")
			.Database.Fields("MODELLO") = .Form("Modello")
			.Database.Fields("ANNI") = .Form("Anni")
			.Database.Fields("DESCRIZIONE") = .Form("Descrizione")
			.Database.Fields("FOTOP") = .GetFileName
			.Database.AddNew()
	.MoveNext
	Wend
.Database.Close
else
 response.write("Nessuna immagine caricata")
end if
End With
Set oUpload = Nothing
%>
Questo è l'errore:
Errore di run-time di Microsoft VBScript errore "800a01a8'

Necessario oggetto: 'Files'

/Colbertaldo/riservato/upload.asp, riga 1042

Ciao
Altamira