[求助]大家来仔细的研究静态分页的问题?

ˊ.龙之吻︷

大家好
我最近在写一个asp动态生成的网站但是我在快结尾的时候遇到了困难!
我用fso+模板的技术来实现的!
但是如何用asp动态生成并且分页出现了问题!
请大家帮忙
<!--#include file="conn.asp"-->
<%
dim tuijiancode
set rs=server.createobject("adodb.recordset")
sql="select * from HTMLMB"
rs.open sql,conn,1,3
tuijiancode=rs("MAINMB")
'----------------------------------------------------读取模板的内容
%>
<%
'------------------------------------------------------------实现分类的方法
set rsclass=server.CreateObject("adodb.recordset")
sqlclass="select * from class"
rsclass.open sqlclass,conn,1,3
do while not rsclass.eof
newclass=rsclass("class")
yema=rsclass("id")
'---------------------------------------------------------------循环开始
%>
<%
dim leftcode
dim counter
counter = 0
pageno=request.querystring("pageno")
pmcount=12

abc="<table width=""590"" border=""0"" cellspacing=""0"" cellpadding=""0""> <tr>"
'---------------------------------------------------------------------------------------------分页函数
'--------------------------------------------------------------------------------------------本页显示
'每页记录数
set rstuijian=server.createobject("adodb.recordset")
sql1="select * from getdata where 类型='"&newclass&"'"
rstuijian.open sql1,conn,1,3
do while not rstuijian.eof
%>
<%
leftcode="<td height=""125"" valign=""top""><table width=""200"" height=""100"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr><td><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""114"" height=""84"" background=""images/index-picbg_12.jpg""><div align=""center""><a href=""games/"&rstuijian("id")&".htm""><img src="&rstuijian("游戏标志图")&" width=""90"" height=""60"" border=""0""></a></div></td><td><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td>"&rstuijian("类型")&"</td></tr><tr><td>"&rstuijian("中文名称")&"</td></tr></table></td></tr></table></td></tr></table></td>"
abc=abc&leftcode
counter=counter+1
if counter mod 3= 0 then
abc=abc&"<tr>"
end if
rstuijian.movenext
loop
%>
<%
abc=abc&"</tr></table>"
%>
<%
haha=replace(tuijiancode,"FENLEI",newclass)
haha=replace(haha,"XXX",yema&-1)
haha=replace(haha,"GAMES",abc)
%>
<%
'-----------------------------------------------------------------生成开始！
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../class"&rsclass("id")&"-1.htm"))
fout.Write haha
fout.close
response.write("你正在生成"&rsclass("class")&"的第"&rsclass("id")&"页<br>")
%>
<%
'---------------------------------------------------------------------------------------开始循环下一个类
rsclass.movenext
loop
rsclass.close
set rsclass=nothing
conn.close
set conn=nothing
response.write("恭喜你生成成功！")
%>
大家能帮忙改一下吗?现在就是不能分页!