ASP循环问题求助

下面代码是一个数据库数据一页循环显示全部，我想每页显示5行换页该怎么办。
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("data.mdb")
set rs=conn.Execute("Select * from cm110")
Response.Write "<table border=1>"
While Not rs.EOF
Response.Write "<tr>"
If rs.EOf Then
Response.Write "<td></td><td></td>"
Else
Response.Write "<td>" & rs("mingcheng") & "</td>"
rs.MoveNext
End If
Response.Write "</tr>"
Wend
Response.Write "</table>"
%>