codice:
messaggio = ""
Set oUpload = new cUpload
'oUpload.AutoRename=False
'oUpload.OverWrite=True
oUpload.Upload
oUpload.SetPath percorso_foto
'Campi di tipo testo
annuncio_id = oUpload.Form("annuncio_id")
annuncio_oggetto = oUpload.Form("annuncio_oggetto")
if messaggio = "" then
annuncio_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
contfile=0
reDim arr_file(9)
Do While Not oUpload.EOF
arr_file(contfile) = contfile+1 &"_"& data &"."& oUpload.Files("ext")
oUpload.SaveAs(arr_file(contfile))
contfile = contfile + 1
oUpload.MoveNext
Loop
annuncio_foto = arr_file(0)
else
'messaggio = "inserire la foto del modello"
End if
end if
Solo un esempio....
Roby