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