[karabela24]

abdagli verdigin kodda sub hatası olayını hallettim.Yalnız yine eskisi gibi XML icerisindeki verileri siliyor. bu XML de güncelleme olayını nasıl yapabilirim.

[karabela24]

<ana>
<alt id="1" ad="dene1"></alt>
<alt id="2" ad="dene2"></alt>
</ana>

şeklinde XML yapım var.

Dim objXML, objElement
set objXML = server.CreateObject("Microsoft.XMLDOM")
objXML.async = False
objXML.load (server.MapPath("deneme/deneme.XML"))

set objElements = objXML.SelectSingleNode("ana")

response.write objElements.childNodes(0).getAttribute("id") & "<br />"
response.write objElements.childNodes(0).getAttribute("ad")

ve bu kodla XML de bulunan verileri listeliyebiliyorum.Ancak querystring en aldığım id ile bu xmli nasıl güncelliyebilirim acaba?

[absconder]

anladığım kadarı ile;

qs_id = request.querystring("id")
qs_val = request.querystring("val")

Set Nodes = objXML.SelectNodes("//alt[@id='"& id &"']")
If Node.length >0 Then
  Nodes(0).setAttribute "ad", val
End If

[karabela24]

qs_id = request.querystring("id")
qs_val = request.querystring("val")

Dim objXML, objElement,Node
set objXML = server.CreateObject("Microsoft.XMLDOM")
objXML.async = False
objXML.load (server.MapPath("deneme/deneme.XML"))

set objElements = objXML.SelectSingleNode("ana")

Set Nodes = objXML.SelectNodes("//alt[@id='"& id &"']")

If Node.length >0 Then
Nodes(0).setAttribute "ad", val
End If


If Node.length >0 Then bu satırda Nesne gerekli diyor.

[karabela24]

absconder yardımlarını bekliyorum

[absconder]

If Nodes.length >0 Then


s eksik kalmış orada

[karabela24]

absconder allah senden razı olsun sonunda oldu yalnız lazım olan arkadaşlar için söyliyeyim en alta objXML.save (server.MapPath("deneme/deneme.XML")) kodunu eklemeniz gerekiyor.