Problema con MailServer

[lalogrosz]

Hola...primero muestro el codigo

Código HTML:

Function Enviar_Email(notimail,fecha,titulo,copete,descripcion,link,suscripcion,su_id)

Dim oConnn 'Objeto de Conexion a la Base'
Dim oRS  ' Recordset para tomar los datos del query
Dim sSQL  ' String para hacer el query
Dim aquien  ' a quien le envia los mails
Dim cont    'Contador ver de a cuantos mails se envian


        'creamos el Objeto con la siguiente linea...
        Set oMail = Server.CreateObject("Persits.MailSender")

        'aqui configuramos el servidor SMTP y el usuario que usamos...
        oMail.Host  = "smtp.fibertel.com.ar"
        oMail.Username = "[email protected]"
        oMail.Password = "alan2005"

        'definimos y configuramos sus propiedades basicas...
        oMail.FromName   = "AlbanoCarratala"
        oMail.From  = "[email protected]"
        oMail.Subject = titulo


        oMail.Body  = Mensaje(notimail,fecha,titulo,copete,descripcion,link,suscripcion)
        oMail.IsHTML = True

        'Busco los usuarios que estan suscriptos a la categoria de esta noticia
        sSQL = "SELECT u.us_email,u.us_nomyap FROM Usuario u, Se_suscribe s WHERE s.su_id = '"&su_id&"'"
        sSQL = sSQL + " AND s.us_email = u.us_email"

        'Seteo el objeto de conexion
        set oConnn = Application("oConn")
        set oRS = oConnn.Execute(sSQL)

        'Corte de control para mandar destinatarios
        While not oRS.EOF
                cont = 1

                'Mando de a 20 mails para que no se sature
                while(cont <= 20) and (not oRS.EOF)                  

                    'a quien enviamos el mail
                    oMail.AddAddress oRS("us_email")," "

                    'Muevo y sumo uno
                    oRS.MoveNext
                    cont = cont + 1
                wend

                oMail.Send
                oMail.Reset
        wend


        oConnn.Close
        set oConnn = nothing
        set oRS = nothing


        'Mensaje que devuelvo...
        if not Err then
            Enviar_Email = "El mail fue enviado con exito"
        else
            Enviar_Email = "El mail no pudo ser enviado."
        end if

        set oMail = Nothing

End Function

El tema es que me tira este error:

Persits.MailSender.4 error '800a0006'
501 5.1.3 Path data: Extra garbage before terminating ">"

y no logro encontrar el problema, pero me aparecio despues del Reset que le agregue. Ademas lo hice porque no me dejaba mandar a muchos destinatarios, (hay manera de configurar la cantidad desde el codigo?).
Una solucion ?

Gracias!