Crear un XML desde ASP

[The_Pretorian]

Aqui tengo el Codigo que use para cumplir dicho dilema.. pero tengo el inconveneinte de que es Imperante crearlo solo una vez y de ahi solo modificar su valor....

Gracias de Antemano...

Atte
Jorge Diaz
<%
On Error Resume Next
addNewContacttoXML "c:","registro01.xml"
If err.number <> 0 then
Response.write("Errors, no se pudo grabar los datos")
Else
Response.write("Datos Grabados Correctamente")
End If

Function addNewContacttoXML(strXMLFilePath, strFileName)
Dim objDom, objRoot, objField
Dim objPI, blnFileExists, x
Set objDom = server.CreateObject("Microsoft.XMLDOM")
objDom.preserveWhiteSpace = True
blnFileExists = objDom.Load(strXMLFilePath & "\" & strFileName)
If blnFileExists = True Then
Set objRoot = objDom.documentElement
Else
Set objRoot = objDom.createElement("main")
objDom.appendChild objRoot
End If

Set objField = objDom.createElement("cod")
objField.Text = "CGA"
objRoot.appendChild objField
Set objField = objDom.createElement("nom")
objField.Text = "Carlos Garay"
objRoot.appendChild objField

If blnFileExists = False then
Set objPI = objDom.createProcessingInstruction("xml", "version='1.0'")
objDom.insertBefore objPI, objDom.childNodes(0)
End If
objDom.save strXMLFilePath & "\" & strFileName
Set objDom = Nothing
Set objRoot = Nothing
Set objField = Nothing
Set objPI = Nothing
End Function
%>