codice:
<%
data_upload = year(date()) & right("0"& month(date()), 2) & right("0"& day(date()), 2) & right("0"& hour(time()), 2) & right("0"& minute(time()), 2) & right("0"& second(time()), 2)

Set oUpload = new cUpload 
'oUpload.AutoRename=False
'oUpload.OverWrite=True
oUpload.Upload
oUpload.SetPath percorso_galleria_fotografica

campotitolo = trim(oUpload.Form("campotitolo"))
campodescrizione = trim(oUpload.Form("campodescrizione"))

galleria_foto = ""
'Campo di tipo file; lascio il ciclo in caso in cui si voglia dare in futuro la possibilità di aggiungere più di un file
If Not oUpload.EOF then
	oUpload.MoveFirst 
	Do While Not oUpload.EOF
		galleria_foto = data_upload &"."& oUpload.Files("ext")
		oUpload.SaveAs(galleria_foto)
		oUpload.MoveNext
	Loop
else 
	messaggio = "Il campo Foto non &egrave; stato compilato"
End if
Set oUpload = nothing%>
Roby