Olá Pessoal Será que alguém poderia me ajudar com o CODIGO? Olhem AQui www.aiesecpoa.com.br/mailing USER : doug SENHA: ok o Codigo é: <% Server.ScriptTimeout = 1000000 Set RS = Server.CreateObject("ADODB.Recordset") Set RSBODY = Server.CreateObject("ADODB.Recordset") SQL2 = "SELECT * from Settings" RSBODY.Open SQL2, Conn, 1, 3 SQL = "SELECT Email FROM List" RS.open SQL, conn Select Case RSBODY("Component") Case "CDONTS" Do While Not RS.eof set mailObj = Server.CreateObject("CDONTS.NewMail") If (Request("Format") = "Text") Then mailObj.BodyFormat = 1 mailObj.MailFormat = 1 Else mailObj.BodyFormat = 0 mailObj.MailFormat = 0 End If mailObj.From = RSBODY("From_Email") mailObj.To = RS("Email") mailObj.Subject = Request("Subject") mailObj.Body = Request("Body") mailObj.Send RS.movenext Loop REPAREM que ali, aparece SELECT * from LIST O problema [é como fazer os WHERES depois??? Vamos lá, pessoal, deem uma força, é pra uma ONG que eu estou fazendo...