Set mailobj = Server.CreateObject("CDONTS.NewMail") ' naca error while not rsDestinatario.eof ... rsDestinatario.movenext wend Set mailobj = nothing