ERRO 80040e07

[marcelocardoso 6]

Pessoal!Tenho este básico script para deletar email de newsletter que fiz, mas está dando erro:vejam:

Microsoft OLE DB Provider for ODBC Drivers erro '80040e07' [Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério. remove_email.asp, line 15

<!--#include file="conexao.asp" --><%'Recuperando oque foi escrito no formulário RemoverEMAIL_ID	   = Replace(Request.QueryString("id"),"'","") RemoverEMAIL_MAIL	 = Lcase(Request.QueryString("email")) 'Mudando as variaveis, para melhor segurança dos dados Desativar_ID	 = RemoverEMAIL_ID Desativar_EMAIL  = RemoverEMAIL_MAIL Desativar_UPDATE = 0 'Selecionamos os dados do banco de dados e verificamos se confirma os dados com o do formulario SET VERIFICANDO = ObjCX.Execute("SELECT * FROM SISTEMA_Newsletter WHERE ID='"& Desativar_ID &"' AND NewsletterEmail='"& Desativar_EMAIL &"'") response.write VERIFICANDO response.end   %><%'Vericamos se existe o email no banco de dados, senão apresentamos abaixo  IF VERIFICANDO.EOF THEN	 response.write "Seu endereço de email não pode ser deletado, pois ele não existe em nossa base de dados."	 Response.End  END IF%><%'Cadastrando dados na tabela de controle de acessos antes de entrar no sitema de administração   SET DELETAR = ObjCX.Execute("UPDATE SISTEMA_Newsletter SET NewsletterEmail = '"& Desativar_EMAIL &"' WHERE NewsletterOpcao = "& Desativar_UPDATE &"")'Redirecionamos após efetuação da verificação		 response.write "Seu email foi deletado com sucesso de nossa base de dados."	 Response.End%>

Se puderem me ajudar, pois os dados do select estão certos com o BD, só pode ser alguma coisa na instrução, acho eu....Obrigado!

[jrcardozo 4]

já verificou os campos na tabela se são todos tipo texto? creio que ID seja numérico, se for retire as aspas simples

[marcelocardoso 6]

Ok amigo!

 

Fiz oque você me disse mas agora está me dando este erro aqui:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

 

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

 

/remove_email.asp, line 15

E os campos não são todos texto, mas:

1) ID - Autonumeração

2) NewsletterEmail - Texto

3) NewsletterOpcao = Sim/Não

 

Oque é agora, pois nos campos do BD estão tudo certinho....

[Mário Monteiro 179]

troqueSET VERIFICANDO = ObjCX.Execute("SELECT * FROM SISTEMA_Newsletter WHERE ID='"& Desativar_ID &"' AND NewsletterEmail='"& Desativar_EMAIL &"'")response.write VERIFICANDOresponse.end porSET VERIFICANDO = ObjCX.Execute("SELECT * FROM SISTEMA_Newsletter WHERE ID="& Desativar_ID &" AND NewsletterEmail='"& Desativar_EMAIL &"'")

[marcelocardoso 6]

Obrigado!Vou testar e qualquer coisa retorno novamente....VALEU!