<% page =Request("page") If page="" Then page=1 Else page=Cint(page) End If SQL="SELECT num, title, noti_type, noti_date, rcount FROM dreamNotice ORDER BY num DESC" ' SQL="EXEC aline2_notice_list_select" Rs.Open SQL, Dbcon, 3 %>

<%If Rs.EOF Then%> <% Else Rs.PageSize=10 Rs.AbsolutePage=page i=1 Do while not Rs.EOF and i <= Rs.PageSize %> <% i=i+1 Rs.MoveNext Loop End If %> 등록된 내용이 없습니다. &page=<%=page%>"><%=ReWord(Rs("title"))%> <%=Left(Rs("noti_date"), 10)%>   <% bindpage=int((page-1)/10)+1 if page > 10 then Response.Write "" else Response.Write " " end if Response.Write "  " j=int((bindpage-1)*10)+1 k=j+9 Do while j <= k and j<= Rs.PageCount if j=page then Response.Write ""& j &"" else Response.Write "["& j &"]" end if j=j+1 loop Response.Write "  " if int(bindpage) < (Rs.PageCount/10) then Response.Write "" else Response.Write " " end if Rs.close Dbcon.Close Set Dbcon=Nothing %>