Alguns Erros no Loja Virtual

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.