| 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%>
|
" > |
<%
recNo=recNo+1
rs.movenext
loop%>
<%rs.Close()
Set rs = Nothing
%>