Imports System.Web
Imports System.Web.SessionState
Imports System.Data
Imports System.Data.OLEDB

Public Class Global
    Inherits System.Web.HttpApplication

    Private Shared db As String = ConfigurationSettings.AppSettings("db")
    Protected connectionString As String = ConfigurationSettings.AppSettings("connectionString1")

#Region " Component Designer Generated Code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Component Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Required by the Component Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Component Designer
    'It can be modified using the Component Designer.
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        components = New System.ComponentModel.Container()
    End Sub

#End Region

    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the application is started
    End Sub

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the session is started
    End Sub

    Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires at the beginning of each request
    End Sub

    Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires upon attempting to authenticate the use
    End Sub

    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when an error occurs
    End Sub

    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)

    End Sub

    Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)

        Dim objCon As New OleDbConnection(connectionString)
        objCon.Open()

        Dim objCommand As OleDbCommand
        Dim objDataReader As OleDbDataReader
        Dim strSQL As String

        Session("logoutTime") = DateTime.Now().ToString("T")

        strSQL = "update Emp_Login " _
         & "set logout_time = '" & Session("LogoutTime") & "' " _
         & "where login_time = '" & Session("LoginTime") & "' and emp_no = '" & Session("userSession") & "'"

        objCommand = New OleDbCommand(strSQL, objCon)
        objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)

        objDataReader.Close()
        objCon.Close()

        Session.Contents.RemoveAll()

    End Sub
End Class

Sub Some_Function
Dim objCon As New OleDbConnection(connectionString)
        objCon.Open()

        Dim objCommand As OleDbCommand
        Dim objDataReader As OleDbDataReader
        Dim strSQL As String

        Session("logoutTime") = DateTime.Now().ToString("T")

        strSQL = "update Emp_Login " _
         & "set logout_time = '" & Session("LogoutTime") & "' " _
         & "where login_time = '" & Session("LoginTime") & "' and emp_no = '" & Session("userSession") & "'"

        objCommand = New OleDbCommand(strSQL, objCon)
        objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)

        objDataReader.Close()
        objCon.Close()

    End Sub

<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<%@ Import Namespace="System.Data.SqlClient" %>