<% Dim bdm_idx, value Dim rs, sql bdm_idx = InputValue( request("bdm_idx") ) value = InputValue( request("value") ) Set ST = New SelectTable sql = "select bdm_idx, bdm_menuname from bd_menu_page where bdm_ref = '" & bdm_idx & "' and bdm_chk = 'Y' order by bdm_code" rs = ST.selectQueryTable( sql ) If Not( isnull(rs) ) Then For i = 0 To ubound( rs ) ST.arr2Value( rs(i) ) tot_cnt = ST.selectQueryColumn( "select count(*) as cnt from member where bdm_idx = '" & bdm_idx & "' and m_mobile1 <> '' and m_mobile2 <> '' and m_mobile3 <> ''" ) %> data-count="<%=tot_cnt%>"><%=bdm_menuname%>(<%=tot_cnt%>) <% next End if %>