Loja Virtual LocaWeb

[Gilberto Jr 26]

bom dia pessoal,

 

Eu baixei a loja virtual LojaExemplo locaweb, estou tentando configurar a mesma na minha maquina no localhost.

1ª pergunta, ela funciona?

 

Segunda coisa, ao tentar configurar esta apresentando a senguinte mensagem de erro.

msxml3.dll erro '80004005'

 

A expressão não retorna um nó DOM. ../instalacao/dadosloja/<--

 

/ljvirtual1/funcoes/funcoes.asp, linha 26

 

a linha 26 deste arquivo é:

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

 

Agradeço a todos.

[xanburzum 169]

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

[Gilberto Jr 26]

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

[xanburzum 169]

existe o componente instalado ????

[Gilberto Jr 26]

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

[jrcardozo 4]

FctobjRoot retorna um xml válido?

[xanburzum 169]

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>"
Next
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>"
VerificaComponentes = strTxt 
End Function

Response.Write VerificaComponentes
%>

[Gilberto Jr 26]

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

[retrolink 0]

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/")

[Gilberto Jr 26]

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")

[retrolink 0]

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

[Gilberto Jr 26]

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

[xanburzum 169]

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