<% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) Dim sLeftTitleImg sLeftTitleImg = "" Dim subMenu subMenu = "M5" %>
<% Dim News_ID News_ID = Trim(Request("News_ID")) Dim B_Category B_Category = Trim(Request("B_Category")) Dim sqlVisit sqlVisit = "UPDATE E3_News_Announcement Set Read_Cnt = Read_Cnt + 1 WHERE B_Category = '"&B_Category&"' AND News_ID = " & News_ID objQuery.Execute(sqlVisit) Dim rsNews Set rsNews = funcGetNewsDetail(objQuery, News_ID) %>
 
ÀÛ¼ºÀÚ ¿öÄ¿Èú¿©Çà»ç
ÀÛ¼º³¯Â¥ <%=rsNews("Write_Date")%>
Á¶È¸¼ö <%=rsNews("Read_Cnt")%>
Á¦¸ñ <%=rsNews("Title")%>

³»¿ë

<%=replace(rsNews("Content"), chr(10), "
")%>

<% rsNews.close Set rsNews = Nothing %>
 
 
<% End Sub %>