<%= OutputCSS() %>
<% dim types, arrPM, i, objRS, disHead, disTitle, id, strSQL, searchBy, criteria, SQL , catId types = request.queryString("types") id = request.queryString("id") searchBy = request.queryString("searchBy") criteria = request.queryString("criteria") catId = request.queryString("catID") SELECT CASE types Case "private" disTitle = "Private User Setup" strSQL = dbOwnerPrefix&"spPrivateSetup ("&id&")" Case else disTitle = "Moderator Setup" strSQL = dbOwnerPrefix&"spModeratorSetup ("&id&")" END SELECT disHead = _ ""&disTitle&" :       "&_ "

" response.write (disHead) Dim arrGroupIn, arrGroupNotIn, arrUserIn set objRS = server.createobject("adodb.recordset") With objRS .open strSQL, datastore, , , adCmdStoredProc if not (.eof and .bof) then arrGroupIn = .getrows End With set objRS = objRS.NextRecordset With objRS if not (.eof and .bof) then arrGroupNotIn = .getrows End With set objRS = objRS.NextRecordset With objRS if not (.eof and .bof) then arrUserIn = .getrows .close End With set objRS = nothing %>
<% if isArray(arrGroupIn) then for i = 0 to ubound(arrGroupIn,2) %> > <% next else %> <% end if i = 0 %>
Current User Group(s) in <%= disTitle %>
<% if not isBMan and not isUMan then %> <%= HTMLEncode(""&arrGroupIn(0,i)) %> <% else %> <%= HTMLEncode(""&arrGroupIn(0,i)) %> <% end if%> Remove?
> Not Available.

<% if isArray(arrGroupNotIn) then for i = 0 to ubound(arrGroupNotIn,2) %> > <% next else %> <% end if %>
Current User Group(s) not in <%= disTitle %>
<% if not isBMan and not isUMan then %> <%= HTMLEncode(""&arrGroupNotIn(0,i)) %> <% else %> <%= HTMLEncode(""&arrGroupNotIn(0,i)) %> <% end if%> Add?
> Not Available.

- or -

<% if isArray(arrUserIn) then for i = 0 to ubound(arrUserIn,2) %> > <% end if%> <% next else %> <% end if %>
Current Users in <%= disTitle %>
<% if not isBMan and not isUMan then %> <%= HTMLEncode(""&arrUserIn(0,i)) %> <% else %> <%= HTMLEncode(""&arrUserIn(0,i)) %>Remove?
> Not Available.

> >
Search for Individual Users
Search User: >  
By : class="radiocheck">Login Name class="radiocheck">E-mail Address class="radiocheck">First Name class="radiocheck">Member ID
<% if criteria <> "" then if searchBy <> "Mem" then criteria = "like '"&criteria&"'" else if isnumeric(criteria) then criteria = "= "&criteria _ else criteria = "= -9" end if SQL = "SELECT Mem, Login, Fname, Lname, Email FROM pgd_members "&_ "WHERE ("&searchBy&" "&criteria&" And Mem>-1) " set objRS = server.createobject("adodb.recordset") with objRS .open SQL, datastore, , , adCmdText Dim arrMem, upbound if not (.EOF and .BOF) then arrMem = .getrows upbound = ubound(arrMem,2) end if .close end with set objRS = nothing i = 0 %>
> <% if isArray(arrMem) then for i = 0 to upbound response.write ("") response.write _ (""&_ ""&_ ""&_ ""&_ ""&_ "") response.write (""&vbcrlf) next response.write ("
Member List: (click on Member ID field to view detail)
Member ID Login First Name Last Name E-mail Check
"&arrMem(0,i)&""&HTMLEncode(""&arrMem(1,i))&""&HTMLEncode(""&arrMem(2,i))&""&HTMLEncode(""&arrMem(3,i))&""&HTMLEncode(""&arrMem(4,i))&""&_ ""&_ "

"&vbcrlf) response.write (""&vbcrlf) else response.write (""&_ "no such member found !!"&_ ""&vbcrlf&_ ""&vbcrlf) end if response.write (""&vbcrlf&_ ""&vbcrlf&_ ""&vbcrlf&_ "
"&vbcrlf) end if %>