Il seguente script scorre tutte le righe di un documento e conta le righe relative ad articoli:
Option Explicit
Dim NumeroRighe
Dim Riga
NumeroRighe = 0
For Each Riga In Doc.DocRows
If Riga.Product.Id>0 Then
NumeroRighe = NumeroRighe + 1
End If
Next
Response.Write(NumeroRighe)