Creare File Xml Da Db Access Con Asp

[Onlyonme]

Ciao a tutti ho bisogno di generare un file xml con i dati che ho in un database access.

Il file dovrebbe avere questa formattazione:

<?xml version="1.0" encoding="utf-8"?>
<news_list max_id="15">
<news pref="" pos="" id="" data="" titolo="" link="" testo=""/>
<news pref="" pos="" id="" data="" titolo="" link="" testo=""/>
ecc........
</news_list>

all'interno del mio database ho una tabella chiamata locale1 nella quale ci sono i campi:
pref, pos, id, data, titolo, link, testo.

Ho cercato di scrivere lo script ma non ci cavo più le gambe!

qualcuno mi puo' dare un aiuto?

qui il link del file asp che mi genera il file xml

[Onlyonme]

up

[Onlyonme]

Ragazzi scusate ho modificato il file asp con le indicazioni prese da un post su questo forum non mi da nessun errore ma non mi stampa a video niente! Come posso fare?

posto il codice:

<%
Response.ContentType = "text/xml"
%>
<?xml version="1.0" encoding="utf-8"?>
<news_list max_id="15">
<%
Dim MM_lu_STRING
MM_lu_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../mdb-database/eventi_08.mdb")
' estrazione dei dati
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open MM_lu_STRING
set rs = objConn.execute("SELECT * FROM locale1 ORDER BY id ASC")
Do until rs.eof
response.write " <news pref="& rs("pref") &" pos="& rs("pos") &" id="& rs("id") &" data="& rs("data") &" titolo="& rs("titolo") &" link="& rs("link") &" testo="& rs("testo") &"/>"
rs.movenext
loop
rs.close
set rs = nothing

objConn.close
set objConn = nothing

%>
</news_list>

grazie a tutti

[Onlyonme]

nessuno puo' darmi una mano?

[lukaone]

io ho trovato una cosa del genere:

<%
'assegno il nome al file XML che voglio creare
Dim filename
filename = "DB_to_XML.xml"

'verifico se esiste già un file XML con lo stesso nome
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
'se esiste eliminalo
if fso.FileExists(Server.MapPath(filename)) then
fso.DeleteFile(Server.MapPath(filename))
end if
Set fso = Nothing

Dim cn, rs, sql

'apro la connessione al database myDataBase.mdb
Set cn = server.createobject("ADODB.Connection")
cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/mdb-database/data.mdb"))

'seleziono tutti i records della tabella myTable
sql = "SELECT * FROM tab_dati"
Set rs = cn.Execute(sql)

'salvo il recordset in un file XML
rs.Save Server.MapPath(filename), 1

'chiudo il recordset, la connessione al database e libero le risorse
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

'creo il link per visualizzare il file XML appena creato
Response.Write("Per visualizzare il file XML appena creato clicca qui.")
%>

però c'è un problema ...
scrive il file XML in modo un pò anomalo ... e ho difficoltà a recuperare poi i valori con il flash...

XML:

<rs:data>
<z:row ID='6' c1='foto_6.jpg' url='ulr' target='_blank' title='titolo' description='descrizione'/>
</rs:data>

Qusto dipo di dati FLASH non se le prende : <rs:data>...
qualcuno può aiutarmi???