<%@ Page Language="vb" %>
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