中文XML论坛--[求助]生成XML文件时出现的错误

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

生成XML文件时出现的错误:
代码如下：

strSourceFile = Server.MapPath("xml/word.xml")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.load(strSourceFile)
If objXML.parseError.ErrorCode <> 0 Then
objXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?><xml></xml>"
End If
Set objRootlist = objXML.documentElement.selectSingleNode("xml")
If objRootlist.hasChildNodes then
id = objRootlist.lastChild.firstChild.text + 1
Else
id=1
End If

Set oListNode = objXML.documentElement.selectSingleNode("xml").AppendChild(objXML.createElement("item"))

Set oDetailsNode = oListNode.appendChild(objXML.createElement("id"))
oDetailsNode.Text=id

Set oDetailsNode = oListNode.appendChild(objXML.createElement("linktype"))
oDetailsNode.Text="1"

Set oDetailsNode = oListNode.appendChild(objXML.createElement("linkname"))
oDetailsNode.Text=linkname

Set oDetailsNode = oListNode.appendChild(objXML.createElement("linkurl"))
oDetailsNode.Text=linkurl

Set oDetailsNode = oListNode.appendChild(objXML.createElement("imgpath"))
oDetailsNode.Text=""

Set oDetailsNode = oListNode.appendChild(objXML.createElement("addtime"))
oDetailsNode.Text=now()

Set oDetailsNode = oListNode.appendChild(objXML.createElement("ischeck"))
oDetailsNode.Text="0"

objXML.save(strSourceFile)
Set objXML=nothing

错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'objRootlist'
/scrcdw/resume_updateXML1.asp, 第 11 行

请问有那位知道怎么修改这个错误？？