SQL e XML

[ice_wind]

Vorrei sapere quale è il metodo per salvare l'output di una
query XML direttamente su un file xml.

La query ad es. è:
SELECT email FROM TEST FOR XML AUTO, ELEMENTS
e ritorna a video un bel ouput xml simile a questo:


<TEST>
<email>xxxx@lsas.it</email>
</TEST>
<TEST>
<email>xxxx@sadsa.com</email>
</TEST >


Vorrei che il tutto compresa l'intestazione canonica
<?xml version="1.0" encoding="utf-8"?>
mi finisse in apposito file xml.

come faccio a creare un file .xml (es. email.xml)

grazie

[ice_wind]

up

[Mems]

<%
fileXML = "\cartella\email.xml" ' attenzione: il file da creare deve essere contenuto in una cartella con i permessi in scrittura da parte dell'Internet Guest Account!

set conn = server.createObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("\db\db.mdb")
sql = "SELECT email FROM tabella1"
set rs = conn.execute(sql)

if not rs.eof then
  sXML = "<?xml version=""1.0"" encoding=""utf-8""?>" &vbCrLf
  do until rs.eof
    sXML = sXML & "  <TEST>" &vbCrLf
    sXML = sXML & "    <email>" & rs("email") & "</email>" & vbCrLf
    sXML = sXML & "  </TEST>" & vbCrLf
    rs,moveNext
  loop
end if

rs.close
set rs = nothing

conn.close
set conn = nothing

if len(sXML) > 0 then
  set fso = server.createObject("Scripting.FileSystemObject")
    if fso.fileExists(server.mapPath(fileXML)) then fso.deleteFile(server.mapPath(fileXML))
      set file = fso.createTextFile(server.mapPath(fileXML), true, false)
        with file
          .writeLine sXML
        end with
      set file = nothing
  set fso = nothing
end if

response.write "Operazione Eseguta.
"
response.write "Verifica il file qui: " & fileXML & ""
%>

[Alethesnake]

se hai già una struttura xml basta istanziare un oggetto di xmldom, fare un loadxml della struttura e il save(percorsoxml).

vedi qui in fondo:

http://www.4guysfromrolla.com/webtech/101200-1.2.shtml