<% Function ListMessagesForGroup(ByRef pobjCon, ByVal pintGroupID, ByVal pintMessageID, ByVal pintUserID, _ ByVal pblnShowActive, ByVal pblnShowArchived, _ ByVal pblnShowApproved, ByVal pblnShowUnapproved, _ ByVal pblnHideRead) set ListMessagesForGroup = ListMessagesForSearch(pobjCon, "", pintUserID, _ pintMessageID, Array(pintGroupID), _ false, false, false, _ pblnShowActive, pblnShowArchived, _ pblnShowApproved, pblnShowUnapproved, _ pblnHideRead) end Function %>