<% '### NEW EVENTS CALENDAR MOD FOR SNITZ 3.4.03 ### dateHolder = dateValue(strForumTimeAdjust) '### Birthday Mod - Must Use Birthdate in Member Profile - Huntress Beta v2.0 ### ' change the value of BdayDays to the number of days you want in recent and upcoming BdayDays = 31 Response.Write "" & vbNewLine Response.Write "" & vbNewLine Response.Write "

" & vbNewLine Response.Write " " & vbNewLine Response.Write " " & vbNewLine Response.Write " " & vbNewLine Response.Write " " & vbNewLine Response.Write " " & fLang("strLangEvents_Calendar00010") & "" & vbNewLine Response.Write " " & vbNewLine DrawMonth Date,0,0,1 Response.Write " " & vbNewLine Response.Write "" & vbnewline & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbnewline & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & fLang("strLangCla00070") & "" & " " & vbNewLine Response.Write " " & vbNewLine '### Birthday Mod - Must Use Birthdate in Member Profile - Huntress Beta v2.0 ### '### Get the topics from the database ### strSql = "SELECT T.TOPIC_ID, " strSql = strSql & "T.T_SUBJECT, " strSql = strSql & "T.FORUM_ID, " strSql = strSql & "T.T_STATUS, " strSql = strSql & "C.CAT_MODERATION, " strSql = strSql & "F.F_MODERATION " strSql = strSql & "FROM " & strTablePrefix & "TOPICS T, " strSql = strSql & strTablePrefix & "CATEGORY C, " strSql = strSql & strTablePrefix & "FORUM F " strSql = strSql & "WHERE T.T_ISEVENT=1 " strSql = strSql & "AND T.T_EVENT_DATE = '" & DatetoStr(dateHolder) & "' " strSql = strSql & "AND F.FORUM_ID = T.FORUM_ID " strSql = strSql & "AND C.CAT_ID = T.CAT_ID" set rs = Server.CreateObject("ADODB.Recordset") rs.Open StrSql, My_conn if rs.EOF then Response.Write " " & fLang("strLangCla00180") & " " & vbNewLine else do while not(rs.EOF) Topic_ID = rs("TOPIC_ID") Topic_Subject = rs("T_SUBJECT") Forum_ID = rs("FORUM_ID") Topic_Status = rs("T_STATUS") 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 " " & _ " " & Topic_Subject & " " & vbNewLine end if rs.Movenext loop end if rs.close set rs = nothing '### Birthday Mod - Must Use Birthdate in Member Profile - Huntress Beta v2.0 ### Response.Write " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine '### Upcoming Events ### Response.Write "" & vbnewline & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbnewline & _ " " & vbNewLine & _ " " & strCalUpcoming & "" & vbNewLine & _ " " & fLang("strLangCla00130") & "" & " " & vbNewLine WriteUpcomingEvents Response.Write " " & vbNewLine & _ " " & vbNewLine '### Recent Events ### Response.Write " " & vbnewline & _ " " Response.Write " " & vbNewLine & _ " " & _ " " & vbNewLine & _ " " & strCalRecent & "" & vbNewLine & _ " " & fLang("strLangCla00140")& "" & " " & vbNewLine WriteRecentEvents Response.Write " " & vbNewLine & _ " " & vbNewLine & vbNewLine Response.Write " " & vbNewLine PrepBdayTables WriteBirthdays if strBirthMail = "1" and strEmail = "1" then EmailBirthdays end if Response.Write " " & vbNewLine Response.Write "

" & vbNewLine '### Birthday Mod - Must Use Birthdate in Member Profile - Huntress Beta v2.0 ### %>