<script language="VBScript" runat="Server">
Sub Application_OnStart
Application("OnlineNow") = 0
Application("Msg") = "Welcome to ThaiCreate.Com"
End Sub
Sub Session_OnStart
Application.Lock
Application("OnlineNow") = Application("OnlineNow")+1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("OnlineNow") = Application("OnlineNow")-1
Application.UnLock
End Sub
</script>