'*****************************************************************
 Sub WriteUpcomingEvents
'*****************************************************************

strSql = "SELECT "
If strDBtype = "access" or strDBtype = "sqlserver" then strSql = strSql & "TOP " & intCalEventstoDisplay & " "
strSql = strSql &   "T.TOPIC_ID, " & _
                    "T.T_SUBJECT, " & _
                    "T.FORUM_ID, " & _
                    "T.T_STATUS, " & _
                    "E.EVENT_DATE, " & _
                    "C.CAT_MODERATION, " & _
                    "F.F_MODERATION " & _
    "FROM ((" & _ 
        strTablePrefix & "TOPICS AS T " & _
    "INNER JOIN " & _
        strTablePrefix & "CAL_EVENTS AS E ON E.TOPIC_ID = T.TOPIC_ID) " & _
    "INNER JOIN " & _
        strTablePrefix & "CATEGORY AS C ON C.CAT_ID = T.CAT_ID) " & _
    "INNER JOIN " & _
            strTablePrefix & "FORUM AS F ON F.FORUM_ID = T.FORUM_ID " & _
    "WHERE T.T_ISEVENT=1 " & _
    "AND   E.EVENT_DATE > '" & DateToStr(DateValue(strForumTimeAdjust)) & "' " & _
    "AND   T.FORUM_ID IN (" & arrRqCalForumID & ")" &  _
    "ORDER BY E.EVENT_DATE Asc"


set rs = Server.CreateObject("ADODB.Recordset")
rs.MaxRecords = intCalEventstoDisplay
rs.open StrSql, My_conn


If rs.EOF then
    Response.Write "<DIV class=""cal_listitem"">" & strCalNoUpcoming & "</DIV>" & vbnewline

Else Do Until rs.EOF
    Topic_ID = rs("TOPIC_ID")
    Topic_Subject = rs("T_SUBJECT")
    Forum_ID = rs("FORUM_ID")
    Topic_Status = rs("T_STATUS")
    Event_Date = StrToDate(rs("EVENT_DATE"))
    Cat_Moderation = rs("CAT_MODERATION")
    Forum_Moderation = rs("F_MODERATION")


    '*****************************************************************
    'Code for Topic Moderation and Private Forums
    If mLev = 4 then
        AdminAllowed = 1
        ForumChkSkipAllowed = 1
    ElseIf mLev = 3 then
        If chkForumModerator(Forum_ID, chkString(strDBNTUserName,"decode")) = "1" then
523            AdminAllowed = 1
524            ForumChkSkipAllowed = 1
525        Else
526            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  "<DIV class=""cal_listitem"">" & MonthName(Month(Event_Date)) & " " & Day(Event_Date) & "</DIV>" & vbnewline & _
                "<DIV class=""cal_indented""><SPAN class=""spnMessageText""><a href=""topic.asp?TOPIC_ID=" & Topic_ID & """>" & Topic_Subject & "</a></SPAN></DIV>"
    End if

    rs.movenext

Loop End if

rs.close
set rs = nothing


End Sub 'WriteUpcomingEvents