<%
'memgr_logincookie "itech", "qhdkswjqth"
Dim bdm_idx, table
bdm_idx = Trim( Request.QueryString("bdm_idx") )
table = Trim( Request.QueryString("table") )
If bdm_idx <> "" And table <> "" Then
Select Case table
Case "member"
sql = "select M_name, (m_mobile1+'-'+m_mobile2+'-'+m_mobile3) as m_mobile from " & table & " where bdm_idx = " & bdm_idx
Case "bd_address_page"
If bdm_idx = "all" Then
sql = "select adr_name, adr_mobile1+adr_mobile2+adr_mobile3 from " & table & " where adr_m_id = '" & session("ss_m_id") & "' and adr_mobile1 <> '' and adr_mobile2 <> '' and adr_mobile3 <> '' order by adr_name"
ElseIf bdm_idx = "0" Then
sql = "select adr_name, adr_mobile1+adr_mobile2+adr_mobile3 from " & table & " where adr_m_id = '" & session("ss_m_id") & "' and (bdm_idx = 0 or bdm_idx = '') and adr_mobile1 <> '' and adr_mobile2 <> '' and adr_mobile3 <> '' order by adr_name"
else
sql = "select adr_name, adr_mobile1+adr_mobile2+adr_mobile3 from " & table & " where bdm_idx = " & bdm_idx & " and adr_m_id = '" & session("ss_m_id") & "' and adr_mobile1 <> '' and adr_mobile2 <> '' and adr_mobile3 <> '' order by adr_name"
End if
'response.write sql
End select
'response.write sql
Set rs = Dbcon.Execute( sql )
If rs.bof Or rs.eof Then
mem_list = Null
Else
mem_list = rs.getrows
End If
Set rs = nothing
Else
mem_list = null
End If
'---------------개인주소록 그룹 리스트-------------------------
sql = "select bdm_idx, bdm_menuname from bd_address where bdm_id = '"&session("ss_m_id")&"' and bdm_ref = 0 order by bdm_code"
Set juso_rs = DbCon.Execute(sql)
If juso_rs.bof Or juso_rs.eof Then
juso_data1 = Null
Else
juso_data1 = juso_rs.getrows
End If
Set juso_rs = Nothing
'-------------------개인주소록 리스트 끝-----------------------
%>
<%=site_name%>