Sql = "insert Into

[newtonrangel2005]

Sql = "INSERT INTO enviados (site,assunto,mensagem,data,numdias) "

Sql = Sql & "VALUES('" & rs_enviados("site") & "','" & rs_enviados("assunto") & "','" & rs_enviados("mensagem") & "','" & Request.Form("data") & "','" & rs_enviados("numdias") & "')"

Conexao.Execute(Sql)

Dá a mensagem:

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/admin.asp, line 235

"Onde a linha 235 é: Conexao.Execute(Sql)"

(numdias) é numero e o resto são dados de um registro, exceto data que vem do formulário.

O Código sem o envio é este abaixo:

<% case "nextsend" %>

<% AbreConexao

Sql = "SELECT * From enviados"

Set rs_enviados = Conexao.Execute(Sql)

while not rs_enviados.EOF %>

<% numdays = 0

numdays = DateDiff("d", Now, rs_enviados("data"))

if numdays >= rs_enviados("numdias") then

Response.Write "<font color=""#000000"">MAIOR OU IGUAL PARA:</font> " & "<font color=""black"">TESTE1</font>" & "<BR>"

AbreConexao

Sql = "SELECT * From dados"

Set rs_email = Conexao.Execute(Sql)

while not rs_email.EOF

if rs_email("site") = rs_enviados("site") then

Response.Write "<font color=""#000000"">TEM EMAIL PARA:</font> " & "<font color=""black"">HOJE !</font>" & "<BR>"

else

Response.Write "Erro enviando para : " & rs_email("email") & " - " & Mailer.Response & "<br>"

end if

Sql = "INSERT INTO enviados (site,assunto,mensagem,data,numdias) "

Sql = Sql & "VALUES('" & rs_enviados("site") & "','" & rs_enviados("assunto") & "','" & rs_enviados("mensagem") & "','" & Request.Form("data") & "','" & rs_enviados("numdias") & "')"

Conexao.Execute(Sql)

else

Response.Write "<font color=""#000000"">NENHUM EMAIL PARA:</font> " & "<font color=""black"">HOJE !</font>" & "<BR>"

end if

rs_email.MoveNext

wend

else

Response.Write "<font color=""#000000"">MENOR PARA:</font> " & "<font color=""black"">TESTE2</font>" & "<BR>"

end if

rs_enviados.MoveNext

wend

FechaConexao %>

alguém pode dar um help ?? Obg

[fercosmig]

os campos data e numero de dias você está salvando como string, verifica se no seu banco eles são string mesmo.

[Guest - bruno -]

Estou com um problema parecido

strins = "INSERT INTO tab_usuario(nome,email,bairro,cidade,estado,cep,endereco,complemento,datanasc,cpf,telefone,sexo,tempoexp,senha,news)"

strins = strins & " VALUES('"&nome&"','"&email&"','"&bairro&"','"&cidade&"','"&estado&"','"&cep&"','"&endereco&"','"&complemento&"','"&datanasc&"','"&cpf&"','"&telefone&"','"&sexo&"','"&tempoexp&"','"&senha&"','"&news&"')"

conn.execute(strins)

está retornando

Microsoft JET Database Engine error '80004005'

Operation must use an updateable query.

todos os campos na tabela estão como texto

e todas as variaveis estão sendo preenchidas corretamente

o que acontece???

[koal40]

esse erro já e da configuração do iis...

vai na pasta onde está o eu bd, vai em propriedades, segurança, vai ter um linha la assim: IIS_USER (acho) clika nela, então vai (abaixo) aparecer as configurações dela, marque gravar...