<%
if session("user")<>"" and session("pass")<>"" then
PageSize=15 'กำหนดการแสดงผลต่อ 1 หน้า
if Request.QueryString("PageNo")="" then
PageNo=1 'ถ้าไม่มีการระบุหน้าเลขหน้า กำหนดให้เป็นหน้า 1
else
PageNo=Request.QueryString("PageNo") 'ตัวแปรระบุตำแหน่งหน้ารับค่าที่ส่งมา
end if
sql="SELECT * FROM activity ORDER BY dates DESC,act_id DESC"
Set RS =Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1,3
Rs.PageSize=PageSize 'กำหนดขนาดการอ่านข้อมูลต่อ 1 หน้า
PageCount=Rs.PageCount 'นับจำนวนหน้าที่แบ่งแล้วทั้งหมด
Rs.AbsolutePage=PageNo 'กำหนดให้ Rs เปิดข้อมูลจาก
%>
</font>
<table width = "677" border = 0 align="center" cellpadding = 1 cellspacing = 0 bgcolor = "#000000">
<tr bgcolor = "#FFFFFF">
<td align = "center"><font color = "#000000" face = "Microsoft Sans Serif" size = 2>มีทั้งหมด
<%=rs.PageCount%> หน้า</font></td>
<td align = "center"><font color = "#000000" face = "Microsoft Sans Serif" size = 2>หน้าที่
<%=pageno%></font></td>
<td align = "center"><font color = "#000000" face = "Microsoft Sans Serif" size = 2>จาก
<%=rs.PageCount%> หน้า</font></td>
<td align = "right"><font size="2" face="Microsoft Sans Serif">++ <a href="addact.asp"><font color = "#000000"><b>เพิ่มข่าวกิจกรรมใหม่คลิกที่นี่</b></font></a> ++</font></td>
</tr>
</table>
<table width = "677" border = 0 align="center" cellpadding = 1 cellspacing = 1 bgcolor = "#669933">
<tr bgcolor="#003366">
<td colspan = "6" align = "center"><font color = "#FFFFFF" face = "Microsoft Sans Serif" size = 2><b>ข่
า ว กิ จ ก ร ร ม</b></font></td>
</tr>
<tr bgcolor = "#840215">
<td align = "center" bgcolor = "#F0F0F0" width = "40"><font color = "#000000" face = "Microsoft Sans Serif" size = 2><b>ลำดับ</b></font></td>
<td align = "center" bgcolor = "#F0F0F0" width = "276"><font color = "#000000" face = "Microsoft Sans Serif" size = 2><b>หัวข้อข่าวกิจกรรม</b></font></td>
<td align = "center" bgcolor = "#F0F0F0" width = "139"><font color = "#000000" face = "Microsoft Sans Serif" size = 2><b>วันที่ลงข่าวกิจกรรม</b></font></td>
<td align = "center" bgcolor = "#F0F0F0" width = "122"><font color = "#000000" face = "Microsoft Sans Serif" size = 2><b>รายละเอียด/เว็บบอร์ด</b></font></td>
<td align = "center" bgcolor = "#F0F0F0" width = "50"><font color = "#000000" face = "Microsoft Sans Serif" size = 2><b>แก้ไข</b></font></td>
<td align = "center" bgcolor = "#F0F0F0" width = "31"><font color = "#000000" face = "Microsoft Sans Serif" size = 2><b>ลบ</b></font></td>
</tr>
<%
if rs.eof <> true then
rs.movefirst
Rs.PageSize=PageSize 'กำหนดขนาดการอ่านข้อมูลต่อ 1 หน้า
PageCount=Rs.PageCount 'นับจำนวนหน้าที่แบ่งแล้วทั้งหมด
Rs.AbsolutePage=PageNo 'กำหนดให้ Rs เปิดข้อมูลจาก
id=1
Do while not rs.eof and ID<=PageSize
pa=PageNo-1
pz=pa*PageSize
cnt=pz+id