<%@ CodePage=65001 Language="VBScript"%>
<% Option Explicit %>
<% sBBSLangPage = "calendar"
BBS.SetupBBS
BBS.SetScheme(0)
dictEnvironment.item("V-LOCATIONLINKS") = dictEnvironment.item("V-LOCATIONLINKS") & " -> " & dictLanguage("GLOBAL-LOCATION6")
dim sCalendarList, sModeratorList, iCalendarID, SQL
if dictConfiguration("bENABLECALENDAR") = 0 then response.redirect "../category-view.asp"
if not(BBS.HasPermission(PERM_ViewBBS, -1)) then response.redirect sBBSForumRoot & "/logon.asp?error=needregistration"
SQL = "select calendarid, calendarname, description from calendars order by calendarid asc"
rsmaster.open SQL, dbConnection, adOpenForwardOnly, adLockReadOnly
BBS.AddQuery(SQL)
sCalendarList = sCalendarList & ""
sCalendarList = sCalendarList & ""
sCalendarList = sCalendarList & ""
sCalendarList = sCalendarList & ""
sCalendarList = sCalendarList & "
"
do until rsMaster.EOF
iCalendarID = rsMaster.fields(0).value
if BBS.HasPermission(PERM_CalendarView, iCalendarID) then
sCalendarList = sCalendarList & ""
sCalendarList = sCalendarList & "| " & BBS.ValidateField(rsmaster.fields("calendarname").value) & " | "
sCalendarList = sCalendarList & "" & BBS.MBBSDecode(rsmaster.fields("description").value, 1) &" | "
sModeratorList = BBS.ListMembers (MODULE_Calendars, USERLEVEL_Moderator, iCalendarID)
if len(sModeratorList) > 0 then
sCalendarList = sCalendarList & " " & sModeratorList & " | "
else
sCalendarList = sCalendarList & " | "
end if
sCalendarList = sCalendarList & "
"
end if
rsmaster.movenext
loop
rsmaster.Close
dictEnvironment("V-CALENDARLIST") = sCalendarList
dictEnvironment.add "V-TITLE", dictLanguage("CALENDAR-TITLE")
dictEnvironment.add "C-SHOWRANDOMQUOTES", dictConfiguration("bDISPLAYBBSQUOTES")
if iBBSUserLevel >= USERLEVEL_SupportAdministrator then dictEnvironment.add "C-SHOWADMINLINK", 1
%>
<% Filesystem.ExecuteBBSTemplate("/calendar/calendar-list.asp") %>