Unire valori in una sola variabile

[mcviper909]

Salve a tutti.

Mi si è presentato l'ennesimo problema e mi trovo di nuovo qui nelle vostre mani.

Allora ho delle pagine in cui immagazzino dei dati sia inseriti dall'utente che presi da delle viste.
Alla fine dopo un riepilogo dei dati a mia disposizione devo andarli ad inserire su un db Oracle.
Alcuni dei miei dati si chiamano tipo

campo0
campo1
campo2
...
...

campon
e hanno una valore tipo

valore0
valore1
valore2
...
...
valoren

Mi servirebbe che questi valore diventassero una unica variabile
tipo:

campototale

con dentro tutti i valori separati da una virgola

valore0, valore1, valore2, ..., ..., valoren

Non so assolutamente come fare.
HELP ME
Grazie

[Shagrat]

metti i valori in un array e poi fai una join

[mcviper909]

Appunto....
L'anello mancante della mia catena è:

metti i valori in un array

Come si fa?

[Shagrat]

dim arr (100)
i=0

redim arr (rs.recordcount)

do until rs.eof
   arr(i)=rs("nomecampo")
   i = i+1
   rs.movenext
loop

dovrebbe andare

[mcviper909]

Allora ho provato a riadattare lo script alla mia situazione:

totale_fatture = Request.Form("contatore_fatture")
dim arr (100)
redim arr (totale_fatture)
for i = 0 To totale_fatture
   arr(i)=Request.Form ("importo_in_pagamento" & i & "")
next

ma mi dice:

Errore di run-time di Microsoft VBScript error '800a000a'

Questa matrice è fissa o temporaneamente bloccata

/tesoreria/prova5.asp, line 22

alla linea 22 c'è

redim arr (totale_fatture)

[Shagrat]

prova a fare

redim arr (Cint(totale_fatture))

[mcviper909]

Niente mi dice sempre matrice bloccata!

[optime]

se avevi gia' usato una Dim Array(x) non puoi usare ReDim Array(y). Devi usare *solo* ReDim

[Shagrat]

Originariamente inviato da optime
se avevi gia' usato una Dim Array(x) non puoi usare ReDim Array(y). Devi usare *solo* ReDim

già...che ignorante che sono

[mcviper909]

Quindi debbo fare ciò:

dim arr (100)
redim totale_fatture