求帮弄这个循环显示并分页显示

不太会asp
这是我的代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
























  

    


<%
set rs2news=server.createobject("adodb.recordset")
             sql="select * from News order by adddate desc"
                 rs2news.open sql,conn,1,1
 do while not rs.eof 
if rs2news.recordcount=0 then 

        


%>
暂无信息




<%else%>

<%

   rs2news.PageSize =10 
iCount=rs2news.RecordCount 
iPageSize=rs2news.PageSize
     maxpage=rs2news.PageCount 
     page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs2news.AbsolutePage=Page

if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>







  
<%=left(trim(rs2news("newsname")),15)%>


   <%
response.write (year(rs2news("adddate")))
response.write "-"
addmonth="0"&month(rs2news("adddate"))
                           response.write right(addmonth,2)
                           %>-<%addday="0"&day(rs2news("adddate"))
                           response.write right(addday,2)
                           %>