Omitizar

[Ironico 0]

Amigos uso uma rotina para envio de um newsletter através de um sitePorém muitos emails para o envio foram cadastrados o que causa um time out no servidor.Como poderia omitizar a rotina ? <%set result = emailDB.Execute("SELECT * FROM " & tabela)While Not result.EOF Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.BodyFormat= 0 objCDOMail.MailFormat= 0 mensagem = Request.Form("mensagem") mensagem = replace(mensagem,chr(13),"<br>",1) rodape="<br>" rodape=rodape & Request.Form("publicacao") & " Data da Publicação: " & Request.Form("data") rodape=rodape & "<br>" rodape=rodape & "-------------------------------------------------------<br>" rodape=rodape & "Nota: Este e-mail é gerado automaticamente. Por favor não dê reply<br>" texto=mensagem & rodape objCDOMail.From = "email@origem.com.br" objCDOMail.To = result("email") objCDOMail.Subject = Request.Form("assunto") objCDOMail.Body = texto objCDOMail.Send Response.Write "E-mail enviado com sucesso -> " & result("email")& "<br>" result.MoveNext Wend %>Será que definindo antes o corpo do texto e deixando somente o loop para envio pegar os emails e disparar ficaria mais rápido ?Abraços

[-TP- 0]

você pode colocar um timeout monstruoso para ele, porém eu prefiro colocar rotinas de newsletter enviando em VB, pois ele não dá timeout.

[nostrinkes 0]

sua tabela tem mais campos fora o email?

set result = emailDB.Execute("SELECT * FROM " & tabela)

Se tiver usa assim

set result = emailDB.Execute("SELECT email FROM " & tabela)

 

:D :D :D