<% Dim idx, subject, writeDate, contents, fileName1, fileSize1, fileName2, fileSize2, hit, kind Dim userId, userName Dim SQL, RS, tableName Dim mode Dim branchs, period Dim check_U000, check_U001, check_U002, check_U003, check_U004, check_U005, check_U006, check_U007, check_U008, check_U009 tableName = "TB_EVENT" '### DB 테이블명 mode = Trim(Request("mode")) : If mode <> "edit" Then mode = "insert" End If idx = Trim(Request("idx")) userId = Session("id") userName = Session("name") Call CheckAuth(userId, mode) '### 접근 권한 체크 If mode = "edit" Then SQL = "SELECT idx, subject, writeDate, contents, fileName1, fileName2, hit, branchs, period, kind FROM " & tableName & " A" SQL = SQL & " WHERE idx = " & idx Set RS = Dbcon.Execute(SQL) idx = RS("idx") subject = RS("subject") contents = RS("contents") fileName1 = RS("fileName1") fileName2 = RS("fileName2") writeDate = DateValue(RS("writeDate")) hit = RS("hit") branchs = RS("branchs") period = RS("period") kind = RS("kind") RS.Close Set RS = Nothing '지점 체크 branchs = Split(branchs, ", ") For n=0 to UBound(branchs) Select Case branchs(n) Case "U000" check_U000 = " checked" Case "U001" check_U001 = " checked" Case "U002" check_U002 = " checked" Case "U003" check_U003 = " checked" Case "U004" check_U004 = " checked" Case "U005" check_U005 = " checked" Case "U006" check_U006 = " checked" Case "U007" check_U007 = " checked" Case "U008" check_U008 = " checked" Case "U009" check_U009 = " checked" End Select Next End If %>

이달의 EVENT

제목
기간
지점 >   >   >   >   >   >   >   >   >
내용
배너이미지   <% If fileName1 <> "" Then %> <%=fileName1%>   삭제 <% End If %> ( 크기 : 438 * 148 픽셀 )
상세이미지   <% If fileName2 <> "" Then %> <%=fileName2%>   삭제 <% End If %>
진행여부 "N" Then %> checked<% End If %>>   checked<% End If %>>

취소