Option Explicit 
Dim WOrder
Dim Riga

If RowItem.Doc.Id>0 Then
    Set WOrder=RowItem.Doc.SourceWebOrder
    If WOrder.Id>0 Then
        Response.Write(WOrder.OrderRef)
    Else
        For Each Riga In RowItem.Doc.DocRows
            Set WOrder=Riga.SourceRow.Doc.SourceWebOrder
            If WOrder.Id>0 Then
                Response.Write(WOrder.OrderRef)
                Exit For
            End If
        Next            
    End If
	Set WOrder=Nothing
End If