Problemas na inserção

[doiddao 0]

Gostaria que alguem me ajudase nesse codigo pq nao sei mais o que fazer...

 

 

Desde ja Agradeço http://forum.imasters.com.br/public/style_emoticons/default/sick.gif

 

 

 

 

 

ERRO

 

Tipo de erro:

Microsoft JET Database Engine (0x80004005)

A operação deve usar uma consulta atualizável.

/insert_into.asp, line 22

 

 

 

 

 

CODIGO

 

 

<%

 

Option Explicit

Response.Expires = 0

Dim adodbConn, sql ,connStr, dbname ,strQuery, strConnection, nome, telefone, email, comentario

nome = Request.Form("nome")

telefone = Request.Form("telefone")

email = Request.Form("email")

comentario = Request.Form("comentario")

 

 

'tableToFind = "contato"

dbname = "contato.mdb"

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;data source="

ConnStr = ConnStr & server.mappath(dbname)

 

set adodbConn = CreateObject("ADODB.Connection")

adodbConn.open ConnStr

 

sql = "INSERT INTO contato (nome,telefone,email,comentario) VALUES ('"&nome&"','"&telefone&"','"&email&"','"&comentario&"')"

 

set rs = adodbConn.Execute(sql)

found = rs(0)

if found then

response.write("Dados cadastrados com sucesso")

else

response.write("Houve problemas nao inserção dos dados.")

end if

%>

[Mário Monteiro 179]

verifica se você tem permissao de escrita no diretorio do db...

[doiddao 0]

Sim tenho permissao, setei todas as permissoes possiveis...

[Mário Monteiro 179]

setou onde??

[doiddao 0]

No gerenciado de internet Service