<%
Application_domain = Request.ServerVariables("HTTP_HOST")
a_num = request("a_num")
Select Case a_num
case "71074505": '공지사항
Application_name = "대구광역시 남부교육지원청 공지사항"
case "7569561": '행사앨범
Application_name = "대구광역시 남부교육지원청 행사앨범"
case "17184857": '행사정보
Application_name = "대구광역시 남부교육지원청 행사정보"
Case Else
%>
<%
response.end
End select
%>
<%= Application_name %>
<%= Application_domain %>
RSS version 2.0ko
<%
sql = "select a_tablename, a_bbsname from board_config where a_num = '"&a_num&"'"
Set Rs = Dbcon.Execute (sql)
If Not rs.eof Then
a_tablename = Rs("a_tablename")
a_bbsname = Rs("a_bbsname")
End If
rs.close : Set rs = nothing
sql = "select top 15 b_num, b_subject, b_content, b_regdate from "&a_tablename &" order by b_ref desc, b_step"
Set Rs = Dbcon.Execute (sql)
If Not rs.eof Then
vData =rs.getrows
For i=0 To UBound(vData,2)
b_num = vData(0,i)
b_subject = vData(1,i)
b_content = vData(2,i)
b_regdate = vData(3,i)
%>
<![CDATA[<%=b_subject%>]]>
]]>
]]>
]]>]]>
<%
next
End if
%>