<% 'Set rs = Server.CreateObject("ADODB.Recordset") sYear = Request("year") if sYear = "" then sYear = left(now(), 4) end if sYear = cint(sYear) queryString = "SELECT * FROM Kccnz_Events WHERE EVT_DT LIKE '" & sYear & "%' ORDER BY EVT_DT" dim aEvtSeq(12, 10) dim aEvtDT(12, 10) dim aContent(12, 10) dim aLocation(12, 10) dim aDriving(12, 10) dim aMonth(12, 10) dim aDay(12, 10) rs.Open queryString, dbcon If not rs.EOF then nPrevMonth = 0 nOffset = 0 Do Until rs.EOF sEvtSeq = rs("evt_seq") sEvtDT = rs("evt_dt") sContent = rs("content") sLocation = rs("location") sDriving = rs("driving") sMonth = cint(mid(sEvtDT, 5, 2)) sDay = cint(right(sEvtDT, 2)) if nPrevMonth = sMonth then nOffset = nOffset + 1 else nOffset = 0 end if aEvtSeq(sMonth, nOffset) = sEvtSeq aEvtDT(sMonth, nOffset) = sEvtDT aContent(sMonth, nOffset) = sContent aLocation(sMonth, nOffset) = sLocation aDriving(sMonth, nOffset) = sDriving aMonth(sMonth, nOffset) = sMonth sYMD = left(rs("evt_dt"), 4) & "-" & mid(rs("evt_dt"), 5, 2) & "-" & right(rs("evt_dt"), 2) aDay(sMonth, nOffset) = sDay & "(" & left(weekdayname(weekday(sYMD)), 1) & ")" nPrevMonth = sMonth rs.MoveNext Loop End If rs.Close dbcon.close %> :::찬미예수님, 크라이스트처치 성 정하상바오로 성당에 오신 것을 환영합니다:::
 
Home > 성당안내 > 행사안내
   
크라이스트처치 성 정하상바오로 성당
연중행사 계획표 <% if Session("userId") = "" then %> (관리) <% end if %>
   
<% if Session("userId") = "admin" then %>
행사 일자
행사내용
장소
주관부서
<% end if %>
<% nMonthPerRowCnt = 5 '한달에 최대 출력가능한 행의 수 for i=1 to 12 for j=0 to nMonthPerRowCnt-1 %> <% if j = 0 then %> <% end if %> <%=aEvtSeq(i, j)%> <%=left(aEvtDT(i, j), 4)%> <%=mid(aEvtDT(i, j), 5, 2)%> <%=right(aEvtDT(i, j), 2)%> <% next next %>
일자
행사내용
장소
주관부서
월
일(요일)
<%=i%>월 <%=aDay(i, j)%>
<%=aContent(i, j)%>
<% if Session("userId") = "admin" and aDay(i, j) <> "" then %> [ 수정 ] | [ 삭제 ] <% end if %> 		<%=aLocation(i, j)%> <%=aDriving(i, j)%>