使用response.ContentType生成WORD文档，怎么生成多页

使用response.ContentType生成WORD文档，如何生成多页？
使用
  Response.Buffer = True 
  response.ContentType ="application/msword"
  Response.AddHeader "content-disposition", "attachment;filename = 工作计划表.doc"
语句生成WORD该当，如果后续代码生成的是单页数据，即只有array(0,0)时，可以正常生成，但一使用
for i=lbound(array,2) to ubound(array,2)
语句生成多张WORD文档后，就出现无数据读出现象，不知如何解决？

[解决办法]
在页面后面加入
<br clear="all" style="page-break-before:always"/>
[解决办法]
生成文件时在服务器的。如果文件名是传进去的，那就要看360浏览器传的时候是否丢失了。