creo XML ma come salvo .XML

[beppenet]

ciao raga, questa pagina [playlist.asp] genera XML

<% Response.ContentType="application/xml" %>
<?xml version="1.0" encoding="iso-8859-1"?>

<playlist version="1" xmlns="http://xspf.org/ns/0/">
	<trackList>
<%
dim con_pagina                                                  
                                                                 
set con_pagina = Server.createobject("ADODB.connection")
con_pagina.open "Provider=Microsoft.jet.OLEDB.4.0; Data source=C:\Inetpub\wwwroot\cislfoggia.it\fpdb\cisl05.mdb"

sqlString = "SELECT * FROM radio"
						SET RSNews = con_pagina.Execute( sqlString )
						DO Until (RSNews.EOF)

response.write "<track>"
response.write "<annotation>" 	+  rsNews("nome_puntata") + "</annotation>" 
response.write "<location>" 	+  rsNews("file_puntata") + "</location>" 
'response.write "<image>" 		+  rsNews("immagine_puntata") + "</image>" 
response.write "</track>"
 
						RSNews.MoveNext
						Loop
						rsNews.close
						Set rsNews = nothing
%>
	</trackList>
</playlist>

ma io ho bisogno di un file [playlist.xml] ... quindi come lo salvo con quella estensione dopo averlo creato????

[Mems]

Con FSO.
http://www.google.it/search?q=FSO.Cr...ient=firefox-a

[beppenet]

ok Mems, tutto chiaro se devo scrivere un file di testo, ma come inserisco tutto quel popò di roba...compresa la SELECT sfruttando qeusta sintassi FSO

<%
Dim fsoMyFile
Dim tsTextStream

'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

'Apertura del file, in aggiunta dati (8), se non esiste lo crea (True).
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("/writable/playlist.xml"), 8, True)

'Scrive una riga.
tsTextStream.WriteLine("Nuova riga di prova.")
qui dovrei inserire totto compresa la select??? come?!?! 

'Chiude il file.
tsTextStream.Close
%>

[Santino83_02]

non fai prima a cambiare l'applicazione che vuole il .xml dicendogli di andare a leggere un .asp?

[Mems]

<%
dim contenuto

contenuto = contenuto & "<% Response.ContentType=""application/xml"" %>" & vbCrLf
contenuto = contenuto & "<?xml version=""1.0"" encoding=""iso-8859-1""?>" & vbCrLf
contenuto = contenuto &  "<playlist version=""1"" xmlns=""http://xspf.org/ns/0/"">" & vbCrLf
contenuto = contenuto & "	<trackList>" & vbCrLf

dim con_pagina                                                  
                                                                 
set con_pagina = Server.createobject("ADODB.connection")
con_pagina.open "Provider=Microsoft.jet.OLEDB.4.0; Data source=C:\Inetpub\wwwroot\cislfoggia.it\fpdb\cisl05.mdb"

sqlString = "SELECT * FROM radio"
						SET RSNews = con_pagina.Execute( sqlString )
						DO Until (RSNews.EOF)

contenuto = contenuto &  "          <track>" & vbCrLf
contenuto = contenuto &  "                <annotation>" 	+  rsNews("nome_puntata") + "</annotation>" & vbCrLf
contenuto = contenuto &  "                <location>" 	+  rsNews("file_puntata") + "</location>" & vbCrLf
contenuto = contenuto &  "                <image>" 		+  rsNews("immagine_puntata") + "</image>" & vbCrLf
contenuto = contenuto &  "          </track>" & vbCrLf
 
						RSNews.MoveNext
						Loop
						rsNews.close
						Set rsNews = nothing

contenuto = contenuto & "	</trackList>" & vbCrLf
contenuto = contenuto & "</playlist>" & vbCrLf


Dim fsoMyFile
Dim tsTextStream

'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

'Apertura del file, in aggiunta dati (8), se non esiste lo crea (True).
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("/writable/playlist.xml"), 8, True)

'Scrive una riga.
tsTextStream.WriteLine(contenuto)

'Chiude il file.
tsTextStream.Close
%>