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
