Ciao a tutti, avrei bisogno di creare da db access un file xml e salvarlo automaticamente sul server.
Con il codice di cui sotto mi crea correttamente il file ma non riesco a salvarlo.
Potete darmi cortesemente una dritta?
codice:
<%
session("referer")= session("pagina")
session("pagina")= "http://"&request.ServerVariables("HTTP_HOST")&request.ServerVariables("PATH_INFO")&"?"&request.QueryString()
Dim Conn
Dim strConnect
Set Conn = Server.CreateObject("ADODB.Connection")
StrConnect = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & server.mappath("/mdb-database/db.mdb") & ";Persist Security Info = False"
Conn.open StrConnect
sql="select id, Pulsanti from Tabella"
set rs=Conn.Execute(sql)
response.write("<?xml version='1.0' encoding='ISO-8859-1'?>")
response.write("<STATO>")
while (not rs.EOF)
response.write("<PAESE>")
response.write("<id>" & rs("id") & "</id>")
response.write("<Pulsanti>" & rs("Pulsanti") & "</Pulsanti>")
response.write("</PAESE>")
rs.MoveNext()
wend
rs.close()
conn.close()
response.write("</STATO>")
%>
Thanks
Per poter salvare dovrei usare questo metodo ....
codice:
<%
text="<note>"
text=text & "<to>Tove</to>"
text=text & "<from>Jani</from>"
text=text & "<heading>Reminder</heading>"
text=text & "<body>Don't forget me this weekend!</body>"
text=text & "</note>"
set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async="false"
xmlDoc.loadXML(text)
xmlDoc.Save("test.xml")
%>