<%
Dim bdm_idx, info_url, bdm_depth, bdm_code, bdm_ref, bdm_menuname, bdm_t_clr, bdm_ro_clr, bdm_chk, bdm_type, bdm_target, bdm_bbs, bdm_editor, bdm_url, bdm_wdate, bdm_id
Dim prepage
prepage = Request.ServerVariables("path_info") & "?" & Request.ServerVariables("query_string")
r_fields_s = "bdm_idx, info_url, bdm_depth, bdm_code, bdm_ref, bdm_menuname, bdm_t_clr, bdm_ro_clr, bdm_chk, bdm_type, bdm_target, bdm_bbs, bdm_editor, bdm_url, bdm_wdate, bdm_id"
table = "bd_address"
Where = " where bdm_id = '" & session("ss_m_id") & "'"
Orderby = " order by bdm_code asc "
sql = "select " & r_fields_s & " from " & table & Where & Orderby
Set rs = dbcon.execute( sql )
If rs.bof Or rs.eof Then
list_data = null
Else
list_data = rs.getrows
End if
Set rs = nothing
%>
 |
  주소록 |
그룹관리 서식
| 순서 |
그룹 |
수정 |
삭제 |
<%
If Not( isnull( list_data ) ) Then
For i = 0 To Ubound(list_data, 2)
Call arr2Value(r_fields_s, "list_data", i)
%>
<%
next
End if
%>
|
|