Control de errores!

[Jose_minglein2]

No se de verdad, mira mi global.asax para haber si encuentras alguna difencia:

Código:

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
        Application("elementos") = 20
    End Sub

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Se desencadena cuando se inicia la sesión
        Session("usuario") = 0
    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
        Dim ex As Exception
        'Obtengo el último error que se genero  
        ex = Server.GetLastError().InnerException
        Dim sError As String
        sError = ex.Message
        Dim texto As String = Request.Path + Chr(13) + Chr(10) + Chr(13) + Chr(10)
        texto += ex.Message + Chr(13) + Chr(10) + Chr(13) + Chr(10)
        texto += ex.StackTrace + Chr(13) + Chr(10) + Chr(13) + Chr(10)
        texto += Request.UserHostAddress     
        Dim envio As New emails(texto, dir_email)
        envio.enviar()

        Response.Redirect("........"))
    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

La clase mail es la encargada de enviar mails (para no estar repitiendo cada vez el smtp y tal) pero el code interno es el mismo.