Il file upload non lo devi modificare!
Nel caso di invio simultaneo di 5 foto (al massimo):
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)
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
'else
' messaggio = "Il campo Foto non è stato compilato"
End if
Roby