Get variables from global.asax (VB.net) : Application « Session Cookie « ASP.Net

ASP.Net
1. ADO.net Database
2. Ajax
3. Asp Control
4. Collections
5. Components
6. Data Binding
7. Development
8. File Directory
9. HTML Control
10. Language Basics
11. Login Security
12. Mobile Control
13. Network
14. Page
15. Request
16. Response
17. Server
18. Session Cookie
19. Sitemap
20. Theme Style
21. User Control and Master Page
22. Validation by Control
23. Validation by Function
24. WebPart
25. WPF
26. XML
Java
Java Tutorial
Java Source Code / Java Documentation
Java Open Source
Jar File Download
Java Articles
Java Products
Java by API
Photoshop Tutorials
Maya Tutorials
Flash Tutorials
3ds-Max Tutorials
Illustrator Tutorials
GIMP Tutorials
C# / C Sharp
C# / CSharp Tutorial
C# / CSharp Open Source
ASP.NET Tutorial
JavaScript DHTML
JavaScript Tutorial
JavaScript Reference
HTML / CSS
HTML CSS Reference
C / ANSI-C
C Tutorial
C++
C++ Tutorial
Ruby
PHP
Python
Python Tutorial
Python Open Source
SQL Server / T-SQL
SQL Server / T-SQL Tutorial
Oracle PL / SQL
Oracle PL/SQL Tutorial
PostgreSQL
SQL / MySQL
MySQL Tutorial
VB.Net
VB.Net Tutorial
Flash / Flex / ActionScript
VBA / Excel / Access / Word
XML
XML Tutorial
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
ASP.Net » Session Cookie » Application 
Get variables from global.asax (VB.net)

<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    lblAppName.Text = Application("ApplicationName")
    lblAppName.ForeColor = System.Drawing.Color.FromName _
        (Application("FontColor"))
    lblMessage.ForeColor = System.Drawing.Color.FromName _
        (Application("FontColor"))
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    lblMessage.Text = FormatCurrency(txtOrderTotal.Text * _
        Application("ShippingCharge"))
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Coding the Application_OnStart Event</TITLE>
</HEAD>
<form runat="server">
<asp:label 
    id="lblAppName"
    font-size="14"
    runat="server"
/>
<BR><BR>
<asp:label 
    id="lblMessage"
    runat="server"
    text="Enter your order total to 
        see the shipping charge"
/>
<BR><BR>
<asp:textbox 
    id="txtOrderTotal" 
    columns="25"
    maxlength="30"
    runat=server 
/>
<BR><BR>
<asp:button 
    id="butOK"
    text="  OK  "
    onclick="SubmitBtn_Click" 
    runat="server"
/>
</Form>
</BODY>
</HTML>

<%--

<%@ Import Namespace="System.Diagnostics" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<SCRIPT LANGUAGE="VB" RUNAT="Server">
Sub Application_OnStart()
    Application("TaxRate"0.5125

    Application("appConn"= New OleDbConnection_
        "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
        "DATA SOURCE=" & Server.MapPath _
        ("EmployeeDatabase.mdb;"))
    Application("ApplicationName""My Site"
    Application("FontColor""Red"
    Application("ShippingCharge".03
End Sub
Sub Application_OnEnd()
'    Dim MyLog as New EventLog
 '   MyLog.Log = "Application"
  '  MyLog.Source = "My Test ASP.NET Application"
   ' MyLog.WriteEntry("The application ended at " _
    '    & Now() ".")
End Sub
Sub Session_OnStart()
    Application("SessionStarts"= Application("SessionStarts"1
    Session.TimeOut = 1

'    Session("TheEventLog"= New EventLog
 '   Session("TheEventLog").Log = "Application"
  '  Application.Lock
    Application("TotalUsers"= Application("TotalUsers"_
        1
    Application.Unlock
    'If Len(Session("WhenEntered")) Then
    '    Response.Redirect("welcome.aspx")
    '    Session("WhenEntered"= Now()
    'EnIf
End Sub
Sub Session_OnEnd()
    Dim MyLog as New EventLog
    MyLog.Log = "Application"
    MyLog.Source = "A session that started on " _
        & Session("WhenEntered"" ended at " _
        & Now()

    Application("SessionStops"= _
        Application("SessionStops"1
        
End Sub
'Sub Application_Error(Sender as Object, e as EventArgs)
'    Response.Redirect("errorshappen.aspx")
'EnSub

</SCRIPT>

--%>
           
       
EmployeeDatabase.zip( 10 k)
Related examples in the same category
1. Application state
2. Application.Count (VB.net)
3. All application variables (VB.net)
4. Application.AllKeys (VB.net)
5. Add new name value pair to the Application (VB.net)
6. Give a Application a new value (VB.net)
7. Application.Count before and after variable setting (VB.net)
8. Application(I) (VB.net)
9. Application: GetKey (VB.net)
10. Application.RemoveAll() (VB.net)
11. Application.Item by index (VB.net)
12. Application.Item by kay (VB.net)
13.  For Each Key in Application.Keys (VB.net)
14. Application.Lock() and unLock() (VB.net)
15. Application.StaticObjects (VB.net)
16. Application Set (VB.net)
17. Application.Remove (VB.net)
18. Application Remove At (VB.net)
19. Application.Clear() (VB.net)
20. Application property example (VB.net)
21. Store key value pair for entire application (C#)
22. Set Application key value pair (VB.net)
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.