Udskrivning af en database i et XML document

DO WHILE NOT RS.EOF
  i=i+1
  output = output & \"    <record>\" & vbcrlf
  output = output & \"        <recordSequence>\" & i & \"</recordSequence>\" & vbcrlf
  output = output & \"    </record>\" & vbcrlf

  RS.MoveNext
LOOP

filename = \"x.xml\"
call appendToFile(filename, output)

\'****************************
FUNCTION appendToFile(filename, logtext)
\'****************************
DIM whichfile, fs, a

    whichfile = server.mappath(filename)
    Set fs = CreateObject(\"Scripting.FileSystemObject\")
    Set a = fs.OpenTextFile(whichfile, 8, TRUE)
    a.Write(logtext)
    a.Close
  SET a  = nothing
  SET fs = nothing
\'****************************
END FUNCTION \' writeToLogfile
\'****************************

Hvis MDAC 2.5 eller højere er installeret, som kan indholdet af et recordset hentes med:
xmlTekst = rs.xml

Jeg huskede vist forkert.

Men man kan gemme recordsettet i en xml fil med funktionen save:

rs.Save \"filnavn.xml\", adPersistXML ( = 1 )