Esecuzione somma

[orcim]

Ciao, cosa sbaglio in questo codice:

strCOD = Request.Form("COD")
strQta = Request.Form("Qta")


sql = "SELECT * FROM TBL where COD = '"& strCOD &"'" 
Set rec = Server.CreateObject("ADODB.Recordset")
rec.Open sql, conn, 3, 3

If Not rec.EOF Then
Do While Not rec.EOF

strQ = rec("Qta")

rec.MoveNext
Loop

arr_primo = split(strQta, ";")

for x = 0 to Ubound(arr_primo)
   elemento = arr_primo(x)
   arr_secondo = split(elemento,"-")
   
   lettera = arr_secondo(0)
   numero = arr_secondo(1)

   numero = cint(numero) + cint(strQ)

next

Perchè la variabile numero non esegue la somma?

[asva]

intanto il loop lo hai messo troppo presto

o ti interessa sommare solo l'ultimo valore di strQ?

[orcim]

Grazie, a me interessa sommare quanto si trova già nel db al numero che arriva dallo split... ad esempio se nel db ho 13 e dal form arriva 12 la variabile numero dovrebbe diventare 25...

strCOD = Request.Form("COD")
strQta = Request.Form("Qta")

'RECUPERO IL VALORE DI QTA NEL DB
sql = "SELECT * FROM TBL where COD = '"& strCOD &"'" 
Set rec = Server.CreateObject("ADODB.Recordset")
rec.Open sql, conn, 3, 3

If Not rec.EOF Then
Do While Not rec.EOF

'VALORE DI QTA NEL DB
strQ = rec("Qta")

rec.MoveNext
Loop

'SPLITTO IL VALORE DAL FORM
arr_primo = split(strQta, ";")

for x = 0 to Ubound(arr_primo)
   elemento = arr_primo(x)
   arr_secondo = split(elemento,"-")
   
   lettera = arr_secondo(0)
   numero = arr_secondo(1)
   
'SOMMA DEL VALORE DELLO SPLIT AL VALORE DEL DB
   [B]numero = cint(numero) + cint(strQ)[/B]

next