<%= 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
%>
Current User Group(s) in <%= disTitle %>
<%
if isArray(arrGroupIn) then
for i = 0 to ubound(arrGroupIn,2)
%>
<%
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
%>
"&vbcrlf)
end if
%>