Problema con Session_Start

[Rony J.]

Por si alas.. todo el código de mi global.asax es este:


Option Strict On
Option Explicit On

Imports System.Web
Imports System.Web.SessionState

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports MiProyecto.Accesos

Imports System.Web.HttpContext

Public Class Global
Inherits System.Web.HttpApplication

#Region " Código generado por el Diseñador de componentes "

Public Sub New()
MyBase.New()

'El Diseñador de componentes requiere esta llamada.
InitializeComponent()

'Agregar cualquier inicialización después de la llamada a InitializeComponent()

End Sub

'Requerido por el Diseñador de componentes
Private components As System.ComponentModel.IContainer

'NOTA: el Diseñador de componentes requiere el siguiente procedimiento
'Se puede modificar utilizando el Diseñador de componentes.
'No lo modifique con el editor de código.
<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)
' Se desencadena cuando se inicia la aplicación
End Sub

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

'Aca lo que hago es guardar en una tabla el acceso a mi página, la ip desde
'dond se conectan, la fecha y hora.
Dim DirIP As String = Request.ServerVariables("REMOTE_HOST")
Dim sAccesos As New SistemaAccesos
sAccesos.InsertarAcceso(CStr(Today()), CStr(TimeOfDay()), DirIP)

End Sub


Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
' Se desencadena al principio de cada solicitud
End Sub

Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
' Se desencadena al intentar autenticar el uso
End Sub

Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
' Se desencadena cuando ocurre un error
End Sub

Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
' Se desencadena cuando termina la sesión
End Sub

Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
' Se desencadena cuando termina la aplicación
End Sub

End Class