<% response.buffer=true IF NOT(str_u_lev="0") THEN response.write("You do not have permission to view this page") response.end END IF IF REQUEST("users")="delete" THEN delID=sanitizeRequest("deleteID","querystring") IF delID <> "" AND IsNumeric(delID) THEN dbCBK.Execute("delete from cbk_school_users WHERE `userID`='"&delID&"' limit 1") response.redirect("/super-user/control-panel/?go=users¬ify=User+account+deleted+successfuly&nact=success") END IF END IF t_sel=sanitizeRequest("sf","querystring") IF t_sel <> "" AND IsNumeric(t_sel) THEN 'ok ELSE t_sel="" END IF %> <% Function fetchUCount() SET rsDC=dbCBK.Execute("SELECT count(*) as u_count FROM cbk_school_users limit 1") IF rsDC.EOF THEN fetchUCount="0" Exit Function END IF DO WHILE NOT rsDC.EOF fetchUCount = rsDC("u_count") rsDC.MoveNext loop rsDC.Close SET rsDC = Nothing End Function %>

Manage User Accounts

There are <%=fetchUCount()%> total active users.
add user
  

Search Users

by name or email.
" style="width:78%;float:left;border-top-right-radius:0px;border-bottom-right-radius:0px;" />

Filters

Refine your search results
<% strSQL = "SELECT `userID`, `email`, `contactname`, `userPOSITION`, `userLEVEL` FROM cbk_school_users WHERE `userID`>'0'" str_sql_xtras="" IF t_sel<> "" AND t_sel <> "0" THEN strSQL=strSQL & " AND `schoolID`='"&t_sel&"'" str_sql_xtras=" AND `schoolID`='"&t_sel&"'" END IF IF request("q")<> "" THEN q=sanitizeRequest("q","querystring") strSQL=strSQL & " AND `userID`='"&q&"'" strSQL=strSQL & " OR `userID`>'0' AND `contactname` LIKE '%"&q&"%'" & str_sql_xtras strSQL=strSQL & " OR `userID`>'0' AND `email` LIKE '%"&q&"%'" & str_sql_xtras strSQL=strSQL & " OR `userID`>'0' AND `userPOSITION` LIKE '%"&q&"%'" & str_sql_xtras ELSE q="" END IF oBy = " order by `contactname` asc" strSQL=strSQL & oBy strCSQL = replace(strSQL,"SELECT `userID`, `email`, `contactname`, `userPOSITION`, `userLEVEL`","SELECT count(*) AS rCount") SET rsBC = dbCBK.Execute(strCSQL) rCount=0 DO WHILE NOT rsBC.EOF rCount=CInt(rsBC("rCount")) rsBC.MoveNext loop rsBC.Close SET rsBC = Nothing 'results per page perpage=100 'number of pages nPages=CInt(rCount/perpage) IF nPages < 1 THEN nPages=1 END IF 'current page curPage=sanitizeRequest("page","querystring") IF (curPage <> "") THEN IF IsNumeric(curPage) AND curPage > "0" THEN curPage=Cint(curPage) ELSE curPage=1 END IF ELSE curPage=1 END IF IF curPage > nPages THEN curPage=nPages END IF endPoint=perPage*curPage startPoint=endPoint-perPage strSQL=strSQL & " limit " & startPoint & ", " & perpage SET rsB=dbCBK.Execute(strSQL) %> <%IF rsB.EOF THEN%> <%ELSE%>

None found.
<%IF curPage > 1 THEN%> previous <%ELSE%> previous <%END IF%> Page <%=curPage%> of <%=nPages%> <%IF npages > curPage THEN%> next <%ELSE%> next <%END IF%>
<%END IF%> <% rowN=1 DO WHILE NOT rsB.EOF %> " data-link="/super-user/control-panel/?go=users&users=view&view=<%=rsB("userID")%>"> <% rowN=rowN+1 rsB.MoveNext loop rsB.Close SET rsB=Nothing %>
  User Name Full Name Position Type  
user <%=rsB("email")%> <%=PCase(rsB("contactname"))%> <%=rsB("userPOSITION")%> <%IF rsB("userLEVEL")="0" THEN response.write("🔒 Administrator") ELSE response.write("Standard") END IF%>
" style="width:100%;">delete