Passaggio valori da form con stessi campi

[iadream]

Salve amici, ho un modulo con dei campi variabili che però assumono lo stesso NOME.
Mi spiego meglio:

questo modulo viene generato dinamicamente da dati presi da un db.
i campi sono

QU, VOCE, PREZZO, TOTALE, GIORNO

e sono relativi ad una comanda ristorativa.
In base alla comanda, le voci QU, VOCE e PREZZO possono aumentare.
Se passo il form, quindi, avrò nValori QU, VOCE, PREZZO e un solo valore TOTALE, GIORNO

I valori dei campi TOTALE e GIORNO vanno su una tabella db, mentre le voci QU, VOCE, PREZZO vanno su una tabella collegata ovviamente con COMANDA_ID uguale.

Come faccio ad inserirli in ciclo?!

Avevo provato con:

FOR i=1 TO (Request.Form.Count() - 3)

corpo = corpo + Request.Form.Key(i) & " = " & Trim(Request.Form(i)) &"
"

NEXT

ma ovviamente mi restituisce il nome di un campo con l'elenco dei valori seguiti da virgola!
una cosa tipo:

QU = 8,1,4,6
VOCE = Pizza, Spaghetti al pomodoro, Baccalà,.....
PREZZO = 8, 7, 9, 10

Come posso risolvere?!

[Roby_72]

Volendo con tre array. Tanto tutti contengono lo stesso numero di elementi.

Roby

[iadream]

Allora io avevo già fatto così:

FOR i=1 TO (Request.Form.Count() - 3)

if request.Form.Key(i) = "QU" then
QU = split(Trim(Request.Form(i)), ",")
 for dividi=0 to Ubound(QU)
 response.write("QU = "&QU(dividi)&"
")
 next
end if

if request.Form.Key(i) = "VOCE" then
QU = split(Trim(Request.Form(i)), ",")
 for dividi=0 to Ubound(QU)
 response.write("QU = "&QU(dividi)&"
")
 next
end if
.....
NEXT

Però poi come costruisco la query per l'INSERT?????

[Roby_72]

Invece della response.write devi costruirti una variabile con contenuto dinamico...
Ad ogni ciclo aggiungi un pezzo.

Roby

[iadream]

Intendi una cosa simile?!

SQL = "INSERT INTO quinto_fat_det (QU, VOCE, PREZZO) VALUES ("
FOR i=1 TO (Request.Form.Count() - 3)

	if request.Form.Key(i) = "QU" then
	QU = split(Trim(Request.Form(i)), ",")
	 for dividi=0 to Ubound(QU)
	 SQL = SQL & "'"&QU(dividi)&"', "
	 next
	end if
	
	if request.Form.Key(i) = "VOCE" then
	VOCE = split(Trim(Request.Form(i)), ",")
	 for dividi=0 to Ubound(VOCE)
	 SQL = SQL & "'"&VOCE(dividi)&"', "
	 next
	end if
	
	if request.Form.Key(i) = "PREZZO" then
	PREZZO = split(Trim(Request.Form(i)), ",")
	 for dividi=0 to Ubound(PREZZO)
	 SQL = SQL & "'"&PREZZO(dividi)&"', "
	 next
	end if


NEXT
SQL = SQL & ")"

Ma così non funziona e fa un solo insert!
A me servono n insert in base a quanti campi sono!