Ciao grazie per la risposta.
Nel codice che vedi sotto in pratica io controllo prima il valore massimo del campo mailing_utente che si incrementa nel database di una unità ogni 100 registrazioni.

Sulla base di questo valore faccio un ciclo for, per recuperare 100 indirizzi e fare l'invio di quei 100, e così via.

Su IIS cosa dovrei verificare nello specifico?

Ecco il codice:
codice:
            Dim MYSQL2 As String
            Dim MYCMD2 As SqlCommand
            Dim Max As Int32

        MYSQL2 = "SELECT MAX(mailing_utente) AS mailing_utente FROM tab_utenti2 WHERE attiva_utente = 1 AND elimina_mailing = 0"
            MYCMD2 = New SqlCommand(MYSQL2, conn)

            Max = MYCMD2.ExecuteScalar

            Dim i As Integer

        Dim MYSQL3 As String
        Dim MYCMD3 As SqlCommand
        Dim MYDR3 As SqlDataReader

        For i = 1 To Max



            MYSQL3 = "SELECT DISTINCT(email_utente) FROM tab_utenti2 WHERE mailing_utente = " & i & " " & TxtSql & " " & TxtSqlListino & " " & TxtSqlRegione & " AND elimina_utente = 0 AND attiva_utente = 1 AND elimina_mailing = 0"
            MYCMD3 = New SqlCommand(MYSQL3, conn)
            MYDR3 = MYCMD3.ExecuteReader


            Dim myEmail As New Net.Mail.MailMessage

            Dim Email, Email2, Destinatari As String

            Destinatari = ""
            Email = ""
            Email2 = ""

            myEmail.IsBodyHtml = True
            myEmail.From = New MailAddress("newsletter@sito.com", "SITO")
            myEmail.Subject = Titolo

            If MYDR3.HasRows = True Then
                Do While MYDR3.Read

                    If Regex.IsMatch(MYDR3.Item("email_utente"), "\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*") Then
                        Email = MYDR3.Item("email_utente")
                        'Try
                        myEmail.Bcc.Add(Email)
                        'Catch ex As Exception

                        'End Try

                        Response.Write(Email & "
")
                    End If
                Loop
            End If

            Response.Write("
<br")

            If FupFoto.HasFile = True Then
                Allegato = DateTime.Now.Ticks.ToString & "_" & FupFoto.FileName
                FupFoto.SaveAs(Server.MapPath("/public/newsletter/" & Allegato))

                Dim Attachment As New System.Net.Mail.Attachment(Server.MapPath("/public/newsletter/" & Allegato))
                myEmail.Attachments.Add(Attachment)

            End If


            myEmail.Body = Riepilogo


            Try
                Dim mySmtpClient As New System.Net.Mail.SmtpClient
                mySmtpClient.Timeout = 3000000
                mySmtpClient.Send(myEmail)
            Catch ex As Exception

            End Try

        Next

        MYDR3.Close()
        conn.Close()
Grazie mille