<%
' Count only PCs (pctypeid IS NOT NULL) for UDC/CLM stats
strSQL = "SELECT COALESCE(sum(case when appid = '4' then 1 else 0 end), 0) AS clmcount," &_
"COALESCE(sum(case when appid = '2' then 1 else 0 end), 0) AS udccount, "&_
"(SELECT COUNT(*) FROM machines WHERE machines.isactive=1 AND machines.pctypeid IS NOT NULL) AS machinecount "& _
"FROM installedapps WHERE appid IN (2,4) and installedapps.isactive=1"
set rs = objconn.Execute(strSQL)
clmcount = rs("clmcount")
udccount = rs("udccount")
machinecount = rs("machinecount")
If IsNull(clmcount) Or clmcount = "" Then clmcount = 0
If IsNull(udccount) Or udccount = "" Then udccount = 0
If IsNull(machinecount) Or machinecount = "" Or CInt(machinecount) = 0 Then machinecount = 1
nocollections = CInt(machinecount) - CInt(clmcount) - CInt(udccount)
udcpct = FormatNumber(CInt(udccount)/Cint(machinecount)*100,2)
clmpct = FormatNumber(CInt(clmcount)/Cint(machinecount)*100,2)
nocollectionspct = FormatNumber(Cint(nocollections)/Cint(machinecount)*100,2)
%>