" & vbNewLine & _
" | " & vbNewLine & _
" " & fLangN("strLangCla00080",FormatDateTime(strForumTimeAdjust,vbLongDate)) & " " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine
'### Create a table, then write the name of the month and the year ###
Response.Write "" & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" | " & getCurrentIcon(strIconLeftArrow,fLang("strLangCla00360"),"") & " | " & vbNewLine & _
" " & MonthName(Month(dateHolder)) & " " & Year(dateHolder) & " | " & vbNewLine & _
" " & getCurrentIcon(strIconRightArrow,fLang("strLangCla00370"),"") & " | " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine
'### Generate the days of the week ###
Dim intDays, dayofWeek
dayofWeek = cLng(intFirstDayofWeekNum) - 1
For intDays=vbSunday To vbSaturday
Response.Write "| " & Left(WeekDayName(dayofWeek mod 7 + 1), 3) & " | "
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) <> cLng(intFirstDayofWeekNum)
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 " 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
'### 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 & _
" " & vbNewLine
if not(rs.EOF) then
Response.Write " " & 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
end if
end if
dateCursor=DateAdd ("d",1,dateCursor)
Response.Write " | " & vbNewLine
Next
Response.Write " " & vbNewLine
Loop
rs.close
set rs = nothing
Response.Write " " & vbNewLine & _
" | " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine
' ### Jump to Month Form ###
Response.Write "" & vbNewLine
' ##########################
Response.Write " | " & vbNewLine
'### 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 & _
" | " & vbNewLine & _
"
" & vbNewLine & _
"