[Resolvido] Instalando a Lojaexemplo Locaweb sem o Instalador

[Khelly 0]

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.

[Vinicius Ianni 189]

Qual banco de dados está trabalhando ?

[Khelly 0]

Estou utilizando o Mysql...

[Gilberto Jr 26]

No seu arquivo de configuracao xml configuracaoLOja.xml a tag TipoBanco você colocou igual "mysql".

 

Pois ele ira fazer a busca do driver de acordo com essa configuracao.

 

Att;

[Khelly 0]

Gilberto Jr. era isso mesmo modifiquei o arquivo configuracaoloja.xml e agora funcionou...obrigado a todos pela ajuda.

[Gilberto Jr 26]

Por nada;

o engraçado é qeu eu nao consegui fazer funcionar ainda.

 

você configurou a loja na sua maquina, localhost?

[Khelly 0]

Eu configurei direto no meu servidor de hospedagem...você criou dentro da pasta dadosloja os diretorios LogsADM e pedidos_loja?, é necessario cria-los

 

e no arquivo global.asa você tem que por a barra no final do caminho assim:

 

<script language="VBScript" runat="Server">

Sub Application_OnStart 

   Application("CaminhoFisicoLoja") = "e:\home\seulocal\web\loja\"
   Application("CaminhoFisicoDados") = "e:\home\seulocal\dados\dadosloja\"

   Application.Unlock

End Sub

</script>

 

espero ter te dado alguma ajuda.

[Gilberto Jr 26]

Entendi, eu criei sim. porem esta apresentando um outro erro que estou tratando em um outro topico

http://forum.imasters.com.br/topic/443145-loja-virtual-locaweb/

 

Mesmo assim valeu.

 

Moderadores problema resolvido pode fechar o topico

[Bacamark 0]

Olá Khelly você conseguiu instalar a loja da locaweb?

 

Olá Khelly você conseguiu instalar a loja da locaweb?

 

 

Eu configurei direto no meu servidor de hospedagem...você criou dentro da pasta dadosloja os diretorios LogsADM e pedidos_loja?, é necessario cria-los

 

e no arquivo global.asa você tem que por a barra no final do caminho assim:

 

<script language="VBScript" runat="Server">

Sub Application_OnStart 

   Application("CaminhoFisicoLoja") = "e:\home\seulocal\web\loja\"
   Application("CaminhoFisicoDados") = "e:\home\seulocal\dados\dadosloja\"

   Application.Unlock

End Sub

</script>

 

espero ter te dado alguma ajuda.