<%@ Application Language="VB" %>
<%@ Import Namespace="System.Diagnostics" %>

<script RunAt="server">   
    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        Try
            MailEnable.Web.IIS.IISDebugWriter.WriteDebugString("application startup")
            MailEnable.Web.IIS.MEIISModule.ME_Init()
            AddHandler AppDomain.CurrentDomain.DomainUnload, AddressOf Unload_EventHandler
            AddHandler AppDomain.CurrentDomain.ProcessExit, AddressOf Unload_EventHandler
        Catch ex As Exception
            EventLog.WriteEntry("MailEnable", "Exception in Application_Start: " & ex.Message)
        End Try
    End Sub
    
    Sub Unload_EventHandler(ByVal sender As Object, ByVal e As EventArgs)
        MailEnable.Web.IIS.IISDebugWriter.WriteDebugString("application domain/process shutdown")
        MailEnable.Web.IIS.MEIISModule.ResetUsageCount()
        MailEnable.Web.IIS.MEIISModule.ME_UnInit() ' Should only happen when the surrogate process/w3wp app pool instance/domain is shutdown
    End Sub
    
    Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs on application shutdown   
        MailEnable.Web.IIS.IISDebugWriter.WriteDebugString("application shutdown")
        MailEnable.Web.IIS.MEIISModule.ME_UnInit() ' Is usage counted, so we should only dispose when count is 0
    End Sub

    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when an unhandled error occurs   
    End Sub

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when a new session is started   
    End Sub
    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
    End Sub
  
</script>