<%@ Page Language="vb" %> <html> <head> <script runat="server"> Sub Page_Load() Application.Lock() Application("Counter") = Application("Counter") + 1 Application.UnLock() Message.Text = "Counter = " & Application("ounter") End Sub </script> </head> <body> <asp:label id="Message" runat="server"/> </body> </html>