Imports Microsoft.VisualBasic
Imports System.Web
Public Class AppendMessage
Implements IHttpModule
Dim WithEvents _application As HttpApplication = Nothing
Public Overridable Sub Init(ByVal context As HttpApplication) _
Implements IHttpModule.Init
_application = context
End Sub
Public Overridable Sub Dispose() Implements IHttpModule.Dispose
End Sub
Public Sub context_PreSendRequestContent(ByVal sender As Object, _
ByVal e As EventArgs) Handles _application.PreSendRequestContent
Dim message As String = ""
_application.Context.Response.Output.Write(message)
End Sub
End Class
File: Web.config