asp修改XML节点数据，求指教
xml如下：

<time>2</time>
<num>7</num>
<type>2</type>
<step>1</step>
<ad>
<img>images/1.png</img>
<img>images/2.png</img>
<img>images/3.png</img>
<img>images/4.png</img>
<img>images/5.png</img>
<img>images/6.png</img>
<img>images/7.png</img>

</ad>
<link>
<url>#</url>
<url>#</url>
<url>#</url>
<url>#</url>
<url>#</url>
<url>#</url>
<url>#</url>
</link>
<target>
<tar>_blank</tar>
<tar>_blank</tar>
<tar>_blank</tar>
<tar>_blank</tar>
<tar>_blank</tar>
<tar>_blank</tar>
<tar>_blank</tar>
</target>


我只想修改其中的  

<ad>
<img>images/1.png</img>
<img>images/2.png</img>
<img>images/3.png</img>
<img>images/4.png</img>
<img>images/5.png</img>
<img>images/6.png</img>
<img>images/7.png</img>

</ad>

网上找了些参考方法 可是都是一个结果 这个xml文件直接成空白了

我写的是 


dim xmldoc  
  dim names  
  set xmldoc=server.CreateObject("MSXML2.DOMDocument")  
  xmldoc.async=false 
  strXMLFile="../end.xml"
  Dim objRoot  
  xmldoc.load Server.MapPath(strXMLFile)  
  Set objRoot = xmldoc.DocumentElement  
  set names=objRoot.selectSingleNode("//ad//img")  
  for i=0 to ubound(picul) 
  names(i).text=picul(i) '这里不会写
  next 
  xmldoc.Save (Server.MapPath(strXMLFile))


望高人指点 谢谢


------解决方案--------------------
set names = xmldoc.selectNodes("//ad/img")
for i=0 to ubound(picul)
names(i).text = picul(i)
next
xmldoc.Save xmldoc.url

------解决方案--------------------
set names = xmldoc.selectNodes("//ad/img") 应该是用selectNodes

------解决方案--------------------
picul数组元素的个数和原来img的个数是不是一致