<%= OutputCSS() %>
<% dim types, arrPM, i, objRS, disHead, disTitle, id, strSQL, searchBy, criteria, SQL , catId, gid types = request.queryString("types") id = request.queryString("id") gid = request.queryString("gid") catId = request.queryString("catID") SELECT CASE types Case "gpfirst" strSQL = dbOwnerPrefix&"spGroupPermissionSetup ("&id&")" disHead = _ "Group Permission :       "&_ "

" 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 = nothing %> <% response.write (disHead) %>
<% if isArray(arrGroupIn) then for i = 0 to ubound(arrGroupIn,2) %> > <% next else %> <% end if i = 0 %>
Current User Group(s) in Permission Table
<% if not isBMan and not isUMan then %> <%= isActiveGroup(arrGroupIn(2,i),HTMLEncode(""&arrGroupIn(0,i))) %> <% else %> <%= isActiveGroup(arrGroupIn(2,i),HTMLEncode(""&arrGroupIn(0,i))) %> <% end if%> Edit | Remove?
> Not Available.
* italicized = inactive setting

<% if isArray(arrGroupNotIn) then for i = 0 to ubound(arrGroupNotIn,2) %> > <% next else %> <% end if %>
Current User Group(s) not in Permission Table
<% if not isBMan and not isUMan then %> <%= HTMLEncode(""&arrGroupNotIn(0,i)) %> <% else %> <%= HTMLEncode(""&arrGroupNotIn(0,i)) %> <% end if%> Add?
> Not Available.
<% Case "editgroup","addgroup" Dim post_reply,poll,vote,rate,uploadSize,uploadRestriction,tempArr,isActive Dim groupPermissionSet disHead = _ "Group Permission :       "&_ "

" if types = "editgroup" then strSQL = "SELECT post_reply,poll,vote,rate,uploadRestriction, isActive from pgd_groupPermission where forumid="&id&" and GID="&gid set objRS = server.createobject("adodb.recordset") with objRS .CacheSize = 150 .open strSQL, datastore, , , adCmdText If not (.EOF or .BOF) then groupPermissionSet = .getrows End if .close end with set objRS=nothing post_reply = groupPermissionSet(0,0) poll = groupPermissionSet(1,0) vote = groupPermissionSet(2,0) rate = groupPermissionSet(3,0) uploadRestriction = groupPermissionSet(4,0) isActive = groupPermissionSet(5,0) if uploadRestriction <> "" then tempArr = split(uploadRestriction,"|") if isArray(tempArr) then uploadSize = tempArr(0) if ubound(tempArr)=1 then uploadFormat = tempArr(1) end if end if else post_reply = 4 poll = 1 vote = 1 rate = 1 uploadSize = "100" uploadFormat = "txt/jpg/gif" isActive = 1 end if %> <% response.write (disHead) %>
Permission Setting
nowrap valign="top">General Permission:  >
nowrap valign="top">Can Create Poll:  > class="radiocheck"> (post permission required -> see above)
nowrap valign="top">Can vote:  > class="radiocheck"> (reply permission required -> see above)
nowrap valign="top">Can Rate Post:  > class="radiocheck"> (reply permission required -> see above)
nowrap valign="top">Upload:  > kb;
(0=not allowed)
"> extensions (e.g. "txt/gif/jpg")
(empty = not allowed)
nowrap valign="top">Is this setting active?  > class="radiocheck">


   
<% Case "removegroup" Dim objCon SET objCon = server.createObject("ADODB.connection") with objCon .open datastore .execute "delete from pgd_grouppermission where forumid="&id&" and gid="&gid, , adExecuteNoRecords + adCmdtext 'adCmdStoredProc .close end with Set objCon = nothing response.redirect ("admin_g_psetup.asp?types=gpfirst&id="&id&"&catid="&catid) END SELECT %>