<% '################################################################################# '## Ver.3.4.06 multi-language Skin3D Portal '################################################################################# '## Copyright (C) 2001-07 Gaëtan Dupont All Rights Reserved '## '## By using this program, you are agreeing to the terms of the '## GNU General Public License. '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or (at your option) any later version. '## '## All copyright notices regarding ImageForums2001 must remain intact '## in the scripts and in the outputted HTML. '## The "Image Forums 2001" text with a link back to '## http://www.forums2001.ca in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## Support can be obtained from support forums at: '## http://www.forums2001.ca '## '## Email: image_forum_2001@hotmail.com '## '################################################################################# '## This Page Contains source code of Snitz Forums 2000 '################################################################################# '## Snitz Forums 2000 v3.4.06 '################################################################################# '## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen, '## Huw Reddick and Richard Kinser '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or (at your option) any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from our support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## manderson@snitz.com '## '################################################################################# %> <% '### NEW EVENTS CALENDAR MOD FOR SNITZ 3.4.03 ### Response.Write "" & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangAll_Forums00010) & "
" & vbNewLine & _ getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconEvent,"","align=""absmiddle""") & " " & fLang(strLangEvents_Calendar00010) & "


" & vbNewLine select case Request.Querystring("view") case "weekly" Call Weeklyview case "monthly" Call Monthlyview case "yearly" Call Yearlyview case "eventslist" Call Eventslistview case else Call Dailyview end select Response.Write "
" WriteFooter Response.End '####################################################### Sub Dailyview '## '####################################################### '### Check for valid date input ### dim dateHolder if Request.Querystring("date")="" then dateHolder=DateValue(strForumTimeAdjust) else dateHolder=DateValue(CDate(Request.Querystring("date"))) end if Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & fLang(strLangCla00030) & "" & vbNewLine & _ " " & fLang(strLangCla00040) & "" & vbNewLine & _ " " & fLang(strLangCla00050) & "" & vbNewLine & _ " " & fLang(strLangCla00060) & "" & vbNewLine & _ " " & fLang(strLangCla00070) & "" & vbNewLine & _ "  
" & vbnewline & _ "
" & vbNewLine & _ "

" & vbNewLine & _ " " & fLangN(strLangCla00080,FormatDateTime(strForumTimeAdjust,vbLongDate)) & "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbnewline '### Small Monthly Calendar ### Response.Write "

" & vbNewLine & _ " " & fLang(strLangCla00090) & "
" & FormatDateTime(dateHolder, vbLongDate) & "

" & vbNewLine '### Get the topics from the database ### dim strSql strSql = "SELECT T.TOPIC_ID, " & _ "T.T_SUBJECT, " & _ "T.T_MESSAGE, " & _ "T.T_AUTHOR, " & _ "T.T_REPLIES, " & _ "T.FORUM_ID, " & _ "T.T_STATUS, " & _ "C.CAT_ID, " & _ "C.CAT_MODERATION, " & _ "F.F_MODERATION, " & _ "M.M_NAME " & _ "FROM " & strTablePrefix & "TOPICS T, " & _ strTablePrefix & "CATEGORY C, " & _ strTablePrefix & "FORUM F, " & _ strMemberTablePrefix & "MEMBERS M " & _ "WHERE T.T_ISEVENT=1 " & _ "AND T.T_EVENT_DATE = '" & DatetoStr(dateHolder) & "' " & _ "AND T.T_AUTHOR=M.MEMBER_ID " & _ "AND F.FORUM_ID = T.FORUM_ID " & _ "AND C.CAT_ID = T.CAT_ID " dim rs set rs = Server.CreateObject("ADODB.Recordset") rs.Open StrSql, My_conn if rs.EOF then '### There are no events for this date. ### Response.Write "" & fLang(strLangCla00180) & "" else do while not(rs.EOF) '### Load the database values into local variables ### Topic_ID = rs("TOPIC_ID") Topic_Subject = rs("T_SUBJECT") Topic_Message = rs("T_MESSAGE") Topic_Author = rs("T_AUTHOR") Topic_Replies = rs("T_REPLIES") Forum_ID = rs("FORUM_ID") Topic_Status = rs("T_STATUS") Cat_ID = rs("CAT_ID") Cat_Moderation = rs("CAT_MODERATION") Forum_Moderation = rs("F_MODERATION") Member_Name = rs("M_NAME") '########### Check for access ########### if mLev = 4 then AdminAllowed = 1 ForumChkSkipAllowed = 1 elseif mLev = 3 then if chkForumModerator(Forum_ID, chkString(strDBNTUserName,"decode")) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 1 else if lcase(strNoCookies) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 0 else AdminAllowed = 0 ForumChkSkipAllowed = 0 end if end if elseif lcase(strNoCookies) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 0 else AdminAllowed = 0 ForumChkSkipAllowed = 0 end if if strPrivateForums = "1" and ForumChkSkipAllowed <> "1" then forumAccess = ChkForumAccess(Forum_ID, MemberID, false) else forumAccess = true end if if strModeration > 0 and Cat_Moderation > 0 and Forum_Moderation > 0 and AdminAllowed = 0 then Moderation = "Y" else Moderation = "N" end if '######################################### if forumAccess and not(Moderation = "Y" and Topic_Status > 1 and Topic_Author <> MemberID) then '### Output the topics to the page ### Response.Write "

" & getCurrentIcon(strIconEvent,"","vAlign=""middle""") & vbNewLine & _ "" & vbNewLine & _ "" & vbnewline & _ "" & Topic_Subject & "

