In my VS2003 project I send mail and it sends 7-8 times every time I send it?
-
In my VS2003 project I send mail and it sends 7-8 times every time I send it? I have the following code in my global.asax code, The problem is the receiver gets 7-8 copies every time i SEND IT? Public Class Global Inherits System.Web.HttpApplication #Region " Component Designer Generated Code " Public Sub New() MyBase.New() 'This call is required by the Component Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Required by the Component Designer Private components As System.ComponentModel.IContainer Private Sub InitializeComponent() components = New System.ComponentModel.Container() End Sub #End Region Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs) ' Fires when the application is started '1. Create a connection Dim myConnection As New SqlConnection(ConfigurationSettings.AppSettings("connectionString")) myConnection.Open() '2. Create the command object, for the query Const strSQL As String = "Select LastUpdated, ProductId from products " Dim objCmd As New SqlCommand(strSQL, myConnection) Dim objDR As SqlDataReader Dim att objDR = objCmd.ExecuteReader() While (objDR.Read) If (Not (objDR("LastUpdated") Is DBNull.Value)) Then If (Date.Compare(objDR("LastUpdated"), Today.Date) = 0) Then Dim newMail As New MailMessage newMail.From = "zzzxyz@msn.com" '' this is the From Address newMail.To = "bill@msn.com" '' this is TO Address 'newMail.Cc = "ken@dtyinc.net" '' this is TO Address newMail.Subject = "Change in Product Rate" newMail.Body = " Dear Ken, " & "Please review attached document for product ID: " & objDR("ProductID") & "Thank you," & "Kenn()" att = New MailAttachment("C:\Inetpub\wwwroot\GrocerToGo\Product_Changed.doc") newMail.Attachments.Add(att) newMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") newMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "bill@dtyinc.net") newMail.Fields.Add("