<%@ Language=VBScript %> <% DBConn() %>

<% '공지사항 출력을 위해 DB 연결 SQL = "select top 4 * from notice_list order by id_num desc" 'response.write sql sqlResult rsResult,sql,0 If Not rsResult.EOF then For j = 1 to rsResult.RecordCount strSubject = RestoreWord(rsResult("title")) If Len(strSubject) > 20 then strSubject = Mid(strSubject,1,20) & ".." End if %> <% i = i + 1 rsResult.MoveNext if rsResult.EOF = true then Exit for Next End if sqlClose rsResult 'response.write i For k = i To 4 - 1 %> <% Next %> &page=1" class="news"><%=strSubject%> [<%=Left(rsResult("date"),10)%>] <% if DateDiff("h",rsResult("date"),Now()) < 20 then%><% end if %>

<% DBClose() %>