1 files changed, 0 insertions, 64 deletions
diff --git a/samples/OpenIdRelyingPartyWebFormsVB/Global.asax.vb b/samples/OpenIdRelyingPartyWebFormsVB/Global.asax.vb
deleted file mode 100644
index 97b0d51..0000000
--- a/samples/OpenIdRelyingPartyWebFormsVB/Global.asax.vb
+++ /dev/null
@@ -1,64 +0,0 @@
-Imports System
-Imports System.Collections.Specialized
-Imports System.Configuration
-Imports System.IO
-Imports System.Text
-Imports System.Web
-Imports OpenIdRelyingPartyWebFormsVB
-
-Public Class Global_asax
-	Inherits HttpApplication
-
-	Public Shared Logger As log4net.ILog = log4net.LogManager.GetLogger(GetType(Global_asax))
-
-	Friend Shared LogMessages As StringBuilder = New StringBuilder
-
-	Public Shared Function CollectionToString(ByVal collection As NameValueCollection) As String
-		Dim sw As StringWriter = New StringWriter
-		For Each key As String In collection.Keys
-			sw.WriteLine("{0} = '{1}'", key, collection(key))
-		Next
-		Return sw.ToString
-	End Function
-
-	Protected Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
-		log4net.Config.XmlConfigurator.Configure()
-		Logger.Info("Sample starting...")
-	End Sub
-
-	Protected Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
-		Logger.Info("Sample shutting down...")
-		' this would be automatic, but in partial trust scenarios it is not.
-		log4net.LogManager.Shutdown()
-	End Sub
-
-	Protected Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
-		' System.Diagnostics.Debugger.Launch();
-		Logger.DebugFormat("Processing {0} on {1} ", Request.HttpMethod, stripQueryString(Request.Url))
-		If (Request.QueryString.Count > 0) Then
-			Logger.DebugFormat("Querystring follows: " & vbLf & "{0}", CollectionToString(Request.QueryString))
-		End If
-		If (Request.Form.Count > 0) Then
-			Logger.DebugFormat("Posted form follows: " & vbLf & "{0}", CollectionToString(Request.Form))
-		End If
-	End Sub
-
-	Protected Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
-		Logger.DebugFormat("User {0} authenticated.", (Not (HttpContext.Current.User) Is Nothing))
-		'TODO: Warning!!!, inline IF is not supported ?
-	End Sub
-
-	Protected Sub Application_EndRequest(ByVal sender As Object, ByVal e As EventArgs)
-
-	End Sub
-
-	Protected Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
-		Logger.ErrorFormat("An unhandled exception was raised. Details follow: {0}", HttpContext.Current.Server.GetLastError)
-	End Sub
-
-	Private Shared Function stripQueryString(ByVal uri As Uri) As String
-		Dim builder As UriBuilder = New UriBuilder(uri)
-		builder.Query = Nothing
-		Return builder.ToString
-	End Function
-End Class
-\ No newline at end of file