<% Call LogActiveUser() Call ActiveUserCleanup() Response.Write "" & Application("ActiveUsers") & " User online." %>