ciao ragazzi sto sclerando"!!!!!!!!!!
devo generare un foglio xml da db con asp funziona tutto tranne che nn riesco a fare il nodo padre ossia il mio xml dovrebbe uscire cosi:
- <root>
<prodotto>
<marca>maglia</marca>
<colore>blu</colore>
<prezzo>5</prezzo>
<marca>polo</marca>
<colore>gialla</colore>
<prezzo>7</prezzo>
</prodotto>
</root>
invece mi esce cosi:
- <root>
<marca>maglia</marca>
<colore>blu</colore>
<prezzo>5</prezzo>
<marca>polo</marca>
<colore>gialla</colore>
<prezzo>7</prezzo>
</root>
xkeeeeeeeeeeeeee
??????????
il codice asp è questo:
<%
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")
MyXML.appendChild(root)
set sql = conn.Execute("SELECT * FROM prodotto")
Do While not sql.EOF
set prodotto = MyXML.createElement("prodotto")
root.appendChild(prodotto)
set marca = MyXML.createNode("element","nome","")
marca.text = sql.Fields("nome").value
MyXML.documentElement.appendChild(marca)
set colore = MyXML.createNode("element","colore","")
colore.text = sql.Fields("colore").value
MyXML.documentElement.appendChild(colore)
set prezzo = MyXML.createNode("element","prezzo","")
prezzo.text = sql.Fields("prezzo").value
MyXML.documentElement.appendChild(prezzo)
set prodotto=nothing
set marca=nothing
set colore=nothing
set prezzo=nothing
sql.moveNext
Loop
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
%>
help sono alle prese con i primi cenni di voglia di suicidio !!!!
