Breve estratto.

codice:
<%
messaggio = ""

Response.Buffer = True
server.ScriptTimeout=3600

Set oUpload = new cUpload 
'oUpload.AutoRename=False
'oUpload.OverWrite=True
oUpload.Upload
oUpload.SetPath "/public/"

news_titolo = trim(oUpload.Form("news_titolo"))
news_testo = trim(oUpload.Form("news_testo"))

if news_titolo &"[]" = "[]" then
	messaggio = "Il campo Titolo non &egrave; stato compilato"
end if
if news_testo &"[]" = "[]" then
	messaggio = "Il campo Testo non &egrave; stato compilato"
end if
if len(news_data) <> 10 then
	messaggio = "Il campo Data non &egrave; stato compilato"
end if

if messaggio = "" then
	news_foto_1 = "": news_foto_2 = "": news_foto_3 = "": news_foto_4 = "": news_foto_5 = ""
	'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
		    if oUpload.Files("InputName") = "news_foto_1" then news_foto_1 = data_upload &"1."& oUpload.Files("ext"):oUpload.SaveAs(news_foto_1)
		    if oUpload.Files("InputName") = "news_foto_2" then news_foto_2 = data_upload &"2."& oUpload.Files("ext"):oUpload.SaveAs(news_foto_2)
		    if oUpload.Files("InputName") = "news_foto_3" then news_foto_3 = data_upload &"3."& oUpload.Files("ext"):oUpload.SaveAs(news_foto_3)
		    if oUpload.Files("InputName") = "news_foto_4" then news_foto_4 = data_upload &"4."& oUpload.Files("ext"):oUpload.SaveAs(news_foto_4)
		    if oUpload.Files("InputName") = "news_foto_5" then news_foto_5 = data_upload &"5."& oUpload.Files("ext"):oUpload.SaveAs(news_foto_5)
			oUpload.MoveNext
		Loop
    end if
end if
Set oUpload = nothing
%>
Roby