Erro

[konras]

Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC para Microsoft Access] Não é possível atualizar. O banco de dados ou o objeto é somente leitura.
/2007/screnvia_bd.asp, line 43

como acerto este erro galera? o codigo esta assim oh...

<%
if request.form() <> "" then
        Rnome = request.form ("nome")
        Remail = request.form ("email")
        Rmensagem =request.form ("mensagem")
    
        msg=""
        if len (Rnome)=0 then
        msg=msg&"Digite o nome!<br>"
        end if
        if len (Remail)=0 then
        msg=msg&"Digite seu email!<br>"
        end if
        if len (Rmensagem)=0 then
        msg=msg&"Digite sua mensagem!"
        end if
        
        if msg="" then
    
                                    '&_  logo abaixo representa um forcada quebra de linha
        comando= " INSERT INTO mural(nome,email,mensagem) values("&_       
                        " ' "&Rnome&" ',' "&Remail&" ', ' "&Rmensagem&" ')"
        caminho = server.MapPath("../databases/banco.mdb") 'comando p achar onde esta o banco de dados
    'response.write "<br>" & caminho     'comando p achar onde esta o banco de dados - CODIGO APENAS PARA                   MOSTRAR NA TELA
        Set conexao = server.CreateObject("adodb.connection") 'comando para abrir o access
        strcon="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&caminho 'e necessario fazer uma conexao com os drivers do access para  o servidor poder interpretar o arquivo do tipo access
        conexao.open strcon 'comando para conectar ao banco de dados - essa linha tem que ser na linha de baixo do strcon="...
        set rs = server.CreateObject("adodb.recordset")
        set rs = conexao.execute (comando)
        response.Redirect("mural.asp") 'redirecionamento para a mesma pagina para não ficar inserindo toda vez que se atualizar o site!
        end if
End if        
    
    comando="SELECT * FROM mural ORDER by data DESC" 'Vai SELECIONAR todos os arquivos da tabela mural, o ORDER by data DESC vai colocar a ultima postagem em primeiro lugar das postagens
    
    caminho = server.MapPath("banco.mdb") 'comando p achar onde esta o banco de dados
    'response.write "<br>" & caminho     'comando p achar onde esta o banco de dados - CODIGO APENAS PARA                   MOSTRAR NA TELA
        Set conexao = server.CreateObject("adodb.connection") 'comando para abrir o access
        strcon="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&caminho 'e necessario fa?†††Ï?zer uma conexao com os drivers do access para  o servidor poder interpretar o arquivo do tipo access
        conexao.open strcon 'comando para conectar ao banco de dados - essa linha tem que ser na linha de baixo do strcon="...
        set rs = server.CreateObject("adodb.recordset")
        
    'codigo abaixo serve para adicionar paginas ao chegar a um numero grande de mensagens
    'rs.open "select * from mural",conexao, 3,3  ' 3,3 servem p abrir janela 
    'total = rs.recordcount   'conta o numero de postagens, poderia conrar qualquer coisa
    'npaginas = total\5  'o valor total das paginas dividido por 5 e retornara apenas numeros inteiros(observe o sentido da barra!!!, o sentido contrario representa um valor real)
    'if total - (npaginas*5)>0 then npaginas=npaginas +1
    'str=""
    'for i=1 to npaginas
    '        str=str&"&nbsp;<a href='mural.asp?p="&(i-1)&" '>" &i& "</a>"
    '    next
    '    rs.close
        set rs = conexao.execute (comando)
        
%>

valeu... :lol:

tenho tres paginas asp.

index, que tem o codigo acima, envia.asp que faz o envio de um form para o src_envia.aps, que deveria gravar no BD e depois redirecionar para a index, mas da aquele erro que mostrei lá em cima.

[Henderson]

tem que dar permissao na pasta do banco de dados

clica com o direito

propriedades

compartilhamento da web

e compartilha a pasta

e também clica com o direito no banco de dados e vê se ele não tá em

SOMENTE LEITURA e desmarca isso

[konras]

estranho cara, estas opções que você me passou eu já havia feito, ai coloquei no ar, e funcionou, não deveria funcionar pelo local host? p testar? e outra, estava funfando 2ª, ontem deu erro, sinistro...

valeu ;)

[Henderson]

então, mais uma coisa qe faz ver qe o problema é no seu pc!

você fez tudo isso e mesmo assim não funciona?

estranho!