Problema con ASPEmail, se produce un bucle infinito...

[u_goldman]

Para comenzar deshazte de los error handlers y correlo varias veces hasta que puedas ver cual es el error, a simple vista no se ve nada, quizas es un error de datos.

Código:

                aBcc = split(Destinatarios,";")
                For n = 0 to ubound(aBcc)
                        'on error resume next
                        cMail = aBcc(n)
                        strError = Correo(De(0),De(1),cMail,cMail, Asunto,MensajeE,Servidor)
                        'on error goto 0
                next

                Function Correo(From,FromName,Address,AddressName,Subject,Body,Servidor)    
                    Dim Mail
                    'On Error Resume Next
                    Set Mail = Server.CreateObject("Persits.MailSender")
                    Mail.Host = Servidor
                    Mail.From = From
                    Mail.FromName = FromName
                    Mail.AddAddress Address, AddressName
                    Mail.Subject = Subject
                    Mail.IsHTML = True
                    Mail.Body = Body
                    Mail.Send
                    If Err <> 0 Then
                        Correo = Err.Description
                    Else
                        Correo = ""
                    End If
                    Set Mail = Nothing
                End Function