Erro banco de dados

[archam 0]

Boa tarde, sou novo aqui e novo em programação.

 

Aqui na empresa, trabalhamos na parte de iluminação pública em diversas cidades, e por isso temos um site onde os usuários acessam e fazem a requisição de manutenção do ponto de luz.

 

Acontece que queremos fazer uma cópia desse site, porém a parte de noticias usará o banco de dados, copiado para outro server, já que as noticias são de outra cidade. A cópia foi feita completa do site para outro server, foi editado para enxergar o DB nesse novo server, mas o seguinte erro é apresentado ao tentar acessar a página de noticias.

 

Microsoft OLE DB Service Components error '80040e73'

Format of the initialization string does not conform to the OLE DB specification.

/novo_site/adm/inc/libasp.asp, line 22

 

 

 

As informações no arquivo estão assim:

 

<%

Option Explicit

'##### VARIÁVEIS #####

Dim sConn, con, recset, adStateOpen

'##### PROPRIEDADES DA APLICAÇÃO #####

Session.LCID = 1046

Session.Timeout = 60

Response.Buffer = False

'##### STRING DE CONEXÃO #####

sConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=e:\home\brilhaitaborai.com.br\dados\brilhacampos.mdb;" & _

"User Id=;" & _

"Password=;"

'##### EXECUTA A QUERY DESEJADA #####

Function ReadQuery(sSQL)

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

Set recset = Server.CreateObject("ADODB.Recordset")

con.Open sConn

Set ReadQuery = con.Execute(sSQL)

End Function

'##### EXECUTA O COMANDO SOLICITADO #####

Function ExecuteCommand(sSQL)

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

con.Open sConn

con.Execute sSQL

End Function

'##### FECHA TODOS OS OBJETOS ABERTOS #####

Sub FechaDB

if ISObject(con) then

if con.State = adStateOpen then

con.Close

end if

set con = nothing

End If

if IsObject(recset) then

if recset.State = 1 then

recset.Close

end if

set recset = nothing

End If

End Sub

'##### VALIDA LOGIN NO SISTEMA ADMINISTRATIVO #####'

Function ChecaLoginAdministracao()

If Session("sesStatusAdm") <> "logadministracao" Then

Response.Redirect "login.asp"

End If

End Function

%>

Aonde está em negrito, está a localização já atualizada do arquivo.

Se alguém puder me ajudar. :yes:

[Gustavo Emygdio Barboza 24]

"Data Source=e:\home\brilhaitaborai.com.br\dados\brilhacampos.mdb;" &

 

tire o .com.br

 

é locaweb?

[archam 0]

Não, é na uol host

[xanburzum 169]

use server.mappath na sua string de conexão.

 

Server.MapPath(“dados/brilhacampos.mdb”)

 

você pode usar um arquivo de include com uma sub que é invocada no código para realizar a conexão, tipo:

 

Conexao1.asp

 

<% ‘———————-

‘ este arq. serve para estabelecer a conexao com o BD em Access
‘ numa pasta db dentro da raiz do seu site com o banco de nome quaddra.mdb
sub abreconexao
constring=”provider=microsoft.JET.OLEDB.4.0;Data Source=” & Server.MapPath(“dados/brilhacampos.mdb”)

Set conexao=Server.CreateObject(“ADODB.Connection”)
conexao.open constring
end sub


sub fechaconexao
set conexao=nothing
end sub
%>

[Gustavo Emygdio Barboza 24]

É archam sua string está legal só remover o .com.br que funciona... sobre o hospedeiro também é show de bola... pode ser isso mesmo...

[xanburzum 169]

Se tiver mais dúvida vc pode acessar seu help desk do seu host lá eles tem um exemplo da sua string de conexão