Session Cookie ASP.Net

  1. Home
  2. ASP.Net
  3. Session Cookie
  4. Get variables from global asax (VB net)
<%@ Page Language=VB Debug=true %>

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



Coding the Application_OnStart Event


    id="lblAppName"
    font-size="14"
    runat="server"
/>



    id="lblMessage"
    runat="server"
    text="Enter your order total to 
        see the shipping charge"
/>



    id="txtOrderTotal" 
    columns="25"
    maxlength="30"
    runat=server 
/>



    id="butOK"
    text="  OK  "
    onclick="SubmitBtn_Click" 
    runat="server"
/>



<%--
<%@ Import Namespace="System.Diagnostics" %>
<%@ Import Namespace="System.Data.OLEDB" %>

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")) = 0 Then
    '    Response.Redirect("welcome.aspx")
    '    Session("WhenEntered") = Now()
    'End If
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")
'End Sub

--%>
           
       
EmployeeDatabase.zip( 10 k)