<%set rs=server.CreateObject("adodb.recordset")
sql="select * from newsdata order by newsid desc"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.Write("
No Records!
")
else
rs.pagesize=15
pages=rs.pagecount
records=rs.recordcount
pageno=request("pageno")
if pageno="" or pageno<1 then pageno=1
pageno=cint(pageno)
if pageno>pages then pageno=pages
rs.absolutepage=pageno
max=rs.pagesize
min=1
do while not rs.eof and min<=max%>
