<% Dim idx, subject, writeDate, contents, fileName1, fileSize1, fileName2, fileSize2, hit, kind Dim SQL, RS, tableName Dim branchs, period, n tableName = "TB_EVENT" '### DB 테이블명 idx = Trim(Request("idx")) SQL = "SELECT idx, subject, writeDate, contents, fileName1, fileSize1, fileName2, fileSize2, 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") contents = Replace(contents, chr(13) & chr(10), "
") fileName1 = RS("fileName1") fileSize1 = RS("fileSize1") fileName2 = RS("fileName2") fileSize2 = RS("fileSize2") writeDate = RS("writeDate") hit = RS("hit") branchs = RS("branchs") period = RS("period") kind = RS("kind") '조회수 증가 SQL = "UPDATE " & tableName & " SET hit = " & hit + 1 SQL = SQL & " WHERE idx = " & idx Dbcon.Execute(SQL) RS.Close Set RS = Nothing %>

<% If Session("admin_div") > 0 Then %> <% End If %>

제목	<%=subject%>
기간	<%=period%> <% If kind = "N" Then %>[종료]<% Else %>[진행중]<% End If %>
지점	<% branchs = Split(branchs, ", ") For n=0 to UBound(branchs) Response.Write " " Next %>
<% If fileName2 <> "" Then Response.Write " " : %> <%=contents%>
배너이미지	<% If fileName1 <> "" Then %> <%=fileName1%> (<%=FormatNumber(fileSize1, 0)%> byte) <% End If %>
상세이미지	<% If fileName2 <> "" Then %> <%=fileName2%> (<%=FormatNumber(fileSize2, 0)%> byte) <% End If %>

<% If Trim(session("admin_div")&"") = "1" Then %> <% End If %>