Mega Code Archive
Save value to Application
<![CDATA[
<%@ Page Language="VB" %>
<script runat="server">
Sub Page_Load(Sender As Object, e As EventArgs)
lblOutput.text = "Page loading" & _
"Application started at: " & Application("Time") & "<br>" & _
"Current time: " & DateTime.Now & "<br>"
End Sub
Sub Click(obj As Object, E As EventArgs)
Session.Abandon()
End Sub
</script>
<html><body>
<form runat="server">
<asp:label id="lblOutput" runat="server"/>
<asp:Button id="btSubmit" runat="server" OnClick="Click" Text="End This Session"/>
</form>
</body></html>
]]>