想给一下这段查询做个分页。可是水平太有限了。。不知道怎么写
请高手帮忙。。

<%

dim Conn, sqlstr,key
key=request("t1")
key2=request("t2")
key3=request("t3")

set Conn=server.CreateObject ("adodb.connection")
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("customer.mdb")

set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from customer where customername='"&key&"'"
rs.Open sqlstr, conn,1,1

do while not rs.eof

<table align="center" border="1" bordercolor="black" >
<tr>
<td width=100 height=50>客户姓名：<%=rs("customername")%></td>

<td width=100 height=50>做货样式：<%=rs("goodstype")%></td>

<td width=100 height=50>LOGO：<%=rs("LOGO")%></td>

<td width=100 height=50>签单日期：<%=rs("singsdate")%></td>

<td width=100 height=50>预约提货时间：<%=rs("tgdate")%></td>

<td width=100 height=50>报价：<%=rs("bprice")%></td>

<td width=100 height=50>成交单价：<%=rs("sjprice")%></td>
</tr>
</table>

rs.movenext
loop
%>