Variable de control de bucle 'For' no válida

[darkmcloud]

Buenas amigos de foros del web....aqui estoy con una problemática....estoy diseñando un codigo y me aparece el siguiente error :

Variable de control de bucle 'For' no válida
/inventario/validar_factura.asp, línea 54, columna 5
for i=0 to UBound(vecTotal)

este es mi codigo :

Código asp:

<&#37;
 
if Not IsEmpty(Request("codigo")) then
     codigo = Request("codigo")
end if
 
 if Not IsEmpty(Request("detalle")) then
     detalle = Request("detalle")  
end if
 
if Not IsEmpty(Request("canti")) then
     canti = Request("canti")
     end if
     
if Not IsEmpty(Request("precio")) then
precio = Request("precio") 
end if
 
if Not IsEmpty(Request("total")) then
total = Request("total") 
end if
 
 
set Cnn = Server.CreateObject("ADODB.Connection") 
set rs = Server.CreateObject ("ADODB.Recordset")
Cnn.Open Session("cnx")
 
vecClav = split(request("codigo"),",")
vecDesc = split(request("detalle"),",")
vecCanti = split(request("canti"),",")
vecPrec = split(request("precio"),",")
 
 
for i=0 to UBound(vecClav)
strSQL5= "select  ( '"&trim(vecPrec(i))&"' * '"&trim(vecCanti(i))&"' )  as multi "
 
set rs5 = Cnn.Execute(strSQL5) 
 
multiplicar = rs5.Fields("multi") 
 
vecTotal = split (multiplicar  ,",") 
for i=0 to UBound(vecTotal)
 
next
 
 
strSQL= "update FACPVAL set detalle ='"&trim(vecDesc(i))&"', canti ='"&trim(vecCanti(i))&"', precio ='"&trim(vecPrec(i))&"', total ='"&trim(vecTotal(i))&"' where codigo = '"&trim(vecClav(i))&"' and folio ='5161904'"
 
set rs = Cnn.Execute(strSQL)
 
next
 
 
%>
 

que podra ser ???
De antemano muchas gracias