Operation must use an updateable query.

[br1 0]

PEssoal estou com um problema no meu siyte que é o seguinte

 

Microsoft JET Database Engine error '80004005'

 

Operation must use an updateable query.

 

/include_executa.asp, line 13

 

 

me falaram que poderia ser o bd tipo de acesso mais não é me falaram que era so tirar as aspas tirei no IIS deu certo mais quando joguei no servidor não funcionou deu o mesmo erro mais na linha 47

será que alguem interpreta esse codigo é pdoe me ajudar.

 

Obrigado

 

 

if request.form("vota") <> "" then

 

Set RsEnquete = Server.CreateObject("ADODB.recordset")

RsEnquete.Open "SELECT TOP 1 * FROM Enquete WHERE ID_Enquete="&request.form("idenquete")&"",Con_ANGLO -> Linha 13 sem aspas

'RsEnquete.Open "SELECT TOP 1 * FROM Enquete WHERE ID_Enquete='"&request.form("idenquete")&"'",Con_ANGLO Linha 14 com aspas

 

 

testacookieee = request.cookies("pesquisaANGLO_"&RsEnquete.fields("ID_Enquete")&"")("data")

 

if testacookieee = "" then

 

resp1 = CInt(RsEnquete.fields("IC_Resposta1"))

resp2 = CInt(RsEnquete.fields("IC_Resposta2"))

if RsEnquete.fields("IC_Resposta3") <> "" then

resp3 = CInt(RsEnquete.fields("IC_Resposta3"))

end if

if RsEnquete.fields("IC_Resposta4") <> "" then

resp4 = CInt(RsEnquete.fields("IC_Resposta4"))

end if

if RsEnquete.fields("IC_Resposta5") <> "" then

resp5 = CInt(RsEnquete.fields("IC_Resposta5"))

end if

if RsEnquete.fields("IC_Resposta6") <> "" then

resp6 = CInt(RsEnquete.fields("IC_Resposta6"))

end if

 

resposta = "resp"

pegaform = request.form("resposta")

monta = resposta&pegaform

if monta = "resp1" then valorresposta = resp1 + 1 end if

if monta = "resp2" then valorresposta = resp2 + 1 end if

if monta = "resp3" then valorresposta = resp3 + 1 end if

if monta = "resp4" then valorresposta = resp4 + 1 end if

if monta = "resp5" then valorresposta = resp5 + 1 end if

if monta = "resp6" then valorresposta = resp6 + 1 end if

RsPesquisas = "UPDATE Enquete SET IC_Resposta"&pegaform&"="&valorresposta&" WHERE ID_Enquete="&request.form("idenquete")&""

'RsPesquisas = "UPDATE Enquete SET IC_Resposta"&pegaform&"="&valorresposta&" WHERE ID_Enquete='"&request.form("idenquete")&"'"

Con_ANGLO.Execute(RsPesquisas) -> linha 47

[ska_ska 0]

problema de permissão de escrita.. procura sobre isso no forum.. em pesquisa!!!