<!--#include file="masterinclude.asp"-->
<!--#include file="session.asp"-->
<!--#include file="color.asp"-->
<!--#include file="admin_reject.asp"-->
<!--#include file="js/io.asp"-->
<% 
Dim mode:mode = request.form("mode")
Dim memIDs:memIDs = request.form("memIDs")
Dim keepMsg:keepMsg = CheckedOrNot(request.form("keepMsg"))
Dim objRS, objCon, strSQL

SET objCon = server.createObject("ADODB.connection")
with objCon
	.open datastore
	if mode <> "1" then
		if keepMsg = 1 then
			strSQL = "update pgd_messages SET mem = -1, locked = 1 WHERE mem in ("&memIDs&") "&_
					 "update pgd_upfile SET mem = -1 WHERE mem in ("&memIDs&")" 'move member's uploaded file to (-1) folder
		else
			strSQL = "Update pgd_messages SET mem = -1, subject = '[Deleted]', body = '[Deleted by Admins]',"&_
				 "locked = 1, searchString='', edit='', rating = null, ratetimes = null, moderated = 0 "&_
				 "WHERE mem in ("&memIDs&") "&_
				 "update pgd_upfile SET messageID = -1 WHERE mem in ("&memIDs&")" 'mark member's uploaded file to (-1), but don't move the files
		end if
		.execute strSQL, , adExecuteNoRecords + adCmdtext 
	end if
		.execute "DELETE FROM pgd_members WHERE mem in ("&memIDs&")", , adExecuteNoRecords + adCmdtext 
	.close
end with
Set objCon = nothing

If mode<>"1" and keepMsg=1 then 'move all his upfiles to (-1) folder
	Dim fso, folder, arrMemIDs, i, eachMemFolder, eachMemFolderObj, eachMemFiles, eachMemFile
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	folder = Server.MapPath("Upfiles/-1/") 'get guest folder's physical path (-1) folder
	if not fso.FolderExists(folder) then fso.CreateFolder(folder) ' if (-1) folder does not exist, create it
	
	arrMemIDs = split(memIDs,",")
	for i=0 to ubound(arrMemIDs) 'move each person's file to the (-1) folder
		eachMemFolder = Server.MapPath("Upfiles/"&arrMemIDs(i)&"/")
		if fso.FolderExists(eachMemFolder) then 
			fso.CopyFolder eachMemFolder,folder,true
			fso.DeleteFile eachMemFolder&"\*.*", true
		end if
	next
	
	Set fso = nothing
	
end if

set objRS = server.createobject("adodb.recordset")
	with objRS
		.open dbOwnerPrefix&"spGetTotalMem", datastore, , , adCmdStoredProc
			Application.lock
			Application(dbName&"totalMem") = .fields("totalMem")
			Application.unlock
		.close
	end with
set objRS=nothing

response.redirect ("admin_u_delete.asp?done=yes")
 %>