Email em Massa, Erro no FOR...

[marcelocardoso 6]

Colegas...

Peguei este script na NET, estou tentando adaptar...
Porém, dá erro no FOR...

 

<%
  IF NOT Session("usuario_logado") = "conectado" THEN
     Response.Redirect "default.asp"
  ELSE

    RESPONSE.BUFFER    = TRUE
    REGISTROSPORPAGINA = 1

 
        IF Request("PaginaAtual") = "" OR Request("PaginaAtual") = "0" THEN
            PaginaAtual = 1
        ELSE
            PaginaAtual = Request("PaginaAtual")
        END IF

   response.write "chegou até aqui... 1 <br>"
   
               SQL = "SELECT * FROM contatos ORDER BY email ASC"
        SET strMKT = Server.CreateObject("ADODB.RECORDSET")
            strMKT.CacheSize = RegistrosPorPagina
            strMKT.Open SQL, conexao, 3, 3
            strMKT.PageSize  = RegistrosPorPagina
        
        STATUS = ""


   response.write "chegou até aqui... 2 <br>"
   
        IF NOT strMKT.EOF THEN
               strMKT.AbsolutePage = PaginaAtual
                      TotalPaginas = strMKT.PageCount
                     StatusDoEnvio = StatusDoEnvio & Fix((PaginaAtual*100)/TotalPaginas) & " % enviado <br>"

   response.write "chegou até aqui... 3 <br>"
   
            FOR CONT = 1 TO strMKT.PageSize
%>

    codigo da mensagem a ser enviada, CDOSYS
    

<%
   response.write "chegou até aqui... 4 <br>"
   
               strMKT.MoveNext
            IF strMKT.EOF THEN EXIT FOR
   
                NEXT 

                IF INT(PaginaAtual) < Int(TotalPaginas) THEN 

                    Response.Write StatusDoEnvio 
                    Response.Write "Aguarde o envio da newsletter..." 

                         Contador = Contador & "<script type=""text/javascript"">"
                         Contador = Contador & "   function AtualizaEmail() {document.location.href = ""?PaginaAtual=<" & "%=PaginaAtual + 1%" & "> } SetTimeOut(""AtualizaEmail()"", 5000);"
                         Contador = Contador & "</script>"

                    Response.Write Contador            

                ELSE
                    Response.Write "envio de newsletter concluido 100%"
                END IF
           
        END IF

    
       strMKT.close
   SET strMKT = nothing
    
       conexao.close
   SET conexao = nothing

END IF
%>

só chega até o RESPONSE>WRITE "chegou até aqui 2", não passa dalí...
só mudei as variaveis, porém, não consigo desvencilhar o código...

Ajuda, agradeço.

[marcelocardoso 6]

consegui resolver...
agora outro problema....

seria com o ajax...
procurei na net, mas não encontrei solução...

 

$(function() {
$.ajax({
type: 'post',
url: 'vmares_admin_mkt.asp',
success: function(response) {
$("#barra_porc1").attr("style", "width: '"+ response['porcentagem'] +"'");
$("#barra_porc2").html("<div id='barra_porc2'>'"+ response['porcentagem'] +"' completado!</div>");
$("#barra_mail").html("<div id='barra_mail'>'"+ response['StatusDoEnvio'] +"'</div>");
},
error: function(response) {
$("#barra_erro").fadeIn(500).delay(2000).fadeOut(500);
},
});
return false;
});

como posso pegar do arquivos ASP, duas variaveis que de lá, receber elas dentro do BARRA_PORC1, 2 e BARRA_MAIL
Dicas e sugestões de como pegar do FROM pelo AJAX e jogar no SUCCESS do AJAX...

Obrigado.

[xanburzum 169]

você está usando o post como método, tentou mudar para Get

[marcelocardoso 6]

Colegas...
Consegui resolver de outra maneira, mas mesmo assim, obrigado pelos que tentaram e se doaram em ajudar...
Muchas Gracias...

[marcelocardoso 6]

Retomando...

1) como posso não ultrapassar o limite hora, no script postado acima que é de 200 emails por HORA?
2) como posso estruturar o script, tipo, mandar <= 200/h e depois parar mais uma hora, e depois sim, recomeçar o script?

Qual seria o melhor esquema, jeito de fazer...
Postar idéias, para elaborar o melhor método de disparo, agradeço contribuições...


Obrigado.

[Gustavo Emygdio Barboza 24]

Nesse caso coloque um LIMIT de 200 ou um SELECT TOP 200 na SQL e agende o envio de 1 em 1 hora... vai resolver...