vbscript错误800a01a8

[lovepeacer]

Microsoft VBScript runtime error '800a01a8'

Object required

/umc/geturlandsize.asp, line 33

xml
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<appSettings>
<add key="ConnectionString" value="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\UpdateManage\db1.mdb;"/>
<add key="Domain" value="127.0.0.1"/>
<add key="ProductStore" value="C:\Inetpub\wwwroot\UpdateManage\Data\"/>
<add key="PhoneBookStore" value="C:\Inetpub\wwwroot\UpdateManage\phonebook\"/>
</appSettings>
</configuration>

set xmlDoc=server.CreateObject("Microsoft.XMLDOM")
set xmlappSettings=server.CreateObject("Microsoft.XMLDOM")
set xmladd=server.CreateObject("Microsoft.XMLDOM")

xmlDoc.async="false"
xmlDoc.load(server.MapPath ("\UpdateManage\web.config"))

set xmlappSettings = xmldoc.GetElementsByTagName("appSettings").Item(0)
set xmladd = xmlappSettings.GetElementsByTagName("add") 'line 33

for each x in xmladd
'Check for the Atrribute Value
if x.getAttribute("key") ="ConnectionString" then
'Response.write(x.getAttribute("value"))
ConnectionString=x.getAttribute("value")
end if
next

set xmladd = xmlappSettings.GetElementsByTagName("add") 这行出错，但不知为何，请高手指点

[huzy204]

set xmlappSettings = xmldoc.GetElementsByTagName( "appSettings ").Item(0)

这句是不是就错了，

你的根节点不是configuration 么？为什么第一次取就取appSettings ？

[huzy204]

这是VB代码。

读XML，我只用JScript写过。是从根读起的，你检查一下，是不是这里错了。