<% Dim gotopage,pagesize,pagecount,recordcount,i,no,uResult gotopage = chkNum(request("gotopage")) If gotopage < 1 Then gotopage = 1 pagesize = 5 qry = " EDel = 'N'" dbopen(db_name) Set rs=con.execute("select count(*) from TB_EVENT where "&qry) recordcount = rs(0) rs.close : Set rs=Nothing dbclose pagecount = int((recordcount-1)/pagesize)+1 If pagecount > 0 And Int(gotopage) > pagecount Then gotopage = pagecount Sub showList If recordcount = 0 Then pageChk = False %> 진행중인 이벤트가 없습니다 <% Else no = recordcount-(gotoPage-1)*pagesize If gotopage = 1 Then sql = "select top "&pagesize&" EIdx, WriterIdx, Subject, EventStartDay, EventEndDay, ImageFNm, Content, CONVERT(VARCHAR(10), RegiDate, 120) AS RegiDate,DeadlineFlag from TB_EVENT where "&qry&" order by EIdx desc" Else sql = "SELECT TOP "&pagesize&" EIdx, WriterIdx, Subject, EventStartDay, EventEndDay, ImageFNm, Content, CONVERT(VARCHAR(10), RegiDate, 120) AS RegiDate,DeadlineFlag FROM TB_EVENT WHERE "&qry&" and EIdx not in (SELECT TOP "&pagesize*(gotoPage-1)&" EIdx FROM TB_EVENT where "&qry&" order by EIdx desc) order by EIdx desc" End If Set rs=con.execute(sql) uResult = rs.getrows() rs.close : Set rs=Nothing For i = 0 To UBound(uResult,2) EIdx = uResult(0,i) WriterIdx = uResult(1,i) Subject = uResult(2,i) EventStartDay = uResult(3,i) EventEndDay = uResult(4,i) ImageFNm = uResult(5,i) Content = uREsult(6,i) RegiDate = uResult(7,i) DeadlineFlag = uResult(8,i) %>
<%=Subject%>
<%=Subject%>
이벤트기간 <%=EventStartDay%> ~ <%=EventEndDay%>
ing<% Else %>end<% End If %>.gif" alt="이벤트 상세보기" />
<% no = no - 1 Next End If End Sub %> 학교와 가정을 잇는 교육 주간지 미즈내일
  • 메인으로 가는 아이콘
  • >
  • 커뮤니티
  • >
  • 이벤트

진행중인 이벤트

<% dbopen(db_name) showList dbclose %>
진행중인 이벤트 목록
<% If recordcount > 0 Then %>
<% Call paging(gotopage,pagecount,search_url) %>
<% End If %>