" & vbNewLine & _ "" & vbnewline & _ formatstr(Topic_Message) & "
" & vbNewLine & _ "" & fLangN(strLangCla00100, "" & profileLink(chkString(Member_Name,"display"),Topic_Author)) & " " & vbnewline '### Write the number of replies to the topic ### if Topic_Replies > 0 then Response.Write "(" & Topic_Replies & " " if Topic_Replies > 1 then Response.Write fLang(strLangReplies00010) else Response.Write fLang(strLangCla00440) Response.Write ")" end if Response.Write "" & vbNewLine '### Draw Post Buttons ### if mlev =4 or lcase(strNoCookies) = "1" then if (Topic_Status <> 0) then Response.Write "" & getCurrentIcon(strIconFolderLocked,fLang(strLangLock_Topic00010),"align=""absmiddle""") & "" & vbNewLine else Response.Write "" & getCurrentIcon(strIconFolderUnlocked,fLang(strLangCla00420),"align=""absmiddle""") & "" & vbNewLine end if end if if ((Topic_Status > 0 and Topic_Author = MemberID) or mlev =4 or lcase(strNoCookies) = "1" ) then Response.Write "" & getCurrentIcon(strIconPencil,"Edit Topic","align=""absmiddle""") & "" & vbNewLine end if if (Topic_Author = MemberID and Topic_Replies=0) or mlev =4 or lcase(strNoCookies) = "1" then Response.Write "" & getCurrentIcon(strIconTrashCan,fLang(strLangDelete_Topic00010),"align=""absmiddle""") & "" & vbNewLine end if if Topic_Status <= 1 then Response.Write "" & getCurrentIcon(strIconReplyTopic,fLang(strLangReply_to_Topic00010),"align=""absmiddle""") & "" & vbNewLine end if else Response.Write "" & fLang(strLangCla00180) & "" end if rs.Movenext loop end if rs.close set rs = nothing '### Add Event Form ### call AddEventForm(dateHolder) Response.Write "
" & vbnewline Drawmonth dateHolder,1,1,1 Response.Write "
" & vbNewLine '### Upcoming Events ### Response.Write "" & vbnewline & _ "
"& vbnewline & _ " " & vbNewLine & _ " " & vbnewline & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & fLang(strLangCla00130) & "
" & vbNewLine WriteUpcomingEvents Response.Write "  
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine '### Recent Events ### Response.Write "" & vbnewline & _ "
" & vbnewline & _ " " & vbNewLine & _ " " & vbnewline & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & fLang(strLangCla00140) & "
" & vbNewLine WriteRecentEvents Response.Write "  
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine End sub 'Dailyview '####################################################### Sub Weeklyview '## '####################################################### '### Check for valid date input ### dim dateHolder if Request.Querystring("date")="" then dateHolder=DateValue(strForumTimeAdjust) else dateHolder=DateValue(CDate(Request.Querystring("date"))) end if dateCursor = dateHolder '### Move to the first day of the week ### do while Weekday(dateCursor) <> intFirstDayofWeek dateCursor = DateAdd("d",-1,dateCursor) loop Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & fLang(strLangCla00030) & "" & vbNewLine & _ " " & fLang(strLangCla00040) & "" & vbNewLine & _ " " & fLang(strLangCla00050) & "" & vbNewLine & _ " " & fLang(strLangCla00060) & "" & vbNewLine & _ " " & fLang(strLangCla00070) & " " & vbNewLine & _ "
" & _ "
" & vbNewLine & _ "

