Function printAllFinders Set Finders = Map.getFinders() Dim Finder For i = 0 To Finders.getCount() - 1 Set Finder = Finders.getFinder(i) Response.Write( "<dt><b>"& i & ". " & Finder.getDescription() & _ "</b> (ID: "+Finder.getFinderID()+")<br>" & vbCrLf) Response.Write( "<dd><b>Fileds:</b><br>" & vbCrLf) For j = 0 To Finder.getFieldCount() - 1 Response.Write( "<dd><b>" & (j+1) & "</b>. Name: <b>"_ & Finder.getFieldName( j)& "</b> Description: <b>"_ & Finder.getFieldLabel( j) & "</b><br>" & vbCrLf) Next Response.Write( "<p>" & vbCrLf) Next End Function