erro em função

[Khelly 0]

Ola meus amiguinhos, estou eu aki novamente com mais abacaxi pra vcs me ajudarem adescascar, seguinte em minha pagina estaaparecendo o seguinte erro:

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: 'conexao'

 

/loja4/funcoes/funcoes.asp, line 67

 

o codigo da funcao ao qual esse erro se refere é esse:

 

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("UsuarioBD")
                        ' Caso contrário define a base com o mesmo nome do usuário SQL
                        Else
                            baseMssql = configuracao.getAttribute("BaseBD")
                        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 3.51 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

 

deem um olhada e me digam o que pode estar havendo pleeeaaaseee!!!...kisses

[xanburzum 169]

o que você esta passando em conexão