Sommare array

[vincanto1955]

Tramite un form passo ad una pagina per inserimento nel db:
Response.Write Request.form(trim("imp_FATTURA")):
10,50, 10,33, 20,47, 30,50, 40,50, 123,25, 321,25, , , , , , , , ,
splitto il tutto:
var_im_FATT=Request.form("imp_FATTURA")

var_im_FATT_1 = split(var_im_FATT, ", "):
For i=0 TO UBound(var_im_FATT_1) -1
Response.Write var_im_FATT_1(i) & "
"
Next
che mi stampa:
10,50
10,33
20,47
30,50
40,50
123,25
321,25

Come posso ora sommare questi valori ed avere il totale ossia 556,80.
Grazie e buona serata

[optime]

la somma si ottiene con una addizione!

var_im_FATT_1 = split(var_im_FATT, ", "):
somma=CCur(0)
For i=0 TO UBound(var_im_FATT_1) -1
   Response.Write var_im_FATT_1(i) & "
" 
   somma=somma+CCur(var_im_FATT_1(i))
Next
Response.Write "maGGica somma...: " & somma & "
"

ho usato CCur, vedi tu se usare CSng o CDbl - dipende dal tipo di dato

[vincanto1955]

Grazie mitico Optime però mi va in errore:
somma=somma + CDbl(var_im_FATT_1(i))

Tipo non corrispondente: 'CDbl'

[optime]

mmmm devi sempre tener presente che la bestia ragiona all'anglosassone

importo=var_im_FATT_1(i)
importo=replace(importo,".","")
importo=replace(importo,",",".")
somma=somma + CDbl(importo)

[vincanto1955]

Scusami se rompo ancora però:
var_im_FATT_1 = split(var_im_FATT, ", "):
somma=CDbl(0)
For i=0 TO UBound(var_im_FATT_1) -1
Response.Write var_im_FATT_1(i) & "
"

importo=var_im_FATT_1(i)
importo=replace(importo,".","")
importo=replace(importo,",",".")
somma=somma + CDbl(importo)

Next
Response.Write "maGGica somma...: " & somma & "
"

l'errore è sempre:
Errore di run-time di Microsoft VBScript error '800a000d'

Tipo non corrispondente: 'CDbl'

/proc_REG_PROTESI/varie/pagine_di_TEST/paginainserimento.asp, line 40

che sarebbe: somma=somma + CDbl(importo)
Grazie per la pasienza

[optime]

fatti stampare importo prima di sommarlo

[vincanto1955]

Mi stampa solo il primo

response.write importo
response.end


10,33
10.33

[optime]

controlla che non ci siano spazi

importo=trim(importo)

[vincanto1955]

var_im_FATT_1 = split(var_im_FATT, ", "):
somma=CDbl(0)
For i=0 TO UBound(var_im_FATT_1) -1

Response.Write var_im_FATT_1(i) & "
"

importo= var_im_FATT_1(i)
importo=replace (importo ,".","")
importo=replace (importo ,",",".")
importo=trim(importo)
response.write importo
response.end

somma=somma + CDbl(importo)

Next
Response.Write "maGGica somma...: " & somma & "
"

anche così mi stampa solo il primo
10,33
10.33
Grazie per la tua pazienza

[optime]

che ti devo dire. io ho fatto copia e incolla su una mia paginetta e funzia!