[websano]

Amigos, estou com um problema com meu servidor, pois possuo um script de forum, que já funcionou em vários servidores gratuitos, agora eu comprei um dominio e hospedagem que quero rodar esse escript no tal servidor só que ele roda mas não deixa que o banco de dados seja atualizado com as novas postagens. sempre dá a mensagem:

Microsoft JET Database Engine error '80040e09'
Cannot update. Database or object is read-only.
/forum/nova.asp, line 17


Pensei até em usar aquelas permissões que se usa em CGI, tipo de CHMOD
Tentei dar essas permissões com o CuteFTP e a resposta do servidor foi:
[forum.mdb]
COMMAND:> SITE CHMOD 777 forum.mdb
500 'SITE CHMOD 777 forum.mdb': command not understood
Mandei a pergunta para o servidor e me disseram que as linhas de conexão com o banco de dados MDB permitidas são:

CODE

ASP/ADO Access Database Connection Example (Windows Only, DSN-Less Connection):
<%
Dim oConn, oRs
Dim qry, connectstr
Dim db_path
Dim db_dir
db_dir = Server.MapPath("access_db")
db_path = db_dir & "\yourdatabasefile.mdb"
fieldname = "your_field"
tablename = "your_table"

connectstr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & db_path

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open connectstr

qry = "SELECT * FROM " & tablename

Set oRS = oConn.Execute(qry)

if not oRS.EOF then
while not oRS.EOF
  response.write ucase(fieldname) & ": " & oRs.Fields(fieldname) & "<br>"
  oRS.movenext
wend
oRS.close
end if

Set oRs = nothing
Set oConn = nothing

%>

Agora não sei como modificar isso no meu script.
Será que vou ter que modificálo todo?

Pois todos as páginas chamam um arquivo Config.ASP que tem essas linhas:

CODE

'::::: BASE DE DADOS :::::

DB = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="& Server.MapPath("db/forum.mdb")
'DB = "Provider=SQLOLEDB.1;Persist Security Info=True;Network Library=DBMSSOCN;User ID=MinhaID;Password=MinhaPassword;Initial Catalog=MeuCatalogo;Data Source=MeuIp"

....entre outrass que estão criptografadas.

Se quizerem analizar o código pra me darem
uma resposta mais precisa, o código está nesse endereço: http://www.drd.com.br/forumnet.zip
o arquivo é pequeno, apenas 62 kb e,
acredito que o código seja simples.

[Juscilesio]

Aê cara blz!
No caso basta vc substituir por:

ASP

Dim oConn, oRs Dim qry, connectstr Dim db_path Dim db_dir db_dir = Server.MapPath("access_db") db_path = db_dir & "\yourdatabasefile.mdb" 'fieldname = "your_field" 'tablename = "your_table" connectstr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & db_path Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open connectstr

Valeuz e ate a proxima!