<!--#include file="masterinclude.asp"-->
<!--#include file="session.asp"-->
<!--#include file="language.asp"-->
<!--#include file="js/mailroutine.asp"-->
<!--#include file="admin_reject.asp"-->
<% 
'response.write (request.queryString)

Dim objRS, arrTotalUsers, SQL, arrBody, objCon
Dim senderE,senderN,mailTo,mailCC,mailBCC,subject,Body
Dim tempPass, Email, Login, password, iMem , letBody, regStatus

set objRS = server.createobject("adodb.recordset")
   	With objRS
   		.open dbOwnerPrefix&"spGetRegMsg (4)", datastore, , , adCmdStoredProc
   			if not (.eof and .bof) then arrBody = .getrows
   		.close
		.open "SELECT Email, Login FROM pgd_Members WHERE mem in ("&request("idcheck")&") AND regStatus = 2", datastore, , , adCmdText
			if not (.eof and .bof) then arrTotalUsers = .getrows
		.close
   	End With
set objRS = nothing

SET objCon = server.createObject("ADODB.connection")
	with objCon
		.open datastore
			.execute "Delete pgd_members WHERE mem in ("&request("idcheck")&") AND regStatus > 0 and totalposts=0", , adExecuteNoRecords + adCmdtext 'adCmdStoredProc 
		.close
	end with
Set objCon = nothing

if isarray(arrBody) then letBody = arrBody(0,0) else letBody = ""

if isArray(arrTotalUsers) then
	for iMem = 0 to ubound(arrTotalUsers,2)
		Email = arrTotalUsers(0, iMem)
		Login = arrTotalUsers(1, iMem)
		
		senderE = Application(dbName&"adminEmail")
		senderN = Application(dbName&"ForumTitle")
		mailTo	= Email
		subject = replace(regDisapproveSubject,"#login#", Login)
		mailCC	= Application(dbName&"adminEmail")
		Body =  letBody
		Body = replace(replace(Body,"#login#",Login),"#email#",Email)
		Body = replace(Body,"#forumdir#",forumdir)
		Body = replace(Body,"#forumtitle#",Application(dbName&"ForumTitle"))
		subject = split(body,vbcrlf)(0)
		body = replace(body,subject&vbcrlf,"",1,1,vbBinaryCompare)		
		call mailRoutine(senderE,senderN,mailTo,mailCC,mailBCC,subject,Body)
	next
end if
response.redirect("admin_user.asp?Criteria=&searchBy=regStatus&sent=dis")
 %>