Quantcast
Channel: Fórum ASP
Viewing all articles
Browse latest Browse all 1214

Erro banco de dados

$
0
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:

Viewing all articles
Browse latest Browse all 1214

Trending Articles