I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
izzusan
izzusan
il 7 aprile 2008 alle 15:03
10 messaggi dal 04 aprile 2008
ciao ragazzi questa è l'ultima volta che vi rompo . . . ho 1 problemino penso abbastanza facile . . .



come faccio nel mio file xml, controllare se ce del contento e se ce cancellarlo??

xke genero una pagina xml con xmldom e se sono gia presenti dei nodi va in errore.
allora devo cancellarlo tutte le volte . . .

grazie
RispondiQuoting
izzusan
izzusan
l'8 aprile 2008 alle 09:15
10 messaggi dal 04 aprile 2008
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
RispondiQuoting
izzusan
izzusan
l'8 aprile 2008 alle 16:10
10 messaggi dal 04 aprile 2008
anzi se il file è vuoto va in errore:
Set InStream = FileObject.OpenTextFile(strFile) dicendomi msxml3.dll error '800a0036'

XML document must have a top level element.

/Roberto/asp_xmldom/prova.asp, line 35

e se il file è pieno mi da errore l'xmldom!

msxml3.dll error '80004005'

Only one top level element is allowed in an XML document.

/Roberto/asp_xmldom/prova.asp, line 81

mamma mia mi sembra una via senza uscita . . .
RispondiQuoting
izzusan
izzusan
il 9 aprile 2008 alle 11:36
10 messaggi dal 04 aprile 2008
ho risolto!!!!
in pratica elimino il file ogni volta che chiamo la funzione x generare il file xml . . .

Dim MyXML
dim sql
'elimino il file per evitare errori xmldom
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile(Server.MapPath("database.xml"),true)
f.close
'creo il file con libreria xmldom
Set MyXML = Server.CreateObject("Microsoft.XMLDOM")
MyXML.Async = False
MyXML.Load Server.MapPath("database.xml")




set sql = conn.Execute("SELECT * FROM prodotto")

'creo il nodo radice
set root = MyXML.createElement("root")

ecc ecc

ciao a tutti!
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.