Skrive til XML fil

Umiddelbart opfylder synaksen de simpleste XML syntaksregler, hvad er dit 'problem' med slut tag'et.
Du kan kun have een rod tag som <phonelog> er det det som driller dig?

Har "selv" løst det :D

<%
Dim file_arr()
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.mappath("log/log.xml"), 1, True, False)

do while f.AtEndOfStream = false
  tempLine = f.ReadLine
  'Når det så er sidste linie du vil slette kan du gøre sådan her
  'ved at tjekke om f.AtEndOfStrean = false, hvis den er true
  ' har vi læst sidste linie og den skal ikke skrives til ftemp
  if f.AtEndOfStream = false then
    redim preserve file_arr(f.line)
    file_arr(f.line-1) = tempLine
  end if
loop
'Luk filen
f.Close

'Åben filen for skrivning
Set f = fso.OpenTextFile(Server.mappath("log/log.xml"), 2, True, False)
for i = lbound(file_arr)+1 to ubound(file_arr)-1
  'Udskriv linie for linie til filen
    Response.Write(file_Arr(i))
  f.writeLine file_Arr(i) 
next
f.Writeline("<telefonbesked>")
f.Writeline("    <dato>"&now()&"</dato>")
f.Writeline("    <til>xvxcv</til>")
f.Writeline("    <firma>xcvxcv</firma>")
f.Writeline("    <tlfnr>sdfdf</tlfnr>")
f.Writeline("    <action>fdf</action>")
f.Writeline("    <angaaende>sdfdsf</angaaende>")
f.Writeline("</telefonbesked>")
f.Writeline("")
f.Writeline("</phonelog>")

'Luk filen
f.Close
Set f = nothing
%>