Email em Massa, Erro no FOR...
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.
Discussão (5)
Carregando comentários...