Microsoft Cursor Engine error '80040e21'

acontece o seguinte erro

Microsoft Cursor Engine error '80040e21'

Multiple-step operation generated errors. Check each status value.

/sac/adm_mail_envio_html.asp, line 109

---------------------------------------------------------------------------------------------------------

o código inteiro da pg esta abaixo

o que pode estar acontecendo, na minha máquina este erro não acontece....

agradeço a ajuda

-----------------------------------------------------------------------------------------------------------

<%

Const intPageSize = 100 'tamanho da página

dim intCurrPage 'pagina atual

dim a

intCurrPage = cint(Request.QueryString("CurrPage"))

if intCurrPage=0 then intCurrPage=1 end if

'path e-mail html

dim ObjFSO

Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")

path = Server.MapPath("html")

'upload html

Set Objeto = CreateObject ("Scripting.FileSystemObject")

set GV = Objeto.OpenTextFile(path&"/"&email_pers,1,true,false)

HTML_Original = GV.ReadAll

GV.close

Set Objeto = nothing

Set RS = Server.CreateObject("ADODB.Recordset")

strSql="SELECT contatos.id_contato, contatos.nome_contato, contatos.empresa, contatos.status_email, contatos.email, vendedores.nome_vendedor,"&_

"vendedores.telefone, vendedores.email_vend, email.* FROM vendedores RIGHT JOIN contatos ON vendedores.id_vendedor = contatos.vendedor LEFT JOIN email "&_

"ON email.id_email = contatos.lista_email WHERE contatos.lista_email = "&id_email&" AND contatos.status_email = 'PENDENTE'"

RS.CursorLocation = 3

RS.Open strSql, CN,1,2

if not RS.EOF then

RS.PageSize=intPageSize

RS.AbsolutePage = intCurrPage

Response.Write ("Enviando bloco de "&intPageSize&" emails de um total de "&RS.RecordCount&" <BR>")

a=0

while a < intPageSize and not RS.EOF

a=a+1

HTML = HTML_Original ' Recuperando o HTML Original para pode fazer a personalização do e-mail

'declarando variáveis

nome = RS("nome_contato")

email = RS("email")

assunto = RS("assunto")

vendedor = RS("nome_vendedor")

telefone = RS("telefone")

email_vend = RS("email_vend")

email_rem = RS("email_rem")

'personalização html

'HTML = replace(HTML,"#nome#",nome_contato)

'HTML = replace(HTML,"#Empresa#",empresa)

'HTML = replace(HTML,"#nome_vendedor#",nome_vendedor)

'HTML = replace(HTML,"#telefone#",telefone)

'response.write HTML

'envio e-mail html

Dim myMail

Set myMail = CreateObject("CDONTS.NewMail")

myMail.From = email_rem

myMail.To = email

myMail.Subject = assunto

myMail.BodyFormat = 0

myMail.MailFormat = 0

myMail.Body = HTML

myMail.Send

Set myMail = Nothing

'atualização status_lista tb contatos

RS("status_email")="CONCLUIDO"-----------------linha 109

RS.Update

RS.MoveNext

wend

if RS.PageCount = intCurrPage then

Response.Redirect("adm_mail_envio_html.asp?id_email="&Request("id_email")&"&email_pers="&Request("email_pers")&"")

else

Response.Write ("<BR><BR>Aguarde enquanto o próximo bloco de e-mails é preparado para o envio <BR>")

pagina = "adm_mail_envio_html.asp?id_email="&Request("id_email")&"&email_pers="&Request("email_pers")&""

end if

%>

<script language="JavaScript">

setTimeout("self.self.location.href='<%=pagina%>'", 300000)

 </script>

 

 </div></td>

 </tr>

 <tr>

 <td height="84"><div align="center"><img src="img/aguarde.gif" width="150" height="40"></div></td>

 </tr>

 <tr>

 <td><div align="center">Caso Queira Interromper Esta Operação, <a href="adm_mail_envio.asp" target="_self">Clique

 Aqui</a>!!!</div></td>

 </tr>

 <%

else

'atualização status_lista tb email

Set RS2 = Server.CreateObject("ADODB.Recordset")

strSql="select * from email where id_email = "&id_email&""

RS2.CursorLocation = 3

RS2.Open strSql, CN,1,2

data = Year(Cdate(date)) &"-"& Month(Cdate(date)) &"-"& Day(Cdate(date))

hora = time

datahora= data&" "& hora

RS2("status")="ENVIADO"

RS2("dt_envio")=datahora

RS2("usuario_envio") = session("usuario")

RS2.Update

RS2.Close

Response.Write ("<BR><BR>Parabéns, sua lista de e-mail foi enviada com sucesso")

Response.Write ("<BR><BR><a href=""adm_mail_envio.asp"">Voltar Para Enviar Mais Listas</a>")

Response.Write ("<BR><BR><a href=""home.asp"">Voltar Para Home</a>")

end if

RS.Close

%>