<% '****************************************************************************************************************** 'System Name : ELIS Ver 1.0 '****************************************************************************************************************** 'File Name : board_m.asp 'File Description : ELIS Main Summary 'Developer : Taejin Kwon 'Date : 7/10/2009 'Modifier(Date) : None '****************************************************************************************************************** Dim G_MENU G_MENU = "BOARD" %> <%Call SubGlobalMenu() %>

<% CALL subTabIndexLink("BOARD") %>

<% CALL subTopMenu() %>

Bulletin Board

<%'Start ========================================================================================================================%> <% Dim B_Category B_Category = Trim(Request("B_Category")) Dim News_ID News_ID = Trim(Request("News_ID")) Dim Page Page = Trim(Request("Page")) Dim dbConn Set dbConn = GetDBConn() Dim strSQL Dim arrVal strSQL = " SELECT Title, Writer, Content " &_ " FROM E3_News_Announcement WHERE B_Category = '"&B_Category&"' AND News_ID = "& News_ID arrVal = arrGetDBResult(dbConn, strSQL) Dim Title, Content, Writer IF isArray(arrVal) Then Title = arrVal(0,0) Writer = arrVal(1,0) Content = arrVal(2,0) Else Title = "" Content = "" End IF %> Title Writer Contents <%=Content%> <% Dim BtnSubmit BtnSubmit = FuncRenderButton2("Submit", "javascript:InputData();", "right") %> <% Dim BtnCancel BtnCancel = FuncRenderButton2("Cancel", "javascript:List();", "left") %> <%'End =========================================================================================================================%>