<% Main Sub Main Dim sDirection sDirection = CStr(Request.QueryString("dir")) Dim iPositionID iPositionID = CInt(Request.QueryString("pid")) If IsLoggedIn Then Write "

" Write "" Write "" Write "

" If IsBlank(Session.Contents(LAST_VISITED)) Then 'Write Div("This is your first visit (as a registered member)") Write "This is your first visit (as a registered member)" Else 'Write Div("You last visited on " & Encode(Session.Contents(LAST_VISITED))) Write "You last visited on " & Encode(Session.Contents(LAST_VISITED)) End If Write "

" Write "

" If IsAdmin Then If sAction = "move_forum" Then MoveRecord sDirection, "Forums", "F_Position", iPositionID sRedirect = "default.asp" Exit Sub End If If sAction = "move_cat" Then MoveRecord sDirection, "Categories", "C_Position", iPositionID sRedirect = "default.asp" Exit Sub End If End If End If Write "" Write "" Write "

" %> <% Write "

" Write "" Write "" If IsLoggedIn Then Write "" Write "" Write "" Write "" Write "" Write "" Write "" Dim oRSCats Set oRSCats = CreateObject("ADODB.Recordset") oRSCats.Open "SELECT C_ID, C_Position, C_Name FROM Categories ORDER BY C_Position", oConn While Not oRSCats.EOF Dim iCatID iCatID = CInt(oRSCats("C_ID").Value) Dim iCatPos iCatPos = CInt(oRSCats("C_Position").Value) Dim sCatName sCatName = Encode(CStr(oRSCats("C_Name").Value)) Dim oRSForums Set oRSForums = CreateObject("ADODB.RecordSet") oRSForums.Open "SELECT F_Last_Post, F_Description, F_Num_Topics, F_Num_Posts, F_Name, F_ID, F_Position FROM Forums WHERE CATEGORY = " & iCatID & " ORDER BY F_Position", oConn, adOpenKeyset Write "" If IsLoggedIn Then Write "" Write "" Dim iForumID Dim iForumPos Dim sForumName Dim sForumDesc Dim iNumTopics Dim iNumPosts Dim dLastPost Dim iNewMessages While Not oRSForums.EOF iForumID = CInt(oRSForums("F_ID").Value) iForumPos = CInt(oRSForums("F_Position").Value) sForumName = Encode(CStr(oRSForums("F_Name").Value)) sForumDesc = CStr(oRSForums("F_Description").Value) iNumTopics = CInt(oRSForums("F_Num_Topics").Value) iNumPosts = CInt(oRSForums("F_Num_Posts").Value) If IsNull(oRSForums("F_Last_Post").Value) Then dLastPost = "" Else _ dLastPost = CDate(oRSForums("F_Last_Post").Value) Write "" If IsLoggedIn Then Write "" End If Write "" Write "" Write "" Write "" Write "" Write "" oRSForums.MoveNext Wend oRSForums.Close Set oRSForums = Nothing oRSCats.MoveNext Wend Set oRSCats = Nothing Write "

New Messages	Forum	Topics	Messages	Last Post	Moderated By
" Else Write "	" Write sCatName & "" If IsAdmin Then Write " \| " & MakeLink("Edit", "edit_cat.asp?cid=" & iCatID) Write " \| " & MakeLink("Delete", "del_cat.asp?cid="& iCatID) Write " \| " & MakeLink("Move Up", "?action=move_cat&dir=up&pid=" & iCatPos) Write " \| " & MakeLink("Move Down", "?action=move_cat&dir=down&pid=" & iCatPos) Write "" End If Write "
" Dim oRSNewMessages Dim sSQLNewMessages sSQLNewMessages = "SELECT COUNT(R_ID) FROM Messages, Topics WHERE " sSQLNewMessages = sSQLNewMessages & " Topics.T_ID = Messages.TOPIC_ID AND" sSQLNewMessages = sSQLNewMessages & " R_Timestamp > #" & Session.Contents(LAST_VISITED) & "# AND" sSQLNewMessages = sSQLNewMessages & " Topics.FORUM_ID = " & iForumID Set oRSNewMessages = oConn.Execute(sSQLNewMessages) iNewMessages = CInt(oRSNewMessages.Fields(0).Value) Set oRSNewMessages = Nothing If iNewMessages > 0 Then Write iNewMessages Write "	" Write MakeBold(MakeLink(sForumName, "topics.asp?fid=" & iForumID)) & " " If IsAdmin Then Write " \| " & MakeLink("Edit", "edit_forum.asp?fid=" & iForumID) & " \| " & MakeLink("Delete", "del_forum.asp?fid="& iForumID) Write " \| " & MakeLink("Move Up", "?action=move_forum&dir=up&pid=" & iForumPos) & " \| " & MakeLink("Move Down", "?action=move_forum&dir=down&pid=" & iForumPos) End If Write LineBreak & Encode(sForumDesc) & LineBreak Write "	" & iNumTopics & "	" & iNumPosts & "	" If IsDate(dLastPost) Then Write Encode(dLastPost) Write "	" & ListModerators(iForumID, ";") & "

" If IsAdmin Then Write Div(MakeLink("Add New Category", "add_cat.asp") & " | " & MakeLink("Add New Forum", "add_forum.asp")) Write "

" End Sub %>