If you would instead like the Active Users displayed as the last line in your statistics section.
Just insert the Include code like this:
rs.MoveNext
loop
end if
if strShowStatistics = "1" then
WriteStatistics
%>
<!--#include file="active_users3.asp"-->
<%
end if
%>
</table>
</td>