quote:

---

OK. Try this. *** DISCLAIMER *** this has NOT been tested AT all. Debug at your own risk.....

In post_info.asp, look for(line 695 in v3.3.03):

ProcessSubscriptions rs("Member_ID"), Cat_ID, Forum_ID, NewTopicID

add the following two lines right after:

else
     NotifyModerators rs("Member_ID"), Cat_ID, Forum_ID, NewTopicID

Then look for (line 805 in v3.3.03):
ProcessSubscriptions rs("Member_ID"), Cat_ID, Forum_ID, Topic_ID

add the following two lines right after:

else
     NotifyModerators rs("Member_ID"), Cat_ID, Forum_ID, NewTopicID

Add the following code to the end of inc_subscriptions:

sub NotifyModerators(MemberId, ForumId, TopicId)
	' -- If email is not turned on, exit
	if strEmail = 0 then
		exit sub
	end if

	' -- Get the topic title and Author nam
	strSql = "SELECT T.T_SUBJECT, M.M_NAME FROM " & strTablePrefix & "TOPICS T, " & _
													strMemberTablePrefix & "MEMBERS M " &_
	         " WHERE T.TOPIC_ID = " & TopicId & " " &_
			 " AND M.MEMBER_ID = " & MemberID 

	Set rsSub = Server.CreateObject("ADODB.Recordset")
	rsSub.open strSql, my_Conn
	if rsSub.EOF or rsSub.BOF then
		TopicName = ""
		MemberName = ""
		Exit Sub
    else
       	TopicName = rsSub("T_SUBJECT")
		MemberName = rsSub("M_NAME")
    end if
	rsSub.Close
	set rsSub = Nothing

	'## Emails all users who wish to receive a mail if a topic or reply has been made.  This sub will
	'## check for subscriptions based on the topic, forum, category and across the board.  It will 
	'## ignore the posting member.
	strSql = "SELECT M.Member_ID, " & _
             "M.M_NAME, M.M_EMAIL " & _
             " FROM " & strMemberTablePrefix & "MEMBERS M" & _
			 ",     " & strTablePrefix & "MODERATOR FM" &_
             " WHERE M.Member_ID = FM.Member_ID" & _                 
			 "   AND FM.FORUM_ID  = " & Forum_ID

	Set rsLoop = Server.CreateObject("ADODB.Recordset")
	rsLoop.open strSql, my_Conn
	do while (not rsLoop.EOF) and (not rsLoop.BOF)
		strRecipientsName = rsLoop("M_Name")
		strRecipients = rsLoop("M_EMAIL")
		strMessage = "Hello " & rsLoop("M_NAME") & vbNewline & vbNewline
		strSubject = strForumTitle & " - Posting needs validated"
		strMessage = strMessage & " A posting has been made to " & strForumTitle & " which needs approved. "
		strMessage = strMessage & "Regarding the subject - " & TopicName & "." & vbNewline & vbNewline
		strMessage = strMessage & "You can view the posting at " & strForumURL & "link.asp?TOPIC_ID=" & TopicId & vbNewline
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
		rsLoop.MoveNext
	loop
	rsLoop.Close
	set rsLoop = nothing
end sub

Like I said, this has NOT been tested, but should be OK. This will notify EVERY moderator regardless of whether they want to be notified or not.....


Dave Maxwell
--------------
Proud to be a "World Class" Knucklehead

---

else
     NotifyModerators rs("Member_ID"), Cat_ID, Forum_ID, NewTopicID

else
     NotifyModerators rs("Member_ID"), Cat_ID, Forum_ID, NewTopicID

sub NotifyModerators(MemberId, ForumId, TopicId)
	' -- If email is not turned on, exit
	if strEmail = 0 then
		exit sub
	end if

	' -- Get the topic title and Author nam
	strSql = "SELECT T.T_SUBJECT, M.M_NAME FROM " & strTablePrefix & "TOPICS T, " & _
													strMemberTablePrefix & "MEMBERS M " &_
	         " WHERE T.TOPIC_ID = " & TopicId & " " &_
			 " AND M.MEMBER_ID = " & MemberID 

	Set rsSub = Server.CreateObject("ADODB.Recordset")
	rsSub.open strSql, my_Conn
	if rsSub.EOF or rsSub.BOF then
		TopicName = ""
		MemberName = ""
		Exit Sub
    else
       	TopicName = rsSub("T_SUBJECT")
		MemberName = rsSub("M_NAME")
    end if
	rsSub.Close
	set rsSub = Nothing

	'## Emails all users who wish to receive a mail if a topic or reply has been made.  This sub will
	'## check for subscriptions based on the topic, forum, category and across the board.  It will 
	'## ignore the posting member.
	strSql = "SELECT M.Member_ID, " & _
             "M.M_NAME, M.M_EMAIL " & _
             " FROM " & strMemberTablePrefix & "MEMBERS M" & _
			 ",     " & strTablePrefix & "MODERATOR FM" &_
             " WHERE M.Member_ID = FM.Member_ID" & _                 
			 "   AND FM.FORUM_ID  = " & Forum_ID

	Set rsLoop = Server.CreateObject("ADODB.Recordset")
	rsLoop.open strSql, my_Conn
	do while (not rsLoop.EOF) and (not rsLoop.BOF)
		strRecipientsName = rsLoop("M_Name")
		strRecipients = rsLoop("M_EMAIL")
		strMessage = "Hello " & rsLoop("M_NAME") & vbNewline & vbNewline
		strSubject = strForumTitle & " - Posting needs validated"
		strMessage = strMessage & " A posting has been made to " & strForumTitle & " which needs approved. "
		strMessage = strMessage & "Regarding the subject - " & TopicName & "." & vbNewline & vbNewline
		strMessage = strMessage & "You can view the posting at " & strForumURL & "link.asp?TOPIC_ID=" & TopicId & vbNewline
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
		rsLoop.MoveNext
	loop
	rsLoop.Close
	set rsLoop = nothing
end sub

quote:

---

Just need to ask whether this feature is in the pipeline? Or is there anyone who can help to build this feature. It would certainly give new meaning to this moderation feature and make it much more useful.

---

PLEASE SOMEONE! This would be SO useful to those of us in academia. We need to do a lot of moderation and not being able to REALLY moderate a group is starting to cause a lot problems for me.

On the other hand... suddenly being jobless might give me time to write some MODs for Snitz...

<

quote:

---

Ah, you didn't tell me you had moderation enabled. That's another problem. Right now, the capability is NOT there.....

Dave Maxwell
--------------
Proud to be a "World Class" Knucklehead

---

quote:

---

Yes. All you need to do is turn subscriptions on.

Dave Maxwell
--------------
Proud to be a "World Class" Knucklehead

---