<%
  ' Get the stored ISYS ASP object, created in the Global.asa  
  Set ISYS = Application("ISYS")

  ' Get the ISYS web catalog  
  Set ISYSCatalog = ISYS.CatalogWeb
%>  

<select name="index">  
<% For  Each Item in ISYSCatalog %>  
  <option value="<%= Item.Path %>">  <%= Item.Name %>  </option>  
<% Next  %>  
</select>