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?
Thankscodice:<% 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>") %>
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") %>

Rispondi quotando