Erro 80040e21

[clayton-mer 0]

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

 

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

[jrcardozo 4]

você tem o ODBC funcionando certo?

Como está fazendo a conexão?

[clayton-mer 0]

ESTOU USANDO ASP E MYSQL.

 

"Driver=MySQL ODBC 3.51 Driver; Server=localhost; Database=NOMEDOBANCO; Uid=USER;Pwd=SENHA;"

 

O PROBLEMA É BEM LOCO PORQUE SE TIVER DADOS NA TABELA FUNCIONA CERTINHO, AGORA SE APAGAR TODOS OS DADOS ELE DA ERRO, AU TENTAR ADD.

 

esse sistema faz upload de um arquivo para uma pasta e grava o nome em um banco mysql, o problema é o seguinte e envia o arquivo certinho mais não grava no banco da esse erro que daquando tenho add.

 

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

 

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

 

/ismcontrol/ControFilesUpload.asp, line 36

 

estou postanto aqui o código do arquivo controlfilesupload.asp

 

<!--#include file="ControlRestrito.asp" -->
<!--#include file="ismConexao.asp" -->


<%
Set Upload = Server.CreateObject("Persits.Upload")
' This is needed to enable the progress indicator
Upload.ProgressID = Request.QueryString("PID")

Upload.Save("C:/local/arquivos/")


' we use memory uploads, so we must limit file size
Upload.SetMaxSize 100000, True
' Obtain file object
Set File = Upload.Files("Pdf")
If Not File Is Nothing Then
' Build ADO connection string
Connect = MM_ismConexao_STRING
' Use ADO Recordset object
Set rs = Server.CreateObject("adodb.recordset")
' Optional: check whether this file already exists using MD5 hash
Hash = File.MD5Hash
rs.Open "SELECT * from publicacao WHERE Cod='" & Hash & "'", Connect, 2, 3
If Not rs.EOF Then
Response.Write("<meta http-equiv=""refresh"" content=""0;URL=ControlAdicionarPublicacao.asp?IdErro=2"">")
Response.End
End If
rs.Close
' Reopen recordset to insert file
rs.Open "Publicacao", Connect, 2, 3
rs.AddNew
rs("Cod") = Hash
rs("DataPub") = Upload.form("DataPub")
rs("Tipo") = Upload.form("Tipo")
rs("Titulo") = Upload.form("Titulo")
rs("Resumo") = Upload.form("Resumo")
rs("Pdf") = File.FileName
rs("Mostrar") = Upload.Form("Mostrar")
rs.Update
Response.Write("<meta http-equiv=""refresh"" content=""0;URL=ControlPublicacao.asp"">")
Else
Response.Write "<meta http-equiv=""refresh"" content=""0;URL=ControlAdicionarPublicacao.asp?IdErro=1"">"
End If
%>