samples/OpenIdRelyingPartyWebFormsVB/Code/TracePageAppender.vb


1
2
3
4
5
6
7
8
9
10

Imports System.IO

Public Class TracePageAppender
	Inherits log4net.Appender.AppenderSkeleton

	Protected Overrides Sub Append(ByVal loggingEvent As log4net.Core.LoggingEvent)
		Dim sw As StringWriter = New StringWriter(Global_asax.LogMessages)
		Layout.Format(sw, loggingEvent)
	End Sub
End Class