Tenho um XML com a seguinte arquitetura
[codebox]<?xml version="1.0" encoding="ISO-8859-1"?>
<eventos>
<evento id="3">
<titulo>teste</titulo>
<link>http://www.prolsport...p?code=3</link>
<descricao>teste</descricao>
<imagem>config/imagens_conteudo/eventos/imagensGRD/GRD_3_523439.jpg</imagem>
</evento>
<evento id="2">
<titulo>teste</titulo>
<link>http://www.prolsport...p?code=2</link>
<descricao>tteste</descricao>
<imagem>config/imagens_conteudo/eventos/imagensGRD/GRD_2_GRD_1_02.jpg</imagem>
</evento>
<evento id="1">
<titulo>Teste Evento</titulo>
<link>http://www.prolsport...p?code=1</link>
<descricao>teste</descricao>
<imagem>config/imagens_conteudo/eventos/imagensGRD/GRD_1_523439.jpg</imagem>
</evento>
</eventos>
[/codebox]
Estou tentando deletar um nó evento com esse código
[codebox]set FctobjXML = CreateObject("Microsoft.XMLDOM")
FctobjXML.preserveWhiteSpace = False
FctobjXML.async = False
FctobjXML.validateOnParse = True
FctobjXML.resolveExternals = True
FctobjXML.load (FctArquivo)
Set FctobjRoot = FctobjXML.documentElement
Set configuracao = VarobjRoot.selectSingleNode("evento[@id='1']")
VarobjRoot.removeChild(configuracao)[/codebox]
Na realidade não tenho muita noção se isso é assim que faz, mas esta complicado achar algo do tipo...
Esse é o erro
[codebox]Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'childNode' [/codebox]
Alguém pode ajudar?
Bom, consegui e pode ser que alguém tenha a mesma dúvida então ai vai...
[codebox]
set VarobjXML = CreateObject("Microsoft.XMLDOM")
VarobjXML.preserveWhiteSpace = False
VarobjXML.async = False
VarobjXML.validateOnParse = True
VarobjXML.resolveExternals = True
VarobjXML.load ("Arquivo.xml")
Set VarobjRoot = VarobjXML.documentElement
Set no = VarobjRoot.selectSingleNode("evento[@id='"&Request.QueryString("codigo_evento")&"']")
VarobjRoot.removeChild(no)
VarobjXML.save("Arquivo.xml")
Set VarobjXML = Nothing
Set VarobjRoot = Nothing
Set no = Nothing
[/codebox]