Salve a tutti,
ho un problemino a trasformare dei dati di una tabella di un da access in un file xml
Questo e' il codice piu' interessante che ho trovato in rete
codice:
<%
'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("/database/redazione.mdb"))
'seleziono tutti i records della tabella myTable
sql = "SELECT * FROM notizie"
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 <a href="&_
filename&">clicca qui</a>.")
%>
ma quando carico la pagina mi compare il seg. errore:
Provider error '80030103'
Can't save.
/aggiorna1.asp, line 28
Qualcuno sa aiutarmi?