Il seguente script scorre tutte le righe di un documento e somma le quantita' di ogni riga relativa ad articoli:
Option Explicit
Dim QTotale
Dim Riga
QTotale = 0
For Each Riga In Doc.DocRows
If Riga.Product.Id>0 Then
QTotale = QTotale + Rdy.toDouble(Riga.CustomField(30))
End If
Next
Response.Write(QTotale)