Microsoft Cursor Engine error '80040e21'

[sheridan 0]

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

 

%>

[sheridan 0]

galera, vê se alguém pode me dar uma dica, estou realmente desesperado com este errocaso eu não tenha explicado problema com clareza, por favor me dêem um toquevaleu!!!! :lol:

[d.eleete 0]

você não poderia criar ou RS pra atualizar a status_lista??

[Salgado 4]

Tente com esses cursores:

RS.Open strSql, CN,2,3

[sheridan 0]

você não poderia criar ou RS pra atualizar a status_lista??

o problema é que eu tenho que atualizar apenas o registro atual o todos os registros da página atual. eu tentei criando um RS, mas ai ele atualizou todos os registros, ignorando a paginação

[sheridan 0]

Tente com esses cursores:

RS.Open strSql, CN,2,3

vou tentar e dou uma resposta...valeu!!!!!

[sheridan 0]

Tente com esses cursores:

RS.Open strSql, CN,2,3

vou tentar e dou uma resposta...valeu!!!!!

putz cara, deu o mesmo erro. tô ficando louco.... só falta isto pra entregar o produto pro cliente....ahhhhhhhhhhhhhh

[sheridan 0]

galera, alguém poderia tentar me dar uma mão com este problema??? já estou há 04 dias nisto e não consigo sair do lugar....to ficando doidooooooooooooooooooooooooooooooo valeu!!!!!sheridan

[sheridan 0]

galera, teria como eu colocar algum comando dentro do meu codigo (que está ai acima) pra visualizar a manipulação dos dados na tela, para que eu possa tentar resolver este problema??? parece um beco sem saída, ainda não consegui resolver.talvez assim eu consiga ver o erro no meu código....valeu!!!! :D

[sheridan 0]

em um outro fórum me deram a seguinte informação:-----------------------------------------------------------------------------------Isso diz respeito ao teu limite de caracteres no BD, que certamente você ultrapassou --------------------------------------------------------------------------------sou iniciante e as vezes me perco e/ou esqueço de alguns conceitos básicos...como assim limite de caracteres do bd. o tamanho da informação que estou tentando inserir no campo é compatível. seria outra coisa?????agradeço a ajuda, pois vou começar a pesquisar... só pra constar : o campo STATUS da tabela EMAIL é VARCHAR (15)sheridan

[Mario Xavier 0]

Sei q esta meio tarde pra responder mas caso alguem tenha este problema novamente, ja vao esta ciente de como resolver!

 

O problema q este erro gera, é que você esta adicionando no banco de dados uma quantidade a mais de caracteres... ou seja você não esta validando no cliente a quantidade certa para poder adicionar no banco!

 

ex,um atributo no banco de dados com o nome e seu tipo:

 

descricaoNoticia nvarchar(200)

o usuario ou você msm, fazendo o teste no cliente, deve estar passando ex. 351 caracteres... e seu sistema não esta validando esta quantidade!

 

espero ter ajudado galera!