[Resolvido] Instalando a Lojaexemplo Locaweb sem o Instalador

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.