Function printAllFinders(map) Dim Finders = map.getFinders() Dim Finder, i, j For i = 0 To Finders.getCount() - 1 Finder = Finders.getFinder(i) Response.Write( "<dt><b>"& i & ". " & Finder.getDescription() & _ "</b> (ID: "+Finder.getFinderID()+")<br>" & vbCrLf) Response.Write( "<dd><b>Fields:</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