| |
 |
<%
'왼쪽 메뉴 항목 불러오기
SQL="Select OBJECT_CODE, OBJECT_NAME From D06OBJCOD " & _
"WHERE OBJECT_CODE LIKE '_000%' AND OBJECT_CODE >='A000' AND DISPLAY_GUBUN = 'Y' order by DISPLAY_SEQ"
Set OBJCOD = Server.CreateObject("ADODB.RecordSet" )
OBJCOD.Open SQL, objconn
i=1
%>
<%
do until OBJCOD.EOF
OBJECT_NAME = REPLACE(REPLACE(OBJCOD("OBJECT_NAME"),"[",""),"]","")
strOBJECT_CODE = MID(OBJCOD("OBJECT_CODE"),1,1)
select case strOBJECT_CODE
case "A","B"
gopage="/n_pagesA/pageA_01"
case "C","D","E"
gopage="/n_pagesE/pageE_01"
case "F"
gopage="/n_pagesD/pageD_01"
case "G"
gopage="/n_pagesC/pageC_01"
case "H"
gopage="/n_pagesB/pageB_01"
case "I","Z"
gopage="/n_pagesF/pageF_01"
end select
%>
bgcolor="FFFAEA"<%end if%>>
 |
<%=OBJECT_NAME%> |
<% OBJCOD.MoveNext
i = i + 1
loop
OBJCOD.Close
SET OBJCOD = NOTHING
%>
|
|
|
|
|
|
|
<%
'가운데 상단 명칭 가져오기
SQL = " Select CODE_NAME, VALUE3 From D02CDBODY "
SQL = SQL + " WHERE CODE_GUBUN = 'AREA_CODE' "
SQL = SQL + " AND CODE_ID = '" & area & "' "
Set OBJCOD = Server.CreateObject("ADODB.RecordSet" )
OBJCOD.Open SQL, objconn
SUB_AREA_NAME = OBJCOD("CODE_NAME")
FLICKR_TAG = OBJCOD("VALUE3")
%>
| <%=OBJCOD("CODE_NAME")%> |
Home >
지역별검색 >
<%=OBJCOD("CODE_NAME")%> |
<%
OBJCOD.Close
set OBJCOD = nothing
%>
|
|
<% '객체분류별 정보
SQL = " SELECT SUBSTRING(B.OBJECT_CODE,1,1) OBJECT_GROUP, B.OBJECT_CODE, C.OBJECT_NAME, B.CNT "
SQL = SQL + " FROM ( "
SQL = SQL + " SELECT A.OBJECT_CODE, COUNT(*) AS CNT "
SQL = SQL + " FROM D10OBJBAS A "
SQL = SQL + " WHERE A.OBJECT_LEVEL >= 0 "
SQL = SQL + " AND A.OBJECT_CODE >= 'A000' "
SQL = SQL + " AND A.AREA_CODE LIKE '" & mid(AREA,1,2)& "%' "
SQL = SQL + " GROUP BY A.OBJECT_CODE) B, D06OBJCOD C "
SQL = SQL + " WHERE B.OBJECT_CODE = C.OBJECT_CODE "
SQL = SQL + " order by C.OBJECT_CODE "
Set OBJMAP = Server.CreateObject("ADODB.RecordSet")
OBJMAP.Open SQL, objconn,1
old_ObjGrp = ""
do until OBJMAP.EOF
%>
<% if old_ObjGrp <> OBJMAP("OBJECT_GROUP") then %>
 000.gif" border="0" alt="<%=OBJMAP("OBJECT_NAME")%>" vspace="2" hspace="2" width="46" height="46"> |
<% end if %>
&area=<%=AREA%>"><%=OBJMAP("OBJECT_NAME")%>(<%=OBJMAP("CNT")%>)
<% old_ObjGrp = OBJMAP("OBJECT_GROUP")
OBJMAP.MoveNext
if OBJMAP.EOF then %>
|
<%
elseif old_ObjGrp <> OBJMAP("OBJECT_GROUP") then %>
<%end if
LOOP
OBJMAP.Close
SET OBJMAP = NOTHING
%>
|
<% if FLICKR_TAG <> "" then %>
|
<% end if %>
|
