Erro, Que Não Consigo Desvendar.

[Alam]

Oque tem de errado nesse código?

Quando mando executar o servidor me retorna o seguinte erro:

ADODB.Recordset

Operation is not allowed when the object is closed.

-------------------CÓDIGO-------------------

Caminho = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../dados/banco.mdb")&""

idtemp = Request.QueryString("idtemp")

Set Poli = Server.CreateObject("ADODB.RecordSet")

Poli.Open "SELECT * FROM codtemp WHERE id = "&idtemp&"", Caminho,3,3

id = Poli("idtom")

Poli.Close

Set Poli = Nothing

Set down = Server.CreateObject("ADODB.RecordSet")

down.Open "SELECT tons.arquivo As arquivo, tons.downloads As downloads, tipo.endereco As endereco FROM tons,tipo WHERE tons.id = "&id&" AND tons.tipo=tipo.id", Caminho, 3, 3

arquivo = down("arquivo")

endereco = down("endereco")

cont = down("downloads") + 1

Set Conexao1 = Server.CreateObject("ADODB.Connection")

Conexao1.Open Caminho

Conexao1.Execute("UPDATE tons SET downloads = "&cont&" WHERE id="&id&"")

Conexao1.Close

Set Conexao1 = Nothing

Set Conexao2 = Server.CreateObject("ADODB.Connection")

Conexao2.Open Caminho

Conexao2.Execute("DELETE * FROM codtemp WHERE id="&idtemp&"")

Conexao2.Close

Set Conexao2 = nothing

Set cont = nothing

Set id = Nothing

Set idtemp = Nothing

down.Close

Set down = Nothing

----------------------------------------------

por favor me ajudem!

[ViniciusJau]

ele não indica uma linha de erro ???

WHERE tons.id = "&id&" AND tons.tipo=tipo.id", Caminho, 3, 3

qeu são esse 3, 3 ai ??

[Alam]

Esse aplicativo é feito para clientes acessarem pelo celular, não indica o código de erro.

Esses 3,3 são os tipos de cursores.

POR FAVOR ALGUÉM PODE AJUDAR?

por favor!!!

[dilouco]

Set Poli = Server.CreateObject("ADODB.RecordSet")

    Poli.Open "SELECT * FROM codtemp WHERE id = "&idtemp&"", Caminho,3,3

nessa parte de seu codigo existe "(aspas) a mais..

você não precisa concatenar e &"" no fim já q é numero

quanto a esse tipo de conexão com as tabelas eu não estou acostumado a utilizar... e aki não tenho como efetuar os teste...

mais arruma as aspas quem sabe não é apenas isso

[Alam]

Qual o tipo de conexão com as tabelas que você usa?

[bareta]

tenta a sql simples

[Alam]

Obrigado pela dica! troquei todos os recordsets, mas agora o erro é outro.

"Syntax error in UPDATE statement."

Caminho = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../dados/banco.mdb")&""

idtemp = Cint(Replace(Request.QueryString("idtemp"),chr(39),""))

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open Caminho

Set Poli = Conexao.Execute("SELECT * FROM codtemp WHERE id = "&idtemp&"")

id = cint(Poli("idtom"))

Set Poli = Nothing

Conexao.Close

Set Conexao = Nothing

Set Conexao1 = Server.CreateObject("ADODB.Connection")

Conexao1.Open Caminho

Set down1 = Conexao1.Execute("SELECT tons.arquivo As arquivo, tons.downloads As downloads, tipo.endereco As endereco FROM tons,tipo WHERE tons.id = "&id&" AND tons.tipo=tipo.id")

arquivo = down1("arquivo")

endereco = down1("endereco")

cont = Cint(down1("downloads")) + 1

Set down1 = Nothing

Conexao1.Close

Set Conexao1 = Nothing

Set Conexao2 = Server.CreateObject("ADODB.Connection")

Conexao2.Open Caminho

Conexao2.Execute("UPDATE tons SET downloads = "&cont&" WHERE id="&id&"")

Conexao2.Close

Set Conexao2 = Nothing

Set Conexao3 = Server.CreateObject("ADODB.Connection")

Conexao3.Open Caminho

Conexao3.Execute("DELETE * FROM codtemp WHERE id="&idtemp&"")

Conexao3.Close

Set Conexao3 = nothing

Set cont = nothing

SEt id = Nothing

Set idtemp = Nothing

Ajudem por favor

[dark0]

mude o nome da variavel CONT, dentro da clausula UPDATE..

pode ser erro por causa desse termo..