Visualizzazione dei risultati da 1 a 2 su 2

Discussione: problema xmldom asp

  1. #1
    Utente di HTML.it L'avatar di izzusan
    Registrato dal
    Apr 2003
    Messaggi
    463

    problema xmldom asp

    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 !!!!

  2. #2
    Utente di HTML.it L'avatar di izzusan
    Registrato dal
    Apr 2003
    Messaggi
    463
    buon di nessuno che ha un idea? credo che sbaglio a creare il nodo prodotto pero' nn sono come dirgli che prodotto e figlio di root e che gli altri sono figli di prodotto . . .

    (mamma mia che contorto sembro marzullo!!!)

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.