Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal como alguns devem saber a lojaexemplo locaweb agora esta 100% opensource e nao possui mais o instalador, segui os procedimentos recomendados para instala-la sem o instalador mas continuo sem conseguir ativa-la, alguem ja conseguiu? poderiam me ajudar?
esta ocorrendo o seguinte erro:
>
Microsoft OLE DB Provider for SQL Server error '80004005'
[DBNETLIB][ConnectionOpen (Connect()).]SQL Server does not exist or access denied.
/loja/funcoes/funcoes.asp, line 54
e esse eh o bloco do arquivo funçoes onde esta localizada a linha 54
<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
'########################################################################################################
'SUB abre_conexao
' - Abre conexão com o banco de dados
' - Chamada no arquivo layout_inicio.asp
'SUB fecha_conexao
' - Fecha conexão com o banco de dados
' - Chamada no arquivo layout_termino.asp
'########################################################################################################
Sub abre_conexao(conexao)
'Define o objeto de conexão ao banco de dados
Set Conexao = CreateObject("ADODB.Connection")
'Chama a funcão de carregamento do arquivo XML
Call abre_ArquivoXML(Application("XMLArquivoConfiguracao"),FctobjXML,FctobjRoot)
'Verifica a existência do arquivo XML
existe_configuracao = FctobjXML.load(Application("XMLArquivoConfiguracao"))
'Define o objeto de raiz do documento
Set FctobjRoot = FctobjXML.documentElement
'Se o arquivo XML existir haverá a leitura do mesmo
If existe_configuracao = True Then
'Define o objeto de leitura dos NÓS
Set configuracao = FctobjRoot.selectSingleNode("dados/configuracao_dados")
Application("TipoBanco") = configuracao.getAttribute("TipoBanco")
If Application("TipoBanco") = "mssql" Then
' Verifica se foi específicado uma base SQL
If configuracao.getAttribute("BaseBD") <> "" Then
baseMssql = configuracao.getAttribute("BaseBD")
' Caso contrário define a base com o mesmo nome do usuário SQL
Else
baseMssql = configuracao.getAttribute("UsuarioBD")
End If
Application("StringConexaoBanco") = "PROVIDER=SQLOLEDB.1;DATA SOURCE=" & configuracao.getAttribute("EnderecoBD") & ";DATABASE=" & baseMssql & " ;UID=" & configuracao.getAttribute("UsuarioBD") & " ;PWD=" & configuracao.getAttribute("SenhaBD") & ";"
ElseIf Application("TipoBanco") = "mysql" Then
' Verifica se foi específicado uma base MySQL
If configuracao.getAttribute("BaseBD") <> "" Then
baseMysql = configuracao.getAttribute("BaseBD")
' Caso contrário define a base com o mesmo nome do usuário MySQL
Else
baseMysql = configuracao.getAttribute("UsuarioBD")
End If
Application("StringConexaoBanco") = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & configuracao.getAttribute("EnderecoBD") & ";PORT=3306;DATABASE=" & baseMysql & ";USER=" & configuracao.getAttribute("UsuarioBD") & ";PASSWORD=" & configuracao.getAttribute("SenhaBD") & ";OPTION=3;"
End If
Application("NomeLoja") = configuracao.getAttribute("NomeLoja")
'Destroi o objeto de leitura do nó
Set configuracao =Nothing
End If
'Destrói o objeto de raiz do documento
Set FctobjRoot = Nothing
'Abre o banco de dados
Conexao.open Application("StringConexaoBanco")
End sub
sub fecha_conexao
'Fecha conexão com o banco de dados
Conexao.Close
'Destrói o objeto de conexão
Set Conexao=nothing
End Sub
Espero que possam me ajudar.
Carregando comentários...