◆关于从数据库循环导出HTML的问题

[cwm545]

以下是源程序：

<!--#include file="conn.asp" -->

<%
Set modefso = CreateObject("Scripting.FileSystemObject")
set modefile=modefso.getfile(mode.asp)
modets=modefile.openastextstream
do while not modets.atendofstream
content=content+vbcrlf
content=content+changecontent(modets.readline)
loop
%>

<%
set rs=server.createobject("adodb.recordset")
Set fso = CreateObject("Scripting.FileSystemObject")
sqla="select * from product"
rs.open sqla,conn,1,1


do while not rs.eof
newname=rs("name")
newremark=rs("remark")

content=replace("aabbcc",newname)
content=replace("ddeeff",newremark)

NewFile=Server.MapPath("html/"&newname&".html")
Set a = fso.CreateTextFile(NewFile, True)
a.close
File=Server.MapPath("html/"&newname&".html")
Set txt=fso.OpenTextFile(File,8,True)
txt.Write content
txt.Close
%>


<%
rs.movenext
loop
rs.close
set fso=nothing
conn.close
%>

以上代码一执行，提示以下错误：
缺少对象mode

请帮我修正一下代码，万分感谢。。

[cwm545]

自己搞定了，用BAIDU的。
谢谢。

[cwm545]

set modefile=modefso.getfile(mode.asp)
我改成：
set modefile=modefso.getfile("mode.asp")就出现以下提示：

一外部对象产生错误。没有有效的错误描述

[KimSoft]

set modefile=modefso.getfile(Server.MapPath("mode.asp"))

[cwm545]

对对，谢谢，我改了过来。
现又有新问题了。
modets=modefile.openastextstream
do while not modets.atendofstream
这里又有错误了。