ESSE AQUI N VAI TER ERRO <% function enviar_email(de_email,de_nome,para_email,para_nome,assunto,texto) Set objmail = Server.CreateObject("CDONTS.NewMail") objmail.from = de_email objmail.to = para_email objmail.subject = assunto objmail.body = texto objmail.send Response.Write "Email enviado para : " & para_nome & " || " & para_emailtime & " set objmail = nothing end function ConnString="DBQ=e:\aspbrasil\teste.mdb;Driver={Microsoft Access Driver (*.mdb)}" sqlstmt = "select nome, email from cadastro" Set Conn = Server.CreateObject("ADODB.Connection") set rsquery = conn.execute(sqlstmt) nr_geral = 0 assunto = request.form("assunto") texto = replace(request.form("texto"),chr(13)," ") while not rsquery.eof enviar_email("dangelo@aspbrasil.com.br","ASPBRASIL",rsquery("email"),rsquery("nome"),assunto,texto) nr_geral = nr_geral + 1 wend Response.write "Numero Total de Emails: " & nr_geral & " rsquery.close set rsquery = nothing set conn = nothing %>