โครงการศึกษาเกณฑ์การใช้พลังงานในอุตสาหกรรมและอาคารต่าง ๆ (SEC) อุตสาหกรรมกระดาษ
<% recNo=recNo+1 rs.movenext loop%>
  หน้าแรก |   Today is : <% =date%> <% pageNo = Request.QueryString("pg") if pageNo = "" then pageNo =1 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM News order by date desc",conn,1,3 rs.movefirst pageLen = 20 nrecord=rs.RecordCount rs.pagesize=pageLen totalPage=rs.PageCount rs.absolutePage=pageNo%> ขณะนี้อยู่หน้า : <%=pageNo%> จากทั้งหมด <%=totalPage%> หน้า  
<% ' -------------------------------------------- For Admin --------------------------------------------' if Session("Admin") >0 and Session("Admin") <= 9 then %> <% end if '---------------------------------------------- For Admin --------------------------------------------' %> <% recNo=1 do while not rs.eof and recNo <= pageLen%>
" > <% strData = rs("namenews") strNewData = Left(strData,90) &"..." response.write strNewData %> <% ' -------------------------------------------- For Admin --------------------------------------------' if Session("Admin")>=9 then %> ">แก้ไข | " onClick="return Conf(this)">ลบ <% end if '---------------------------------------------- For Admin --------------------------------------------' %> [ วันที่ : <%response.write rs("date")%> ]
" >
<%rs.Close() Set rs = Nothing %>

<% For idx = 1 to totalPage if idx=cint(pageno) then%> <%=idx%> <%else%> <%=idx%> <%end if%>   <%Next%> <%if cint(pageNo) > 1 then %> [ หน้าแรก [<< Back ] <% end if if cint(pageNo) < totalPage then %>   [ Next >>]  [ หน้าสุดท้าย <% end if%>
 
กรมพัฒนาพลังงานทดแทนและอนุรักษ์พลังงาน
17 ถนนพระรามที่ 1 เชิงสะพานกษัตริย์ แขวงรอบเมือง เขตปทุมวัน กรุงเทพมหานคร 10330
โทรศัพท์ : 0-2223-0021 ถึง 9 โทรสาร : 0-2226-1416