<!--#include file="masterinclude.asp"-->
<!--#include file="session.asp"-->
<!--#include file="color.asp"-->
<!--#include file="admin_reject.asp"-->
<% 

dim id, action, objRS, uid, gid, objCon, strSQL, arrUid, i, types, catID
action = request.queryString("action")
id = request.queryString("id")
uid = request.queryString("uid")
gid = request.queryString("gid")
catId = request.queryString("catID")

if instr(action,"private")>0 then types = "private" else types = "moderator"

set objCon = server.createobject("adodb.connection")
with objCon
	.open datastore
	
SELECT Case action

Case "addprivateuser"
	if uid = "" then 
		response.redirect("admin_p_msetup.asp?id="&id&"&types="&types&"&catID="&catId) 
		response.end
	end if
	arrUid = split(uid,", ")
	for i = 0 to ubound(arrUid)
		strSQL = dbOwnerPrefix&"spPrivateModeratorModify ("&id&", 'p', 'u', 'add', "&arrUid(i)&")"
		.execute strSQL, , adCmdStoredProc + adExecuteNoRecords
	next
Case "removeprivateuser"
		strSQL = dbOwnerPrefix&"spPrivateModeratorModify ("&id&", 'p', 'u', 'rem', "&uid&")"
		.execute strSQL, , adCmdStoredProc + adExecuteNoRecords
Case "addprivategroup"
		strSQL = dbOwnerPrefix&"spPrivateModeratorModify ("&id&", 'p', 'g', 'add', "&gid&")"
		.execute strSQL, , adCmdStoredProc + adExecuteNoRecords
Case "removeprivategroup"
		strSQL = dbOwnerPrefix&"spPrivateModeratorModify ("&id&", 'p', 'g', 'rem', "&gid&")"
		.execute strSQL, , adCmdStoredProc + adExecuteNoRecords
		
		
Case "addmoderatoruser"
	if uid = "" then 
		response.redirect("admin_p_msetup.asp?id="&id&"&types="&types&"&catID="&catId) 
		response.end
	end if
	arrUid = split(uid,", ")
	for i = 0 to ubound(arrUid)
		strSQL = dbOwnerPrefix&"spPrivateModeratorModify ("&id&", 'm', 'u', 'add', "&arrUid(i)&")"
		.execute strSQL, , adCmdStoredProc + adExecuteNoRecords
	next
Case "removemoderatoruser"
		strSQL = dbOwnerPrefix&"spPrivateModeratorModify ("&id&", 'm', 'u', 'rem', "&uid&")"
		.execute strSQL, , adCmdStoredProc + adExecuteNoRecords
Case "addmoderatorgroup"
		strSQL = dbOwnerPrefix&"spPrivateModeratorModify ("&id&", 'm', 'g', 'add', "&gid&")"
		.execute strSQL, , adCmdStoredProc + adExecuteNoRecords
Case "removemoderatorgroup"
		strSQL = dbOwnerPrefix&"spPrivateModeratorModify ("&id&", 'm', 'g', 'rem', "&gid&")"
		.execute strSQL, , adCmdStoredProc + adExecuteNoRecords
End SELECt
	
	.close
end with
	
set objCon = nothing
Application.lock
Application(dbName&"updatePMcache") = 1 ' cache needs updating
Application.unlock
response.redirect("admin_p_msetup.asp?id="&id&"&types="&types&"&catID="&catId)
%>