<%
' Execute a pre-configured ISYSSearch Object  
Set Document = Results(I)

' Entities are sorted by type, followed by freqency.  Loop through the  
' entities and show in a table
LastEntityType = -1
%>  

<table>  
  <% For  Each Entity in Document.Entities %>  

    <% If Entity.Type <> LastEntityType Then  %>  
      <tr>  
        <td colspan="2">  
          <%= Entity.TypeName %>  
        </td>  
      </tr>  
      <% LastEntityType = Entity.Type %>  
    <% End  If  %>  
      <tr>  
        <td>  
          <%= Entity.DisplayName %>  
        </td>  
        <td>  
          <%= Entity.Count %>  
        </td>  
      </tr>  
  <% Next  %>  
</table>