<html>
<head>
<title>Scrivere su un file XML con ASP</title>
</head>
<body>
<%
' CARICO IL DOCUMENTO XML NEL DOM
Dim objXmlDom
Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
objXmlDom.async = False
objXmlDom.load Server.MapPath("/public/XML/SqlAllineaPiattaforma.xml")
' CREO LA ROOT DEL NODO, OVVERO UN NUOVO TAG <record> E </record>
Dim root, carica
carica = documentElement.appendChild
Set root = objXmlDom.carica(objXmlDom.createElement("record") )
' CREO I NUOVI ELEMENTI DA ASSOCIARE ALLE ROOT DEL FILE XML
' OVVERO DUE NUOVI TAG <nome> E </nome>, <cognome> E </cognome>
Dim nome, cognome
Set nome = root.appendChild(objXmlDom.createElement("nome"))
nome.Text = "Paolo"
Set cognome = root.appendChild(objXmlDom.createElement("cognome" ))
cognome.Text = "Viola"
' SALVO LA SCRITTURA DEL NUOVO NODO DEL FILE XML
objXmlDom.Save Server.MapPath("database.xml")
' UN PO DI PULIZIA...
Set root = Nothing
Set nome = Nothing
Set cognome = Nothing
Set objXmlDom = Nothing
' LANCIO UN SEMPLICE MESSAGGIO DI CONFERMA A VIDEO
Response.Write "Record aggiunto con successo!"
%>
</body>
</html>
Rispondi quotando
