|
|
News & Event
<%
If request("page")<>"" then
currentPage=cint(request("page"))
Else
currentPage=1
End if
MaxPerPage=1000
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * from News where NewsClassID=53 order by Newsid desc"
Rs.Open Sql,Conn,1,1
If Rs.Eof and Rs.Bof Then
Response.write " | no info | "
Else
totalPut=Rs.Recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
Else
Rs.move (currentPage-1)*MaxPerPage
end if
strFileName="news.html?ClassID="&ClassID
Response.Write("")
j=1
i=(currentpage-1)*MaxPerPage+1
Do While Not Rs.Eof and j<=MaxPerPage
Response.Write(" กค ")
Response.Write("")
Response.Write Rs("NewsTitle")
Response.Write(" | ")
Response.Write year(Rs("Newsdate"))
Response.Write("-")
Response.Write month(Rs("Newsdate"))
Response.Write("-")
Response.Write day(Rs("Newsdate"))
Response.Write(" |
")
j=j+1
Rs.MoveNext
Loop
End IF
Rs.CLose
Set Rs=Nothing
Set Sql=Nothing
%>
<%Call ShowPage(strFileName,totalput,MaxPerPage,true,true,"info")%>