updatere data i xml fil

overskriver du alt data i xml-filen?
For hvis så, så bare lav en filewriter der overskriver hele filen...

<%
str = "<?xml version=""1.0"" encoding=""iso-8859-1"" ?>" & vbcrlf
str = str & "<mwcounter>"
  str = str & "<info>"
    str = str & "<visits>" & ditAntalBesøg & "</visits>"
    str = str & "<date>" & dindatovar & "</date>"
  str = str & "</info>"
str = str & "</mwcounter>"

Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("dinxml.fil")
Set f = fso.OpenTextFile(filespec,2)
f.write str
f.Close

%>

Så skal du rette stien til din text-fil og du skal rette de to variable til der hvor du finder dem og vil have dem opdateret...