Problema con Session_Start

[Rony J.]

Ok, el code que tengo es más o menos este:

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

En realidad según veo el problema es que no se dispara el evento, ya que localmente funciona a la perfección, y además hice esta prueba colocando un redirect y tampoco funciona. Asi:

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

'para que al dispararse el evento se diriga a otra página
Response.Redirect("http://www.forosdelweb.com")

End Sub