<%@ Page Language="vb" Strict="True" %>
<html>
<head>
<title>Application property example</title>
<script runat="server">
Sub Page_Load()
Application("Name") = "John Doe"
Message.Text = "The value <em>" & CStr(Application("Name")) & _
"</em> has been added to the Application collection."
End Sub
</script>
</head>
<body>
<asp:label id="Message" runat="server"/>
</body>
</html>