ho trovato il codice per upload. ora ho trovato anche un piccolo codice per inserire le immagini nel database. Lo stavo provando ma non funziona.

Codice esempio.asp
codice:


<%
If Request("Upload")="1" then
'	Dim oUpload
	Set oUpload = new cUpload
		oUpload.AutoRename = False
		oUpload.Overwrite = true
		oUpload.SetPath "."
		oUpload.Upload
		oUpload.SaveAs ""
	Set oUpload=Nothing
end if
%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="?upload=1">
File : <INPUT TYPE="file" NAME="Campo1">

<INPUT TYPE="submit" NAME="Enter">
</FORM>
Codice upload_database.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/minigolf.mdb"), "SELECT img1 FROM olmo"
.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("Titolo")
			.Database.Fields("Percorso") = .GetCompletePathFile
			'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
end if
End With
Set oUpload = Nothing
%>
mi da errore:
Prevista fine istruzione

/esempi/upload_database.asp, line 9

.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/minigolf.mdb"), "SELECT img1 FROM olmo"
---------------------------------------------------------------------------------------------------------------------------------------^

non riesco a capire!!