Alguns Erros no Loja Virtual

[Gilberto Jr 26]

Pessoal, um bom dia a todos.

Seguinte, após quebrar a cabeça com algumas situações eu estou conseguindo configurar a lojaexemplo locaweb(se nao me engano não é mais da locaweb).

 

Quando eu abro a pagina principal, http://www.tecnogalli.com.br/loja/ apresenta o seguinte erro:

 

--

Microsoft VBScript runtime error '800a01a8'

Object required: 'FctobjRoot'

/loja/funcoes/funcoes.asp, line 196

--

 

A linha 196 esta com o seguinte conteudo.

Sub menu_servicos(fctLang,fctPosicao,fctClass)

If fctPosicao = "vertical" Then
   AdicionalCHR = "<br><br>"
   AdicionalIMG = "<img src='config/templates/"&varLang&"/"&varSkin&"/seta.gif' width='6' height='7' border='0'>  "
ElseIf fctPosicao = "horizontal" Then
   AdicionalCHR = " | "
End if

ArquivoTextosAdicionais = Application("DiretorioTemplates") & fctLang & "\" & "configuracao\textosadicionais.xml"
'Abre o arquivo XML: XMLTextosAdicionais
Call abre_ArquivoXML(ArquivoTextosAdicionais,FctobjXML,FctobjRoot)
   'Seta objeto para o nó
linha->196    Set menu = FctobjRoot.selectSingleNode("configuracao")
   'Seta objeto para os atributos.
       Set itens = menu.getElementsByTagName("infos[@ativo='sim']") 
       'Verifica o númeto de itens
           n_itens = itens.length
           'Loop para captura dos itens
           for i = 0 to (n_itens - 1)
               Set pagto = itens.item(i)
                   Response.write AdicionalIMG&"<a href='infos.asp?lang="&varLang&"&codigo_texto="&pagto.getAttribute("codigo_texto")&"' class='"&fctClass&"'>" & pagto.getAttribute("titulo") & "</a>" & AdicionalCHR
               'Libera objeto da memória
               Set pagto = Nothing
           Next
       'Libera objeto da memória
       Set itens = Nothing
   'Libera objeto da memória
   Set menu = Nothing

End Sub

 

Se alguem puder me ajudar, fico grato.

[xanburzum 169]

Isso geralmente é porque você tentou fechar ou definir nothing a um objeto que não foi definido.

[Gilberto Jr 26]

Xan, verificando o codigo que eu passei da pra saber se esse objeto foi definido ou não?

att;

[xanburzum 169]

você esta usando a delcaração option explicit ?

e poste o code completo

[Gilberto Jr 26]

Não, o arquivo é muito grande, vou postar em um arquivo externo txt. Se você copiar esse arquivo todo e colocar no editor a linha 196 é a que esta com problema.

 

Segue o link Link externo

[xanburzum 169]

posta a linha ai...

o que é para ter de conteudo na FctobjRoot

[Gilberto Jr 26]

o codigo é esse;

'########################################################################################################
'SUB menu_servicos
' - Lista textos adicionais exibido na lateraln direita da loja
' - Chamado no arquivo lateral_servicos.asp
'########################################################################################################
Sub menu_servicos(fctLang,fctPosicao,fctClass)

If fctPosicao = "vertical" Then
   AdicionalCHR = "<br><br>"
   AdicionalIMG = "<img src='config/templates/"&varLang&"/"&varSkin&"/seta.gif' width='6' height='7' border='0'>  "
ElseIf fctPosicao = "horizontal" Then
   AdicionalCHR = " | "
End if

ArquivoTextosAdicionais = Application("DiretorioTemplates") & fctLang & "\" & "configuracao\textosadicionais.xml"
'Abre o arquivo XML: XMLTextosAdicionais
Call abre_ArquivoXML(ArquivoTextosAdicionais,FctobjXML,FctobjRoot)
   'Seta objeto para o nó
linha->196    Set menu = FctobjRoot.selectSingleNode("configuracao")
   'Seta objeto para os atributos.
       Set itens = menu.getElementsByTagName("infos[@ativo='sim']") 
       'Verifica o númeto de itens
           n_itens = itens.length
           'Loop para captura dos itens
           for i = 0 to (n_itens - 1)
               Set pagto = itens.item(i)
                   Response.write AdicionalIMG&"<a href='infos.asp?lang="&varLang&"&codigo_texto="&pagto.getAttribute("codigo_texto")&"' class='"&fctClass&"'>" & pagto.getAttribute("titulo") & "</a>" & AdicionalCHR
               'Libera objeto da memória
               Set pagto = Nothing
           Next
       'Libera objeto da memória
       Set itens = Nothing
   'Libera objeto da memória
   Set menu = Nothing

End Sub

'########################################################################################################
'--> FIM SUB menu_categorias
'########################################################################################################

[xanburzum 169]

mas este é só a sub !!

na página que chama a sub, declare todas as variaveis

 

dá um response.write na sua variavel configuracao, para ver o que esta recebendo...