sp1000je
26 lines
792 B
Plaintext
26 lines
792 B
Plaintext
<!--#include virtual="/common/lib/dbcon.asp"-->
|
|
<!--#include virtual="/common/lib/func.asp"-->
|
|
<%
|
|
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 <> ''" )
|
|
%>
|
|
<option value="<%=bdm_idx%>" <%=chkSelect(bdm_idx, value)%> data-count="<%=tot_cnt%>"><%=bdm_menuname%>(<%=tot_cnt%>)</option>
|
|
<%
|
|
next
|
|
End if
|
|
%> |