Missing Web log Entry's for file downloads

[=?Utf-8?B?QU9UWCBTYW4gQW50b25pbw==?=]

Hi,

I have been using the code (some of it has been removed for simplicity)
below to allow authenticated (using ASP.NET membership database) users to get
a file from their archive area. It seems to work fine, however I noticed
that no web log entry is added when a successful download occurs (normally a
200 HTTP status code, however, if there is an authorization failure, it gets
logged). I have a logging routine that logs a successful download to a
database, but the W3SVC IIS log has nothing. The code below is contained in
an .ashx file. One other thing to note, I have added MADAM to the web
application, to allow for basic authentication (they might use WGET to
download archives, instead of the web forms).

Thanks.

Public Class GetArchive : Implements IHttpHandler
Public Sub ProcessRequest( ByVal context As HttpContext) Implements
IHttpHandler.Pr ocessRequest
Dim strFileName As String = String.Empty
Dim blnTransmitting File As Boolean = False
Try
context.Respons e.Buffer = True
If context.User.Id entity.IsAuthen ticated = True Then
strFileName = context.Request .QueryString("f ile")
If String.IsNullOr Empty(strFileNa me) = False Then
strFileName = System.IO.Path. GetFileName(str FileName)
context.Respons e.Clear()

Dim objFileInfo As New System.IO.FileI nfo(strFileName )
Dim intFileSize As Long = 0

If objFileInfo IsNot Nothing Then
intFileSize = objFileInfo.Len gth
End If

context.Respons e.StatusCode = 200
context.Respons e.ContentType = "applicatio n/zip"
context.Respons e.AddHeader("Co ntent-Disposition",
"attachment ; filename=" + strFileName)
context.Respons e.AddHeader("Co ntent-Length",
intFileSize.ToS tring())

If context.Request .HttpMethod <"HEAD" Then
Dim dtStart As DateTime = Now()
Dim dtFinish As DateTime
Dim tsTimeTaken As TimeSpan
context.Respons e.SuppressConte nt = False
context.Respons e.Buffer = False
context.Respons e.BufferOutput = False
blnTransmitting File = True
context.Respons e.TransmitFile( strFileName, 0, -1)
context.Respons e.Flush()
context.Respons e.Close()
dtFinish = Now()
tsTimeTaken = dtFinish - dtStart
EventLogger.Log DownloadEvent(s trFileName,
strUserName, tsTimeTaken.Tot alSeconds)
End If
Else
context.Respons e.Clear()
context.Respons e.ContentType = "text/plain"
context.Respons e.StatusCode = 404
context.Respons e.Write("File Not Found")
End If
End If

Catch ex As Exception
If blnTransmitting File = False Then
context.Respons e.Clear()
context.Respons e.ClearContent( )
context.Respons e.ClearHeaders( )
context.Respons e.ContentType = "text/plain"
End If
context.Respons e.StatusCode = 403
context.Respons e.Write("Reques t failed [" + ex.ToString() + "]")
EventLogger.Log DownloadEvent(" Failed", ex.ToString())
End Try
End Sub

Public ReadOnly Property IsReusable() As Boolean Implements
IHttpHandler.Is Reusable
Get
Return False
End Get
End Property
End Class