forse mi sono spiegato un po' male . . .
vi metto il codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento senza titolo</title>
</head>
<%
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & _
Server.MapPath("prova.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn
Dim MyXML
dim sql
Set MyXML = Server.CreateObject("Microsoft.XMLDOM")
MyXML.Async = False
MyXML.Load Server.MapPath("database.xml")
Set root = MyXML.createElement("root")
set sql = conn.Execute("SELECT * FROM prodotto")
Do While not sql.EOF
set prodotto = MyXML.createElement("prodotto")
prodotto.setAttribute sql.Fields("id").name, sql.Fields("id").value
set marca = MyXML.createNode("element","nome","")
marca.text = sql.Fields("nome").value
prodotto.appendChild(marca)
set colore = MyXML.createNode("element","colore","")
colore.text = sql.Fields("colore").value
prodotto.appendChild(colore)
set prezzo = MyXML.createNode("element","prezzo","")
prezzo.text = sql.Fields("prezzo").value
prodotto.appendChild(prezzo)
root.appendChild(prodotto)
set prodotto=nothing
set marca=nothing
set colore=nothing
set prezzo=nothing
sql.moveNext
Loop
MyXML.appendChild(root)
MyXML.Save Server.MapPath("database.xml")
if err.number then
Response.Write "error=true"
else
Response.Write "error=false"
end if
set MyXML = nothing
sql.close
set sql = nothing
Conn.close
set strConn = nothing
%>
</body>
</html>
questo codice mi genera un file xml prendendo dei dati dal db, c'e' solo un problema che se il file contiene gia dei nodi va in errore! ma io devo rigenerarlo tutte le volte . . . help
