01.<script language="VBScript" runat="Server">
02. Sub Application_OnStart
03. Application("OnlineNow") = 0
04. Application("Msg") = "Welcome to ThaiCreate.Com"
05. End Sub
06.
07. Sub Session_OnStart
08. Application.Lock
09. Application("OnlineNow") = Application("OnlineNow")+1
10. Application.UnLock
11. End Sub
12.
13. Sub Session_OnEnd
14. Application.Lock
15. Application("OnlineNow") = Application("OnlineNow")-1
16. Application.UnLock
17. End Sub
18.</script>
