Loja Virtual LocaWeb

verifique se o arquivo e pasta tem direitos administrativos, pode ser erro de permissão

fala ae Xan, pois é eu verifiquei e esta com permissão sim.

existe o componente instalado ????

99% de chance de não. Pelo menos eu so configurei o IIS do windows 7! Não fiz mais nada.

FctobjRoot retorna um xml válido?

executa este code para ver o que esta instalado

componentes instalado.

<%
Dim arrListaComponentes(48)

arrListaComponentes(0) = Array( "AB Mailer","ABMailer.Mailman" )
arrListaComponentes(1) = Array( "ABC Upload","ABCUpload4.XForm" )
arrListaComponentes(2) = Array( "ActiveFile","ActiveFile.Post" )
arrListaComponentes(3) = Array( "ActiveX Data Object","ADODB.Connection" )
arrListaComponentes(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" )
arrListaComponentes(5) = Array( "ASP DNS", "AspDNS.Lookup" )
arrListaComponentes(6) = Array( "ASP HTTP","AspHTTP.Conn" )
arrListaComponentes(7) = Array( "ASP Image","AspImage.Image" )
arrListaComponentes(8) = Array( "ASP Mail","SMTPsvg.Mailer" )
arrListaComponentes(9) = Array( "ASP NNTP News", "AspNNTP.Conn" )
arrListaComponentes(10) = Array( "ASP POP 3", "POP3svg.Mailer" )
arrListaComponentes(11) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )
arrListaComponentes(12) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )
arrListaComponentes(13) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )
arrListaComponentes(14) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )
arrListaComponentes(15) = Array( "ASP Tear","SOFTWING.ASPtear" )
arrListaComponentes(16) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )
arrListaComponentes(17) = Array( "ASP WhoIs","WhoIs2.WhoIs" )
arrListaComponentes(18) = Array( "ASPSoft NT Object","ASPSoft.NT" )
arrListaComponentes(19) = Array( "ASPSoft Upload","ASPSoft.Upload" )
arrListaComponentes(20) = Array( "CDO NTS","CDONTS.NewMail" )
arrListaComponentes(21) = Array( "Chestysoft Image","csImageFile.Manage" )
arrListaComponentes(22) = Array( "Chestysoft Upload","csASPUpload.Process" )
arrListaComponentes(23) = Array( "Dimac JMail","JMail.Message" )
arrListaComponentes(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )
arrListaComponentes(25) = Array( "Dundas Mailer","Dundas.Mailer" )
arrListaComponentes(26) = Array( "Dundas Upload","Dundas.Upload.2" )
arrListaComponentes(27) = Array( "Dundas PieChartServer", "Dundas.ChartServer.2")
arrListaComponentes(28) = Array( "Dundas 2D Chart", "Dundas.ChartServer2D.1")
arrListaComponentes(29) = Array( "Dundas 3D Chart", "Dundas.ChartServer")
arrListaComponentes(30) = Array( "Dynu Encrypt","Dynu.Encrypt" )
arrListaComponentes(31) = Array( "Dynu HTTP","Dynu.HTTP" )
arrListaComponentes(32) = Array( "Dynu Mail","Dynu.Email" )
arrListaComponentes(33) = Array( "Dynu Upload","Dynu.Upload" )
arrListaComponentes(34) = Array( "Dynu WhoIs","Dynu.Whois" )
arrListaComponentes(35) = Array( "Easy Mail","EasyMail.SMTP.5" )
arrListaComponentes(36) = Array( "File System Object","Scripting.FileSystemObject" )
arrListaComponentes(37) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )
arrListaComponentes(38) = Array( "Last Mod","LastMod.FileObj" )
arrListaComponentes(39) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )
arrListaComponentes(40) = Array( "Persits ASP JPEG","Persits.Jpeg" )
arrListaComponentes(41) = Array( "Persits ASPEmail","Persits.MailSender" )
arrListaComponentes(42) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )
arrListaComponentes(43) = Array( "Persits File Upload","Persits.Upload.1" )
arrListaComponentes(44) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )
arrListaComponentes(45) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )
arrListaComponentes(46) = Array( "Image Size", "ImgSize.Check" )
arrListaComponentes(47) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )
arrListaComponentes(48) = Array( "CDOSYS", "CDO.Message" )

' Rotina que verifica o componente do array é um objeto.
Function VerificaObjeto(pComponente)
Dim objComponente
On Error Resume Next
VerificaObjeto = False
Err.Clear
Set objComponente = Server.CreateObject(pComponente)
If Err = 0 Then VerificaObjeto = True
Set objComponente = Nothing
Err.Clear
End Function

Public Function VerificaComponentes()
Dim intCont, strTxt
Dim intIndex, strProv

intCont = 0
strTxt = "<table border='1' bordercolor='black' cellspacing='0' cellpadding='0' align='center' width='400'>"
For intIndex = LBound(arrListaComponentes) To UBound(arrListaComponentes)
strProv = intIndex

 strTxt = strTxt & "<tr><td width='200'><font face='tahoma' size='1'>" & arrListaComponentes(intIndex)(0) & "</font></td>"
 If VerificaObjeto(arrListaComponentes(intIndex)(1)) Then
 strTxt = strTxt & "<td align=center><font color='red' face='tahoma' size='1'>Instalado</font></td>"
 intCont = intCont + 1
 Else
 strTxt = strTxt & "<td align='center'><font face='tahoma' size='1'>Não Instalado</font></td>"
 End If
 strTxt = strTxt & "</tr>"

strTxt = strTxt & "</table><p align='center'><font face='tahoma' size='2'><b>" & intCont & "</b> componentes instalados de "
strTxt = strTxt & "<b>" & UBound(arrListaComponentes) + 1 & "</b> no provedor.</font> </p>"

Response.Write VerificaComponentes
%>

Então Xan, eu rodei e abaixo são os componentes que estao instalado.

ActiveX Data Object

Dimac JMail

File System Object

Microsoft XML Engine

Microsoft XML HTTP

CDOSYS

Esse erro não tem nada a ver com componente instalado ou não, tomaram outro rumo ao tópico, o erro refere-se na estrutura do xml

Poste o xml completo para analise.

essa linha é a errada, o caminho com todo certeza esta errado.

Set configuracao = FctobjRoot.selectSingleNode("../instalacao/dadosloja/")

tente por exemplo assim

Set configuracao = FctobjRoot.selectSingleNode("/instalacao/dadosloja/")

ou assim

Set configuracao = FctobjRoot.selectSingleNode("instalacao/dadosloja/")

Fala retrolink, fiz da forma que você falou apontando o arquivo tambem.

agora o erro aparece na linha 27:

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário: 'configuracao'

/ljvirtual1/funcoes/funcoes.asp, linha 27

a linha 27 é:/

Application("TipoBanco") = configuracao.getAttribute("TipoBanco")

Aparentemente já é um outro problema, vias das dúvidas poste o code do funcoes.asp ae.

Segue,

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("instalacao/dadosloja/configuracaoLoja.xml")
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

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