asp服务器发送xml文件失败,[求助]asp程序向xml文件添加节点不成功

[求助]asp程序向xml文件添加节点不成功

下面这个就是起添加节点作用的add.asp文件，表单提交以后一点反应都没有，没有页面跳转也没有被对应的xml文件加节点，我看不出错在哪里，向大家寻求帮助。

select case request("action")

case "add"

dim xmldoc,flag,filename

filename=server.mappath("mysites.xml")

set xmldoc=createobject("Microsoft.xmldom")

xmldoc.async=false

flag=smldoc.load(filename)

if flag then

dim element,e12

set element=smldoc.createelement("site")

set el2=xmldoc.createelement("topic")

el2.text=request.form("topic")

element.appendchild el2

set el2=xmldoc.createelement("name")

el2.text=request.form("name")

element.appendchild el2

set el2=xmldoc.createelement("url")

el2.text=request.form("url")

element.appendchild el2

xmldoc.documentelement.appendchild element

xmldoc.save filename

response.redirect"index1.asp"

end if

end select

%>

function valid()

{

var name=document.addform.name.value;

var url=document.addform.url.value;

var topic=document.addform.topic.value;

if (name==""||url==""||topic=="")

{

alert("请输入站点信息！")

return false

}

}

add

add new record
Topic:
name:
url:

这就是那个需要添加节点的xml文件：

新闻

sina

http://www.sina.com

体育

nease

http://www.163.com

add.asp文件中要跳转到的页面index1.asp文件是以列表形式显示所有节点信息的一个程序。