una ejemplo, solo como guia....
Código PHP:
response.Buffer=TRUE
cadena="1,1,1,1,1,1|2,2,2,2,2,2|3,3,3,3,3,3"
dim submain()
main=split(cadena,"|")
for i=0 to ubound(main)
if i=0 then
redim submain(ubound(main))
end if
submain(i) = split(main(i),",")
response.Write "<br>"
for j=0 to ubound(submain(i))
if j=ubound(submain(i)) then
if monto="" then
monto=cint(submain(i)(j))
else
monto=cint(monto) + cint(submain(i)(j))
end if
end if
response.Write j & "- " & submain(i)(j) & "<br>"
response.Flush()
next
next
response.Write "<br>Monto Total = $" & monto
¿¿
sera....??