<%@ Page Language="vb" %><html> <head> <script runat="server"> Sub Page_Load() Session.Clear() Message.Text = "There are " & Session.Count & _ " items in the Session collection." End Sub </script> </head><body> <form runat="server"> <asp:label id="Message" runat="server"/> </form></body></html>
<%@ Page Language="vb" %><html> <head> <script runat="server"> Sub Page_Load() If Session.Count > 0 Then Session.RemoveAll() Message.Text = "Session collection cleared." Else Message.Text = "Session collection is already empty." End If End Sub </script> </head><body> <form runat="server"> <asp:label id="Message" runat="server"/> </form></body></html>