Problem with logging program.

[Jeff]

Ok. I have traced the problem with multiple logs and
emails to this section of the code and can't figure out
why it repeats itself. Any help would be appreciated.
---- Begin Code ----
Public Sub LognEmail(ByVal strMessage As String)

Dim sSource As String
Dim sLog As String
Dim sEvent As String
Dim m As New System.Web.Mail.MailMessage()

sSource = "FolderWatcher"
sLog = "System"
sEvent = strMessage

If Not EventLog.SourceExists(sSource) Then
EventLog.CreateEventSource(sSource, sLog)
End If

With m
.From = strUser & "@mcglinchey.com"
.To = "jg*******@mcglinchey.com"
'.CC = "jr***@mcglinchey.com"
.Subject = "FolderWatcher Notification"
.Body = sEvent
.Priority = MailPriority.High
End With

SmtpMail.SmtpServer = "mail.mcglinchey.com"
SmtpMail.Send(m)

strLogMsg = ""

Exit Sub

End Sub

---- End Code ----

[Cor]

Hi Jeff,

Just a first thought don't know much about the event log but can it be

If Not EventLog.SourceExists(sSource) Then
EventLog.CreateEventSource(sSource, sLog)
End If

That this creates an event, and therefore let the watcher do something that
sends a mail again.

Just a thought

Cor