<%@ Page Language="vb" Strict="True" %>
Application property example
Sub Page_Load()
Application("Name") = "John Doe"
Message.Text = "The value " & CStr(Application("Name")) & _
" has been added to the Application collection."
End Sub