Imports System.IO

Imports System.IO.Compression

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

Dim app As HttpApplication = CType(sender, HttpApplication)

Dim acceptEncoding As String = app.Request.Headers("Accept-Encoding")

Dim prevUncompressedStream As Stream = app.Response.Filter

If acceptEncoding Is Nothing Or acceptEncoding = "" Then

Return

End If

If (acceptEncoding.Contains("gzip")) Then

app.Response.Filter = New GZipStream(prevUncompressedStream, _

app.Response.AppendHeader("Content-Encoding", _

"gzip")

ElseIf (acceptEncoding.Contains("deflate")) Then

app.Response.Filter = New DeflateStream(prevUncompressedStream, _

app.Response.AppendHeader("Content-Encoding", _

"deflate")

End If

End Sub