" & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" Moderator Configuration"
if txtMessage <> "" Then Response.Write("
" & txtMessage)
Response.Write " | " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine
if Forum_ID = "" then
Response.Write " " & vbNewLine
'## Forum_SQL
strSql = "SELECT C.CAT_ORDER, C.CAT_NAME, F.CAT_ID, F.FORUM_ID, F.F_ORDER, F.F_SUBJECT " &_
" FROM " & strTablePrefix & "CATEGORY C, " & strTablePrefix & "FORUM F" &_
" WHERE C.CAT_ID = F.CAT_ID "
strSql = strSql & " ORDER BY C.CAT_ORDER, C.CAT_NAME, F.F_ORDER, F.F_SUBJECT ASC;"
set rs = my_Conn.Execute(strSql)
if rs.eof or rs.bof then
'nothing
else
iOldCat = 0
do until rs.EOF
iNewCat = rs("CAT_ID")
if iNewCat <> iOldCat Then
Response.Write " | " & rs("CAT_NAME") & " | " & vbNewLine
iOldCat = iNewCat
end if
Response.Write " | " & rs("F_SUBJECT") & " | " & vbNewLine
rs.MoveNext
loop
end if
Response.Write " " & vbNewLine
else
if Action_ID = "" then
if User_ID = "" then
'## Forum_SQL
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_LEVEL > 1 "
strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_STATUS = " & 1
strSql = strSql & " ORDER BY " & strMemberTablePrefix & "MEMBERS.M_NAME ASC;"
set rs = my_Conn.Execute(strSql)
Response.Write "
" & vbNewLine & _
" " & vbNewLine
do until rs.EOF
Response.Write " - "
if chkForumModerator(Forum_ID, rs("M_NAME")) then Response.Write("")
Response.Write "" & rs("M_NAME") & ""
If chkForumModerator(Forum_ID, rs("M_NAME")) then Response.Write("")
Response.Write "
" & vbNewLine
rs.MoveNext
loop
Response.Write " " & vbNewLine
else
'## Forum_SQL
strSql = "SELECT " & strTablePrefix & "MODERATOR.FORUM_ID, " & strTablePrefix & "MODERATOR.MEMBER_ID, " & strTablePrefix & "MODERATOR.MOD_TYPE "
strSql = strSql & " FROM " & strTablePrefix & "MODERATOR "
strSql = strSql & " WHERE " & strTablePrefix & "MODERATOR.MEMBER_ID = " & User_ID & " "
strSql = strSql & " AND " & strTablePrefix & "MODERATOR.FORUM_ID = " & Forum_ID & " "
set rs = my_Conn.Execute(strSql)
if rs.EOF then
Response.Write " " & vbNewLine & _
"
" & vbNewLine & _
" The selected user is not a moderator of the selected forum
" & vbNewLine & _
"
" & vbNewLine & _
" If you would like to make this user the moderator of this forum, click here." & vbNewLine & _
" " & vbNewLine & _
"
" & vbNewLine
else
Response.Write " " & vbNewLine & _
"
" & vbNewLine & _
" The selected user is currently a moderator of the selected forum
" & vbNewLine & _
"
" & vbNewLine & _
" If you would like to remove this user's moderator status in this forum, click here." & vbNewLine & _
" " & vbNewLine & _
"
" & vbNewLine
end if
end if
else
select case Action_ID
case 1
'## Forum_SQL
strSql = "INSERT INTO " & strTablePrefix & "MODERATOR "
strSql = strSql & "(FORUM_ID"
strSql = strSql & ", MEMBER_ID"
strSql = strSql & ") VALUES ("
strSql = strSql & Forum_ID
strSql = strSql & ", " & User_ID
strSql = strSql & ")"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
Response.Write "
" & vbNewLine & _
" " & vbNewLine & _
" The selected user is now a moderator of the selected forum
" & vbNewLine & _
"
" & vbNewLine & _
" Back to Moderator Options" & vbNewLine & _
"
" & vbNewLine
case 2
'## Forum_SQL
strSql = "DELETE FROM " & strTablePrefix & "MODERATOR "
strSql = strSql & " WHERE " & strTablePrefix & "MODERATOR.FORUM_ID = " & Forum_ID & " "
strSql = strSql & " AND " & strTablePrefix & "MODERATOR.MEMBER_ID = " & User_ID
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
Response.Write "
" & vbNewLine & _
" " & vbNewLine & _
" The selected user's moderator status in the selected forum has been removed
" & vbNewLine & _
"
" & vbNewLine & _
" Back to Moderator Options" & vbNewLine & _
"
" & vbNewLine
end select
end if
end if
Response.Write " | " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" | " & vbNewLine & _
"
" & vbNewLine & _
"