<% 'BindEvents Method @1-D2AC19B7 Sub BindEvents() Set contacts.contacts_TotalRecords.CCSEvents("BeforeShow") = GetRef("contacts_contacts_TotalRecords_BeforeShow") End Sub 'End BindEvents Method Function contacts_contacts_TotalRecords_BeforeShow() 'contacts_contacts_TotalRecords_BeforeShow @16-81B6E983 'Retrieve number of records @17-E9FCCC7E contacts.contacts_TotalRecords.Value = contacts.DataSource.Recordset.RecordCount 'End Retrieve number of records End Function 'Close contacts_contacts_TotalRecords_BeforeShow @16-54C34B28 %>