<% strSQL = "SELECT sum(case when appid = '4' then 1 else 0 end) AS clmcount," &_ "sum(case when appid = '2' then 1 else 0 end) AS udccount, "&_ "(SELECT COUNT(*) FROM machines WHERE machines.isactive=1 AND machines.islocationonly=0) 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") 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) %>

Collection Installs

UDC	<%Response.Write(udccount)%>	<%Response.Write(udcpct)%>%
CLM	<%Response.Write(clmcount)%>	<%Response.Write(clmpct)%>%
No Collections	<%Response.Write(nocollections)%>	<%Response.Write(nocollectionspct)%>%