如何批量生成静态页面？？？？？我这样写错在哪里？？？

[yangxuhua]

我现在想通过单击按纽，实现批量生成某一新闻栏目下所有数据为静态页面：
我是用摸板做．．以下是代码．

dim cid,sql,msql
cid=cint(request.QueryString("cid"))'分类id号
msql="select * from moban where id=1" '打开摸板内容．就一个摸板，显示新闻内容的
set rs1=Server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,1
mb_code=rs1("moban")

'提取某一子栏目下的所有新闻．
sql="select * from helpcenter where classid="&cid&" order by newsid,sortid"
rs.open sql,conn,1,3
do while not rs.eof


'response.Write(rs("title")&"<br>")
'//循环替换摸板内容
mb_code=replace(mb_code,"{title}",rs("title"))
mb_code=replace(mb_code,"{writer}",rs("adders"))
mb_code=replace(mb_code,"{content}",rs("content"))
mb_code=replace(mb_code,"{comefrom}",rs("laiyuan"))
mb_code=replace(mb_code,"{addtime}",date())
mb_code=replace(mb_code,"{hits}",rs("hits"))
　　'///这里好象有问题，mb-code内容为空，没有替换过来．
　　　　　下面在重新生成的时候，页面内容为空了，

'生成HTML页面
　　Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath(rs("newspath")))
fout.WriteLine mb_code
fout.close

rs.movenext
loop
rs.close

rs1.close
set rs1=nothing

conn.close
set conn=nothing

%>

望高手指点．．．．

[jacklinchen]

mb_code=rs1("moban")后mb_code有值吗？

[jacklinchen]

对了，rs1.open sql1,conn,1,1有错，要改为：
rs1.open msql,conn,1,1

[hxlm21]

同志们，帮我把这个批量升成一下吧网址是：http://www.biandikaihua.com定重谢