<% Call LogActiveUser() Call ActiveUserCleanup() Response.Write "Online " & Application("ActiveUsers") & " users" %>