关于批量生成HTM

if type1="news" then
do while not rs.eof
ServerURL1="http://"&Request.ServerVariables("SERVER_NAME")&""&ServerURL&"../../paper.asp?id="&rs("id")&"“
set objfso = Server.CreateObject("Scripting.FileSystemObject")
Set Mail1 = Server.CreateObject("CDO.Message")
Mail1.CreateMHTMLBody ServerURL1,31
AA=Mail1.HTMLBody
Set Mail1 = Nothing

set htmout = objfso.CreateTextFile(server.mappath("../../html/"&rs("id")&".htm"))
htmout.write replace(AA,"","")
htmout.close
set htmout=nothing  
set objfso=nothing  
rs.movenext
loop
end if


我想知道请求循环次数每生成100个数据一次，代码如何编写