<% dbtable=request.Form("dbtable")
topsum=request.Form("topsum")
pagesize=request.Form("pagesize")
set mb=server.CreateObject("adodb.recordset")
if topsum="" then
sql="select * from " & dbtable
else
sql="select top " & topsum& "
*
from " & dbtable
end if
mb.pagesize=pagesize
mb.open sql,conn,3,2
do while not mb.eof
response.Write mb(1)&"<br>"
mb.movenext
loop %>