Me Ajudem, Quem Puder... Erro De Permissão Mdb

[websano]

Amigos, estou com um problema pois possuo um fórum que funcionava muito bem em servidores aqui no Brasil, Depois que registrei o domínio e hospedagem fora, comecei a ter problemas com a insersão de dados no meu MDB.

Os postes já existentes no MDB são exibidos normalmente, só que quando quero postar alguma coisa, ele não aceita e dá erro de servidor.

O Erro que aparece é esse:

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

Microsoft JET Database Engine error '80040e09'

Cannot update. Database or object is read-only.

/forum/nova.asp, line 17

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

Baixei outros scripts de fórum e teste nesse servidor e nenhum deles aceitaram que dados fossem inseridos no MDB

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

já pensei que o arquivo do banco de dados estivesse somente como leitura e mudei os atributos de permissão, e não adiantou também.

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:

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

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:

'::::: 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 parecem estar criptografadas.

Se quizerm 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.

[Graymalkin]

Acredito que você só tenha que mudar a linha...

Set oRS = oConn.Execute(qry)

... para:

Set oRS = Server.CreateObject("ADODB.Recordset")
oRS.Open qry, oConn, 2, 3

Veja aí se dá certo.

Abraços,

Graymalkin