Socorro -> Help Me

[Guest Hingland]

ah galera é o seguinte, estou mexendo num programa de notícias, ele enviava uma noticias e uma foto, dai adaptei ele com um sistema de upload, e ele passou a inserir mais de foto, até ai beleza, só que quando eu envio ele pro provedor dá esse erro. na página onde abre a caixa de upload.

Microsoft OLE DB Provider for ODBC Drivers error 80004005

[Microsoft][OBDC Microsoft Access Driver] General error Unable to open

registry key 'temporary (volatile) Jet DNS for process 0x2c68 Thread

0x2124 DBC 0x1d3a22c Jet

/2/settings.asp. line 4

Abixo segue o codigo da página serrings.asp

<%

Response.buffer=True

Set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/db/db.mdb")&";"

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

strImageFolder="/imagens/"

folder1 = strImageFolder

folder2 = Server.MapPath(folder1)

Set files = Server.CreateObject("Scripting.FileSystemObject")

If Not files.FolderExists(folder2) Then

files.CreateFolder(folder2)

End If

Set objfolder = files.getFolder(folder2)

%>

[fantasma]

Qual o nome do diretorio onde esta o banco

[Guest Guest]

Este caminho aqui é o do settings.asp off line no meu ISS

<%

Response.buffer=True

Set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/sis/temisnetnews/noticias.mdb")&";"

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

strImageFolder="/sis/temisnetnews/imagens/"

folder1 = strImageFolder

folder2 = Server.MapPath(folder1)

Set files = Server.CreateObject("Scripting.FileSystemObject")

If Not files.FolderExists(folder2) Then

files.CreateFolder(folder2)

End If

Set objfolder = files.getFolder(folder2)

%>

No provedor eu coloquei assim

<%

Response.buffer=True

Set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("noticias.mdb")&";"

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

strImageFolder="/imagens/"

folder1 = strImageFolder

folder2 = Server.MapPath(folder1)

Set files = Server.CreateObject("Scripting.FileSystemObject")

If Not files.FolderExists(folder2) Then

files.CreateFolder(folder2)

End If

Set objfolder = files.getFolder(folder2)

%>

Pois as páginas asp ficam junto mesmo diretorio que o banco noticias.mdb

no ISS funciona mas no provedor dá este erro

Microsoft OLE DB Provider for ODBC Drivers error 80004005

[Microsoft][OBDC Microsoft Access Driver] General error Unable to open

registry key 'temporary (volatile) Jet DNS for process 0x2c68 Thread

0x2124 DBC 0x1d3a22c Jet

/2/settings.asp. line 4

[fantasma]

<%

Dim lojaDB,db_path

db_path = Server.MapPath("noticias.mdb")

set lojaDB = Server.CreateObject("ADODB.Connection")

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

lojaDB.open

%>

tenta usar assim e tb entra em contato com o provedor parra verificar permissão de pasta

[Guest Guest]

Ok, vou testar , quanto a permissão de pasta está ok, o tenho acesso a um painel de controle que me dá permissão de colcoar isso permissão de leitura e escita.

Locaweb. tá ligado.

[Guest Higlande]

Mesma coisa, por que está pegando off-line e on-line não você tem alguma explicação para isso?

No ISS funciona bls, mas na internet não.

[fantasma]

aqui neste link tb tem varios tipos de conexões

http://www.connectionstrings.com/

[Guest Higlander]

Ok, vou ver estes links de coneções.

depois te falo.

[Deividy]

normalmente na net o pessoal se conecta assim

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=

no lugar do drive

[Guest Higlander]

fantasma, valeu mesmo você ajudou muito já desenrolei era realmente path do provedor e também o caminho do banc de dados, mais uma vez fico fez por vocês estarem aqui quando nos mais precisamos vocês nos ajudam muito parabéns pelo trabalho.

Valeu Brother pode fechar o tópico!.

[bareta]

ok fechando o tópico....