Xml Replace

[rstoever]

Ae pessoal !!!

Tenho que fazer um contador de views e nisso pensei em fazer em XML.

Apendar novos campos e listar eu já sei como fazer, mas se eu quizer só incrementar o campo por exemplo <views_do_documento></views_do_documento> tenho como fazer ?

Como é que eu faria isso ?

[]'s

Rafael

[rstoever]

<%

Dim objDom, objRoot, objDocumentos, objField

set objXML = Server.CreateObject("Microsoft.XMLDOM")

objXML.async = false

objXML.load strXMLFile 'Carrega o arquivo XML

Set objRoot = objXML.documentElement

Set objDocumentos = objRoot.SelectSingleNode("documentos[field/field_value="& strCod &&quot]") 'Aqui ele localiza o setor, imagino eu

Set objField = objDocumentos.selectSingleNode("field[@id=contViews]/field_value") 'Achou o que deve ser incrementado

objField.text = objField.text + 1 'aqui ele faz o replace, incrementa o campo

objXML.save strXMLFile 'Salva o arquivo

Set objXML = Nothing

Set objRoot = Nothing

Set objDocumentos = Nothing

Set objField = Nothing

%>

[rstoever]

Agora estou procurando saber como fazer p/ o caso que o campo não estiver dentro do XML e dai ele tem que dar um appendChildNode ou algo parecido !!!

Se alguém souber como fazer.

Ex.:

Procurou cod = 54

acho incrementa viewDoc

senão

cria campos e incrementa 1 pela 1ª vez

Isto no ASP+XML

falow