" & vbNewLine & _ " " & fLangN(strLangCla00080,FormatDateTime(strForumTimeAdjust,vbLongDate)) & "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbnewline '### Small Monthly Calendar ### Response.Write "

" & vbNewLine & _ " " & fLang(strLangCla00090) & "
" & _ " " & getCurrentIcon(strIconLeftArrow,fLang(strLangCla00340),"") & "" & vbNewLine & _ " " & FormatDateTime(dateCursor,vbLongDate) & " - " & FormatDateTime(DateAdd("d",6,dateCursor),vbLongDate) & "" & vbNewLine & _ " " & getCurrentIcon(strIconRightArrow,fLang(strLangCla00350),"") & "

" & vbNewLine '### Get the topics from the database dim strSql strSql = "SELECT T.TOPIC_ID, " & _ "T.T_SUBJECT, " & _ "T.T_MESSAGE, " & _ "T.T_AUTHOR, " & _ "T.FORUM_ID, " & _ "T.T_STATUS, " & _ "T.T_EVENT_DATE, " & _ "C.CAT_MODERATION, " & _ "F.F_MODERATION " & _ "FROM " & strTablePrefix & "TOPICS T, " & _ strTablePrefix & "CATEGORY C, " & _ strTablePrefix & "FORUM F " & _ "WHERE T.T_ISEVENT=1 " & _ "AND T.T_EVENT_DATE >= '" & DatetoStr(dateCursor) & "' " & _ "AND T.T_EVENT_DATE < '" & DatetoStr(DateAdd("d", 7 ,dateCursor)) & "' " & _ "AND F.FORUM_ID = T.FORUM_ID " & _ "AND C.CAT_ID = T.CAT_ID " dim rs set rs = Server.CreateObject("ADODB.Recordset") rs.Open StrSql, My_conn, adOpenStatic '### Determine if there are any events to display ### intEventsforWeek = rs.RecordCount '### 7 days in a week ### dim iWeek for iWeek=1 to 7 Response.Write "" & vbnewline & _ "
" & vbnewline & _ "" & vbnewline & _ "" & vbnewline & _ "
" & vbnewline & _ getCurrentIcon(strIconEvent,"","align=""absmiddle""") & " " & _ FormatDateTime(dateCursor, vbLongDate) & vbnewline & _ "" & vbnewline & _ "
" & vbnewline '### Get the Events for this day only ### if intEventsforWeek > 0 then rs.filter = "" rs.filter="T_EVENT_DATE='" & DateToStr(dateCursor) & "'" end if '### Loop through the recordset to find the events for this date ### if rs.EOF then '### There are no events for this date ### Response.Write "" & fLang(strLangCla00180) & "" & vbnewline else do until rs.EOF '### Load the values from the database into local variables ### Topic_ID = rs("TOPIC_ID") Topic_Subject = rs("T_SUBJECT") Topic_Message = rs("T_MESSAGE") Topic_Author = rs("T_AUTHOR") Forum_ID = rs("FORUM_ID") Topic_Status = rs("T_STATUS") Event_Date = StrToDate(rs("T_EVENT_DATE")) Cat_Moderation = rs("CAT_MODERATION") Forum_Moderation = rs("F_MODERATION") '########### Check for access ########### if mLev = 4 then AdminAllowed = 1 ForumChkSkipAllowed = 1 elseif mLev = 3 then if chkForumModerator(Forum_ID, chkString(strDBNTUserName,"decode")) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 1 else if lcase(strNoCookies) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 0 else AdminAllowed = 0 ForumChkSkipAllowed = 0 end if end if elseif lcase(strNoCookies) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 0 else AdminAllowed = 0 ForumChkSkipAllowed = 0 end if if strPrivateForums = "1" and ForumChkSkipAllowed <> "1" then forumAccess = ChkForumAccess(Forum_ID, MemberID, false) else forumAccess = true end if if strModeration > 0 and Cat_Moderation > 0 and Forum_Moderation > 0 and AdminAllowed = 0 then Moderation = "Y" else Moderation = "N" end if '######################################### if forumAccess and not(Moderation = "Y" and Topic_Status > 1 and Topic_Author <> MemberID) then '### Output the topics to the page ### Response.Write "

" & getCurrentIcon(strIconRightArrow,"","") & "" & vbNewLine & _ "" & _ "" & Topic_Subject & "

" & vbNewLine & _ "" & _ formatstr(Topic_Message) & "" & vbNewLine else Response.Write "" & fLang(strLangCla00180) & "" & vbnewline end if rs.movenext loop end if '### Add Event Form ### Response.Write " " & _ "
" & vbnewline call AddEventForm(dateCursor) Response.Write "
" & vbnewline & _ "
" & vbnewline & _ "

" & vbnewline dateCursor = dateAdd("d", 1, dateCursor) next rs.close set rs = nothing Response.Write "
" & vbnewline DrawmonthWeekly dateHolder Response.Write "
" & vbNewLine '### Upcoming Events ### Response.Write "" & vbnewline & _ "
" & vbnewline & _ " " & vbNewLine & _ " " & vbnewline & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & fLang(strLangCla00130) & "
" & vbNewLine WriteUpcomingEvents Response.Write "  
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine '### Recent Events ### Response.Write "" & vbnewline & _ "
" & vbnewline & _ " " & vbNewLine & _ " " & vbnewline & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & fLang(strLangCla00140) & "
" & vbNewLine WriteRecentEvents Response.Write "  
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine End sub 'Weeklyview '####################################################### Sub Monthlyview '## '####################################################### '### Check for valid date input ### dim dateHolder if Request.Querystring("date")<>"" then dateHolder=DateValue(CDate(Request.Querystring("date"))) else if Request.Querystring("month")<>"" and Request.Querystring("year")<>"" then dateHolder=DateSerial(Request.Querystring("year"), Request.Querystring("month"), 1) else dateHolder=DateValue(strForumTimeAdjust) end if end if Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & fLang(strLangCla00030) & "" & vbNewLine & _ " " & fLang(strLangCla00040) & "" & vbNewLine & _ " " & fLang(strLangCla00050) & "" & vbNewLine & _ " " & fLang(strLangCla00060) & "" & vbNewLine & _ " " & fLang(strLangCla00070) & " " & vbNewLine & _ "
" & _ "
" & vbNewLine & _ "

" & vbNewLine & _ " " & fLangN(strLangCla00080,FormatDateTime(strForumTimeAdjust,vbLongDate)) & "

" & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine '### Create a table, then write the name of the month and the year ### Response.Write "" & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ "" & vbNewLine & _ "" & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine '### Generate the days of the week ### Dim intDays, dayofWeek dayofWeek = intFirstDayofWeek - 1 For intDays=vbSunday To vbSaturday Response.Write "" dayofWeek = dayofWeek + 1 Next Response.Write "" & vbNewLine '### Get the first day of the month ### dim dateCursor dateCursor= DateSerial(Year(dateHolder), Month(dateHolder), 1) '### If first day of the month is not Sunday (or Monday or whatever), step back to last Sunday or (Monday or whatever) of previous month ### Do while Weekday(dateCursor) <> intFirstDayofWeek dateCursor = DateAdd("d", -1, dateCursor) Loop '### Get the topics from the db ### strSql = "SELECT T.TOPIC_ID, " & _ "T.T_SUBJECT, " & _ "T.T_AUTHOR, " & _ "T.T_MESSAGE, " & _ "T.FORUM_ID, " & _ "T.T_STATUS, " & _ "T.T_EVENT_DATE, " & _ "C.CAT_MODERATION, " & _ "F.F_MODERATION " & _ "FROM " & strTablePrefix & "TOPICS T, " & _ strTablePrefix & "CATEGORY C, " & _ strTablePrefix & "FORUM F " & _ "WHERE T.T_ISEVENT=1 " & _ "AND (T.T_EVENT_DATE > '" & DateToStr(DateSerial(Year(dateHolder),Month(dateHolder),1-1)) & "') " & _ "AND (T.T_EVENT_DATE < '" & DateToStr(DateSerial(Year(dateHolder),Month(dateHolder)+1,1)) & "') " & _ "AND F.FORUM_ID = T.FORUM_ID " & _ "AND C.CAT_ID = T.CAT_ID " & _ "ORDER BY T.T_EVENT_DATE ASC" dim rs set rs = Server.CreateObject("ADODB.Recordset") rs.open StrSql, My_conn Do While dateCursor < DateSerial(Year(dateHolder), Month(dateHolder)+1, 1) Response.Write "" & vbNewLine For intDays=vbSunday To vbSaturday Response.Write "" & vbNewLine Next Response.Write "" & vbNewLine Loop rs.close set rs = nothing Response.Write "
" & vbNewLine & _ " " & getCurrentIcon(strIconLeftArrow,fLang(strLangCla00360),"") & "" & vbNewLine & _ " " & MonthName(Month(dateHolder)) & " " & Year(dateHolder) & "" & vbNewLine & _ " " & getCurrentIcon(strIconRightArrow,fLang(strLangCla00370),"") & "
" & _ "" & _ Left(WeekDayName(dayofWeek mod 7 + 1), 3) & "
dateSerial(Year(dateHolder), Month(dateHolder), 1-1) and dateCursor < dateSerial(Year(dateHolder), Month(dateHolder)+1, 1) then Response.Write " id=""datetoday"" " Response.Write ">" & vbnewline Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if not(rs.EOF) then Response.Write " " & vbNewLine & _ " " & vbnewline end if end if dateCursor=DateAdd ("d",1,dateCursor) Response.Write "
" & vbNewLine '### Don't bother writing the date if it doesn't fall within the month ### if dateCursor > dateSerial(Year(dateHolder), Month(dateHolder), 1-1) and dateCursor < dateSerial(Year(dateHolder), Month(dateHolder)+1, 1) then rs.filter="" rs.filter="T_EVENT_DATE='" & DateToStr(dateCursor) & "'" Response.Write " " & Day(dateCursor) & "" & vbNewLine & _ "
    " & vbNewLine '### Loop through the recordset to find the events for the current date ### do while not(rs.EOF) Topic_ID = rs("TOPIC_ID") Topic_Subject = rs("T_SUBJECT") Topic_Author = rs("T_AUTHOR") Topic_Message = rs("T_MESSAGE") Forum_ID = rs("FORUM_ID") Topic_Status = rs("T_STATUS") Event_Date = StrToDate(rs("T_EVENT_DATE")) Cat_Moderation = rs("CAT_MODERATION") Forum_Moderation = rs("F_MODERATION") '########### Check for access ########### if mLev = 4 then AdminAllowed = 1 ForumChkSkipAllowed = 1 elseif mLev = 3 then if chkForumModerator(Forum_ID, chkString(strDBNTUserName,"decode")) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 1 else if lcase(strNoCookies) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 0 else AdminAllowed = 0 ForumChkSkipAllowed = 0 end if end if elseif lcase(strNoCookies) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 0 else AdminAllowed = 0 ForumChkSkipAllowed = 0 end if if strPrivateForums = "1" and ForumChkSkipAllowed <> "1" then forumAccess = ChkForumAccess(Forum_ID, MemberID, false) else forumAccess = true end if if strModeration > 0 and Cat_Moderation > 0 and Forum_Moderation > 0 and AdminAllowed = 0 then Moderation = "Y" else Moderation = "N" end if '######################################### if forumAccess and not(Moderation = "Y" and Topic_Status > 1 and Topic_Author <> MemberID) then '### Output the topic to the page ### Response.Write "
  • " & Topic_Subject & "
  • " end if rs.movenext loop Response.Write "
" & vbNewLine & _ "
" & vbNewLine ' ### Jump to Month Form ### Response.Write "
" & vbnewline & _ "" & fLang(strLangCla00310) & "" & vbnewline & _ "" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ "
" & vbnewline ' ########################## Response.Write "
" '### Small Calendar for Previous Month ### Drawmonth dateAdd("m", -1, dateHolder),0,0,1 Response.Write "
" & vbNewLine '### Small Calendar for Next Month ### Drawmonth dateAdd("m", +1, dateHolder),0,0,1 Response.Write "
" & vbnewline & _ "
" & vbNewLine & _ "
" & vbNewLine End sub 'Monthlyview '####################################################### Sub Yearlyview '## '####################################################### '### Check for valid date input ### if Request.Querystring("date")<>"" then dateHolder=DateValue(CDate(Request.Querystring("date"))) else if Request.Querystring("year")<>"" then dateHolder=DateSerial(Request.Querystring("year"), 1, 1) else dateHolder=DateValue(strForumTimeAdjust) end if end if Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & fLang(strLangCla00030) & "" & vbNewLine & _ " " & fLang(strLangCla00040) & "" & vbNewLine & _ " " & fLang(strLangCla00050) & "" & vbNewLine & _ " " & fLang(strLangCla00060) & "" & vbNewLine & _ " " & fLang(strLangCla00070) & " " & vbNewLine & _ "
" & _ "
" & vbNewLine & _ "

" & vbNewLine & _ " " & fLangN(strLangCla00080,FormatDateTime(strForumTimeAdjust,vbLongDate)) & "

" & vbNewLine '### Set dateCursor to first day of the year ### dateCursor=dateSerial(Year(dateHolder), 1,1) Response.Write "" & vbNewLine & _ "" & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine for irows=1 to 4 Response.Write "" for icols=1 to 3 Response.Write "" next Response.Write "" &vbNewLine next Response.Write "
" & vbNewLine & _ " " & getCurrentIcon(strIconLeftArrow,fLang(strLangCla00380),"") & "" & Year(dateHolder) & "" & vbNewLine & _ " " & getCurrentIcon(strIconRightArrow,fLang(strLangCla00390),"") & "
" DrawMonth dateCursor, 0, 0, 0 dateCursor=dateAdd("m", 1, dateCursor) Response.Write "
" & vbNewLine & _ "
" & vbNewLine '### Jump To Year Form ### Response.Write "
" & vbnewline & _ "" & vbNewLine & _ "" & fLang(strLangCla00320) & "" & vbnewline & _ "" & vbNewLine & _ "" & vbNewLine & _ "
" & vbnewline & _ "
" & vbNewLine & _ "
" & vbNewLine End sub 'Yearlyview '####################################################### Sub EventsListView '## '####################################################### select case Request.Querystring("display") case "past" display="past" case else display="future" end select '### Added for paging ### dim intCurrentPage if Request("page") = "" or CInt(Request("page"))=0 then intCurrentPage = 1 else intCurrentPage = cInt(Request("page")) end if Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & fLang(strLangCla00030) & "" & vbNewLine & _ " " & fLang(strLangCla00040) & "" & vbNewLine & _ " " & fLang(strLangCla00050) & "" & vbNewLine & _ " " & fLang(strLangCla00060) & "" & vbNewLine & _ " " & fLang(strLangCla00070) & " " & vbNewLine & _ "
" & _ "
" & vbNewLine & _ "

" & vbNewLine & _ " " & fLangN(strLangCla00080,FormatDateTime(strForumTimeAdjust,vbLongDate)) & "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine '### Display Past/Future Events Selectbox ### Response.Write "
" & vbNewLine & _ "" & vbNewLine & _ "" & fLang(strLangCla00240) & "" & _ "" & vbNewLine & _ "
" & vbNewLine '### Events List Table ### Response.Write "" & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbnewline & _ " " & vbNewLine Select Case display Case "future" strSql = "SELECT T.TOPIC_ID, " & _ "T.T_SUBJECT, " & _ "T.T_MESSAGE, " & _ "T.T_AUTHOR, " & _ "T.T_EVENT_DATE, " & _ "T.FORUM_ID, " & _ "T.T_STATUS, " & _ "C.CAT_ID, " & _ "C.CAT_MODERATION, " & _ "F.F_MODERATION " & _ "FROM " & strTablePrefix & "TOPICS T, " & _ strTablePrefix & "CATEGORY C, " & _ strTablePrefix & "FORUM F " & _ "WHERE T.T_ISEVENT=1 " & _ "AND (T.T_EVENT_DATE >= '" & DateToStr(DateValue(strForumTimeAdjust)) & "') " & _ "AND F.FORUM_ID = T.FORUM_ID " & _ "AND C.CAT_ID = T.CAT_ID " & _ "ORDER BY T.T_EVENT_DATE Asc" Case "past" strSql = "SELECT T.TOPIC_ID, " & _ "T.T_SUBJECT, " & _ "T.T_MESSAGE, " & _ "T.T_AUTHOR, " & _ "T.T_EVENT_DATE, " & _ "T.FORUM_ID, " & _ "T.T_STATUS, " & _ "C.CAT_ID, " & _ "C.CAT_MODERATION, " & _ "F.F_MODERATION " & _ "FROM " & strTablePrefix & "TOPICS T, " & _ strTablePrefix & "CATEGORY C, " & _ strTablePrefix & "FORUM F " & _ "WHERE T.T_ISEVENT=1 " & _ "AND (T.T_EVENT_DATE < '" & DateToStr(DateValue(strForumTimeAdjust)) & "') " & _ "AND F.FORUM_ID = T.FORUM_ID " & _ "AND C.CAT_ID = T.CAT_ID " & _ "ORDER BY T.T_EVENT_DATE Desc" End Select dim rs set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = adUseClient rs.PageSize = intEventsPageSize rs.open StrSql, My_conn dim intTotalPages intTotalPages = rs.PageCount '### Added for paging ### if intCurrentPage < 1 then intCurrentPage = 1 if intCurrentPage > intTotalPages then intCurrentPage = intTotalPages if intCurrentPage <> 0 then rs.AbsolutePage = intCurrentPage if rs.EOF then Select Case display Case "future" '### There are no future events ### Response.Write "" & vbNewLine Case "past" '### There are no past events ### Response.Write "" & vbNewLine End Select else do while rs.AbsolutePage = intCurrentPage and not(rs.EOF) Topic_ID = rs("TOPIC_ID") Topic_Subject = rs("T_SUBJECT") Topic_Message = rs("T_MESSAGE") Topic_Author = rs("T_AUTHOR") Event_Date = StrToDate(rs("T_EVENT_DATE")) Forum_ID = rs("FORUM_ID") Topic_Status = rs("T_STATUS") Cat_ID = rs("CAT_ID") Cat_Moderation = rs("CAT_MODERATION") Forum_Moderation = rs("F_MODERATION") '########### Check for access ########### if mLev = 4 then AdminAllowed = 1 ForumChkSkipAllowed = 1 elseif mLev = 3 then if chkForumModerator(Forum_ID, chkString(strDBNTUserName,"decode")) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 1 else if lcase(strNoCookies) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 0 else AdminAllowed = 0 ForumChkSkipAllowed = 0 end if end if elseif lcase(strNoCookies) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 0 else AdminAllowed = 0 ForumChkSkipAllowed = 0 end if if strPrivateForums = "1" and ForumChkSkipAllowed <> "1" then forumAccess = ChkForumAccess(Forum_ID, MemberID, false) else forumAccess = true end if if strModeration > 0 and Cat_Moderation > 0 and Forum_Moderation > 0 and AdminAllowed = 0 then Moderation = "Y" else Moderation = "N" end if '######################################### if forumAccess and not(Moderation = "Y" and Topic_Status > 1 and Topic_Author <> MemberID) then Response.Write "" & vbNewLine & _ "" & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbnewline & _ "" & vbnewline end if rs.movenext loop end if rs.close set rs = nothing Response.Write "" & vbNewLine & _ "
 " & fLang(strLangTitle00010) & "" & fLang(strLangCla00290) & " 
" & fLang(strLangCla00270) & "
" & fLang(strLangCla00280) & "
" & getCurrentIcon(strIconEvent,"","align=""absmiddle""") & "" & Topic_Subject & "" & FormatDateTime(Event_Date,vbLongdate) & "" & vbnewline '### Draw Post Buttons ### if mlev =4 or lcase(strNoCookies) = "1" then if (Topic_Status <> 0) then Response.Write " " & getCurrentIcon(strIconFolderLocked,fLang(strLangLock_Topic00010),"") & "" & vbNewLine else Response.Write " " & getCurrentIcon(strIconFolderUnlocked,fLang(strLangCla00420),"") & "" & vbNewLine end if end if if ((Topic_Status > 0 and Topic_Author = MemberID) or mlev =4 or lcase(strNoCookies) = "1" ) then Response.Write " " & getCurrentIcon(strIconPencil,"Edit Topic","hspace=""0""") & "" & vbNewLine end if if (Topic_Author = MemberID and Topic_Replies=0) or mlev =4 or lcase(strNoCookies) = "1" then Response.Write " " & getCurrentIcon(strIconTrashCan,fLang(strLangDelete_Topic00010),"") & "" & vbNewLine end if if Topic_Status <= 1 then Response.Write " " & getCurrentIcon(strIconReplyTopic,fLang(strLangReply_to_Topic00010),"") & "" & vbNewLine end if '######################## Response.Write "
" & vbnewline '### Show Paging ### if intTotalPages > 1 then Response.Write "
" & vbnewline & _ "" & vbNewLine & _ "" & vbNewLine & _ "" & fLang(strLangCla00330) & "" & _ "" & _ "" & vbnewline else Response.Write " " end if Response.Write "
" & vbNewLine & _ "
" & vbNewLine call AddEventForm(DateValue(strForumTimeAdjust)) Response.Write "
" & vbNewLine & _ "
" & vbNewLine End sub 'EventsListView %>