<!--#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
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 (1)", datastore, , , adCmdStoredProc
   			if not (.eof and .bof) then arrBody = .getrows
   		.close
		.open "SELECT mem, regStatus FROM pgd_Members WHERE mem in ("&request("idcheck")&") AND regStatus > 0", datastore, , , adCmdText
			if not (.eof and .bof) then arrTotalUsers = .getrows
		.close
   	End With
set objRS = nothing

if isarray(arrBody) then letBody = arrBody(0,0) else letBody = ""

if isArray(arrTotalUsers) then
	for iMem = 0 to ubound(arrTotalUsers,2)
		Call confirmResend(arrTotalUsers(0, iMem),arrTotalUsers(1, iMem))
	next
end if
response.redirect("admin_user.asp?Criteria=&searchBy=regStatus&sent=yes")
 %>