conn.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & server.mappath("db1.mdb")

Set rs=server.createobject("adodb.recordset")
sqlstr="select * from [Category Sales for 1997] "
rs.open sqlstr,conn,1,3
%>
<table border=1>
<%While not rs.EOF%>
<tr><td><%=rs(0)%><td><%=rs(1)%><td><%'=rs(2)%><td><%'=rs(3)%>
<%
rs.MoveNext
Wend
rs.Movefirst
%>
建立一个XML文件，包含一些人员的相关信息。
<%
Set objDom=Server.CreateObject("Microsoft.XMLDOM") '
    '实际上这个文件可以暂时没有，

Set Newnode = objDom.CreateElement("CategorySales")

'----循环语句写数据--------------------------------
While not rs.EOF

Set NewnodeChild = objDom.CreateElement("Category")
Newnode.appendChild NewnodeChild

Set NewAttribute0 = objDom.CreateNode("attribute",rs(0).name,"")
NewAttribute0.Text = rs(0)
NewnodeChild.SetAttributeNode NewAttribute0
  
Set NewAttribute1 = objDom.CreateNode("attribute",rs(1).name,"")
NewAttribute1.Text = rs(1)
NewnodeChild.SetAttributeNode NewAttribute1

rs.MoveNext
Wend  
objDom.appendChild Newnode
objDom.save("f:\test.xml")

%>

错误信息如下
------------------------------------------------------------------------------------------------
无法显示网页
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
msxml3.dll (0x80070005)
拒绝访问。
/asp2xml.asp, 第 44 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.2; MAXTHON 2.0)

网页：
GET /asp2xml.asp

时间：
2008年2月22日, 下午 12:33:56

详细信息：
Microsoft 支持

就这句 objDom.save("f:\test.xml") 一写上就出错 小弟不懂求助各位大侠