Con la classe upload di Baol carico 8 file su server (aruba):
Set oUpload = new cUpload
With oUpload
.EnabledAspUpload = False
.SetPath "\public\"
.Load
.Save
immagine = .GetFileName()
.MoveNext
.Save
allegato1 = .GetFileName()
.MoveNext
.Save
allegato2 = .GetFileName()
.MoveNext
.Save
allegato3 = .GetFileName()
.MoveNext
.Save
questionario1 = .GetFileName()
.MoveNext
.Save
questionario2 = .GetFileName()
.MoveNext
.Save
questionario3 = .GetFileName()
.MoveNext
.Save
questionario4 = .GetFileName()
End With
Set oUpload=Nothing
Il primo file arriva da un campo obbligatorio, gli altri no. Quelli con campo non obbligatorio appartengono a due gruppi distinti:
1 - allegati (ad una pagina web generata dinamicamente)
2 - file htm di un questionario da compilare on line (sempre allegato alla pagina)
Con .GetFileName recupero il nome del file uploadato e lo inserisco in un db utilizzato per generare la pagina dinamica htm.
Problema:
se non vengono inseriti allegati e vengono inseriti i file del questionario, nel db vengono registrati i file del questionario come se fossero quelli degli allegati, slitta tutto in su. Ho pensato di usare .Files("InputName") per recuperare il campo d'inserimento del file e creare un ciclo condizionale di riconoscimento, ma mi viene fuori una roba un po' macchinosa.
Esiste il modo di creare un ciclo condizionale del tipo:
Set oUpload = new cUpload
With oUpload
.EnabledAspUpload = False
.SetPath "\public\" & cartella & "\"
.Load
.Save
immagine = .GetFileName()
.MoveNext
if nel campo 2 è stato inserito un file then
.Save
allegato1 = .GetFileName()
end if
.MoveNext
if nel campo 3 è stato inserito un file then
.Save
allegato2 = .GetFileName()
end if
.MoveNext
........
........
if nel campo 7 è stato inserito un file then
.Save
questionario3 = .GetFileName()
end if
.MoveNext
if nel campo 8 è stato inserito un file then
.Save
questionario4 = .GetFileName()
end if
End With
Set oUpload=Nothing
Grazie in anticipo.
Rispondi quotando