电视连续剧刁蛮新娘:asp分页问题，急！

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
If (request.form("select") <> "tt") then
If (request.form("select2") <> "zz") then
Recordset1.Source = "SELECT title,id,type FROM " + Replace(Recordset1__MMselect, "'", "''") + " WHERE " + Replace(Recordset1__MMselect2, "'", "''") + " like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%'"
else
Recordset1.Source = "SELECT title,id,type FROM " + Replace(Recordset1__MMselect, "'", "''") + " WHERE content like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' or title like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%'"
end if
else
If (request.form("select2") <> "zz") then
Recordset1.Source = "SELECT title,id,type FROM gsxx WHERE " + Replace(Recordset1__MMselect2, "'", "''") + " like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' union SELECT title,id,type FROM flfg WHERE " + Replace(Recordset1__MMselect2, "'", "''") + " like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' union SELECT title,id,type FROM bszn WHERE " + Replace(Recordset1__MMselect2, "'", "''") + " like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%'union SELECT title,id,type FROM xfwq WHERE " + Replace(Recordset1__MMselect2, "'", "''") + " like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%'"
else
Recordset1.Source = "SELECT title,id,type FROM gsxx WHERE content like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' or title like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' union SELECT title,id,type FROM flfg WHERE content like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' or title like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' union SELECT title,id,type FROM bszn WHERE content like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' or title like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' union SELECT title,id,type FROM xfwq WHERE content like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' or title like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%'"
end if
end if
分页不正常，可以正确显示页数，可是点第2页后又回到默认直，字数限制，分页代码没写，如果是这样，该如何设计分页？