<%
'On Error Resume Next
dim conn,rs
call getConn(Conn)
call getRS(RS,"SELECT ID,Title,DateTime FROM News ORDER BY ID DESC",Conn)
if not RS.BOF THen
If request.Form("pageindex")<>"" Then
p=request.Form("pageindex")
Else
p=1
End If
pagesizes=25
RS.pagesize=pagesizes
RS.AbsolutePage=p
DO while Not RS.EOF
%>