<% on error resume next dirs = "../" PID = Request("PID") CatID = Request("CatID") if CatID = "" then CatID = 55 flag = Request("flag") %> 台灣 噶瑪滇真聽列惹薩•噶瑪噶居寺資訊網•法音訊息
      <%=Cascade%>
<% SYear = Request("SYear") SMonth = Request("SMonth") if SYear = "" then SYear = Year(Now()) - 1911 if SMonth = "" then SMonth = Month(Now()) SDate = (SYear+1911) & "/" & SMonth & "/" & "1" 'sql = "select max(SDate) as maxSDate from tblSchedule where SDate > '2005/12/31'" 'set rs = server.CreateObject("ADODB.Recordset") 'rs.Open sql, conn, 3, 1 'maxYear = Year(rs("maxSDate")) - 1911 'maxMonth = Month(rs("maxSDate")) 'For i = maxYear to 95 step -1 ' response.Write(i & "年｜") ' if i = maxYear then ' For j = maxMonth to 1 step -1 ' response.Write("" & j & "月｜") ' Next ' else ' For j = 12 to 1 step -1 ' response.Write("" & j & "月｜") ' Next ' end if 'Next %>
年 月行事曆
<% if SMonth = 10 then response.Write("十月 常住禁語月") %>
<% sql = "select SDate, Detail, pub, SLink, STarget from tblSchedule where SDate >= '" & SDate & "' and SDate < '" & dateadd("m", 1, SDate) & "' order by SDate, SID " set rs = server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 1 if not rs.EOF then EndDate = dateadd("m", 1, SDate) Do while CDate(SDate) < CDate(EndDate) %> > <% SDate = dateadd("d", 1, SDate) Loop end if %>
日期 星期 活動/課程
<%=DatePart("d", SDate)%> <% select case DatePart("w", SDate) case 1:response.Write("日") case 2:response.Write("一") case 3:response.Write("二") case 4:response.Write("三") case 5:response.Write("四") case 6:response.Write("五") case 7:response.Write("六") end select %> <% if not rs.EOF then Do while Cdate(SDate) = Cdate(rs("SDate")) if Trim(rs("Detail") & " ") <> "" then 'if rs("Pub") = "y" then ' fontcolor = "000000" 'else ' fontcolor = "AA0000" 'end if Detail = Trim(rs("Detail")) response.Write("") Detail = "" end if rs.MoveNext if rs.EOF then exit do Loop end if %>
•") if Trim(rs("SLink") & " ") <> "" then response.Write("") response.Write(Detail) if Trim(rs("SLink") & " ") <> "" then response.Write("") response.Write("
 
※例行活動：度母夜（週二）、觀音夜（週三）及四加行精進，詳情請參考週課表。
※行事曆內容會不定時更新調整，請以網站最新訊息為準。