Upload : aiuto se non c'è il file

[hugheshi]

Ho il seguente problema (scaricata classe upload 3.1.1)

ho una form nella quale vorrei che fosse facoltativo fare l'upload
e quindi il file al quale posto mi caricasse cmq sul db i dati inviati.

<%
'if request.querystring("Campo1") ="" then 

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/news.mdb"),"SELECT Top 1 * FROM newsru"

.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
Campo1=request.form("Campo1")
If .Files("Campo1") = "" Then

	.Database.Open()
			.Database.Fields("titolo") = .Form("Titolo")
			.Database.Fields("autore") = .Form("Autore")
			.Database.Fields("argomento") = .Form("Argomento")
			.Database.Fields("argomento2") = .Form("Argomento2")
			.Database.Fields("menu") = .Form("menu")
			.Database.Fields("sottomenu") = .Form("sottomenu")
			.Database.Fields("data_ins") = .Form("data_ins")
			.Database.Fields("prima") = .Form("pp")
			.Database.Fields("note1") = .Form("note1")
				.Database.Fields("username") = .Form("username")
				.Database.Fields("filename") = "nessun file caricato"
				.Database.AddNew()
				.MoveNext
				Wend
'.Save
else 
.SetPath "./dati/"
.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("filename") = .GetFileName
			.Database.Fields("autore") = .Form("Autore")
			.Database.Fields("argomento") = .Form("Argomento")
			.Database.Fields("argomento2") = .Form("Argomento2")
			.Database.Fields("menu") = .Form("menu")
			.Database.Fields("sottomenu") = .Form("sottomenu")
			.Database.Fields("data_ins") = .Form("data_ins")
			.Database.Fields("prima") = .Form("pp")
			.Database.Fields("note1") = .Form("note1")
				.Database.Fields("username") = .Form("username")
			.Database.Fields("percorso") = .GetCompletePathFile
			'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
end if
End With
Set oUpload = Nothing

%>