显示在线人数的问题？请高手帮助！！
下面是一个显示当前在线人数和总人数的小程序，不过我调试的时候，在线人数总是不变，那位高手能告诉我，下面的程序有什么错误（有些词语写错了，就不要说了，我有的忘了，呵呵）
global.asa
<Script language="vbScript" runt=server>
sub application_onstart
application.lock
application("all")=0
application("online")=0
aplication.unlock
end sub
sub session_onstart
application.lock
application("all")=application("all")+1
application("online")=application("online")+1
aplication.unlock
end sub
sub session_onend
application.lock
application("online")=application("online")-1
aplication.unlock
end sub
</script>
1.asp
现在在线人数<%=application("online")%>
总人数为：<%=application("all")%>
