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.