" & vbNewLine & _
" " & vbNewLine
'### Create a table, then write the name of the month and the year ###
Response.Write "" & vbNewLine & _
"" & vbNewLine & _
"" & _
" | " & vbNewLine & _
" " & getCurrentIcon(strIconLeftArrow,strCalPrevMonth,"") & " | " & vbNewLine & _
" " & vbNewLine & _
" " & MonthName(Month(dateHolder)) & " " & Year(dateHolder) & " | " & vbNewLine & _
" " & vbNewLine & _
" " & getCurrentIcon(strIconRightArrow,strCalNextMonth,"") & " | " & vbNewLine & _
" " & vbNewLine & _
"" & vbNewLine
'### Generate the days of the week ###
Dim intDays, dayofWeek
dayofWeek = intFirstDayofWeek - 1
For intDays=1 to 7
Response.Write "| " & _
"" & _
WeekDayName(dayofWeek mod 7 + 1, 1) & " | "
dayofWeek = dayofWeek + 1
Next
'### 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=1 to 7
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
'### 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
if not(rs.EOF) then
Response.Write " "
'### 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
' ### Jump to Month Form ###
Response.Write "" & 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 " |