Problema upload Baol + TextField

[seaside]

Ho scaricato lo script di Baol, ma non riesco a fare una cosa semplice del genere:

[pagina del form]

campo NOME
campo COGNOME
campo FILE1
campo FILE2

[pagina submit]

recupera valore di NOME
recupera valore di COGNOME
recupera valore di FILE1
recupera valore di FILE2

Help!

[seaside]

<%
Dim oUpload, nome

Set oUpload = new cUpload
oUpload.SetPath "public\"
nome = oUpload.Form("nome")
oUpload.UploadAndSave
Set oUpload=Nothing

%>

Ho provato così ma non mi recupera nessun campo "nome"

[Baol74]

 
<% 
Dim oUpload, nome 

Set oUpload = new cUpload 
oUpload.SetPath "public\" 
oUpload.Load()
nome = oUpload.Form("nome") 
oUpload.SaveAll()
Set oUpload=Nothing 
%>

[seaside]

Grazie!!!

e per salvare su 2 variabili i nomi dei 2 file??

[seaside]

<%

Dim oUpload, nome, cognome, i, documento

Set oUpload = new cUpload
oUpload.SetPath "public\"
oUpload.Load()
nome = oUpload.Form("nome")
cognome = oUpload.Form("cognome")

i = 0
While Not .Eof
documento(i) = .GetFileName()
i = i + 1
.MoveNext
Wend

oUpload.SaveAll()
Set oUpload=Nothing

%>

Ho provato così ma niente.. :master:

[Baol74]

Niente è una parola che sui form va abolita.

Niente signifa errore? signifa non mi ha salvato i files? Significa "forse è meglio dichiarare documento come array, dato che dopo lo uso come un array"? Oppure significa come fai ad usare una sintassi with senza specificare la parola chiave with?

Comunque:

 
<% 
Dim oUpload, nome, cognome, i
Dim documento() 'Array variabile
Set oUpload = new cUpload 
oUpload.SetPath "public\" 
oUpload.Load() 
nome = oUpload.Form("nome") 
cognome = oUpload.Form("cognome") 
i = 0 
Redim document(oUpload.Count)
While Not oUpload.Eof 
Documento(i) = oUpload.GetFileName() 
i = i + 1 
oUpload.Save() 'Salvataggio del file corrente.
oUpload.MoveNext 
Wend 
Set oUpload=Nothing 

%>

[seaside]

Grazie baol e scusami se non sono stato preciso, ora mi dà questo errore:

Subscript out of range

nella linea "documento(i) = oUpload.GetFileName()"

[Baol74]

prova a mettere

Redim document(oUpload.Count+1)

[seaside]

Thanx ;-) Ho provato così ma..

 
<% 
Dim oUpload, nome, cognome, i
Dim documento() 'Array variabile
Set oUpload = new cUpload 
oUpload.SetPath "public\" 
oUpload.Load() 
nome = oUpload.Form("nome") 
cognome = oUpload.Form("cognome") 
i = 0 
Redim document(oUpload.Count+1)
While Not oUpload.Eof 
Documento(i) = oUpload.GetFileName() 
i = i + 1 
oUpload.Save() 'Salvataggio del file corrente.
oUpload.MoveNext 
Wend 
Set oUpload=Nothing 

%>

mi dà lo stesso identico errore: Subscript out of range
sulla riga
Documento(i) = oUpload.GetFileName()

[Baol74]

Dimmi Quanti files carichi contemporaneamente e stampa il valore di oUpload.Count. Dovrebbe corrispondere.