<% lvl=validate(0) set conn=server.createobject("ADODB.Connection") conn.open connection kill=request("kill") if kill<>"" and lvl=1 then psql="delete from xlaALSDepts where deptid="&kill conn.execute(psql) end if '/// Get users Per Dept psql="SELECT deptid, Count(userid) AS totalusers FROM xlaALSiUsersDepts GROUP BY xlaALSiUsersDepts.deptid;" set d=Server.CreateObject("Scripting.Dictionary") set rs=conn.execute(psql) do until rs.eof deptid=rs("deptid") totalusers=rs("totalusers") d.add deptid,totalusers rs.movenext loop rs.close set rs=nothing %> <%=title%> <% psql="select * from xlaALSdepts order by deptname asc;" set rs=conn.execute(psql) if not(rs.eof) then do until rs.eof cc=cc+1 deptid=rs("deptid") totalusers=d.item(deptid)&"" if totalusers="" then totalusers=0 email=rs("deptemail") if email="" then email="-" else email=""&email&"" deptname=rs("deptname") depturl=rs("depturl") description=replace(rs("description")&"",vbcrlf,"
") %> <%rs.movenext loop %> <%else%> <%end if%>
Support Departments Create a New Department
#
Department / Description E-Mail ID Reps.
View / Edit
Delete
<%=cc%>.
"><%=deptname%>
- URL : <%=depturl%>
- Description : <%=description%>
<%=email%> <%=deptid%> <%=totalusers%> Edit dept
Delete Departmentdept

 


There are no departments registered

Create a New Department

<% rs.close set rs=nothing conn.close set conn=nothing %>