" 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("

        Tel: 0086-571-88220971/3
        Fax: 0086-571-88220972
        E-mail: hzptcorp@gmail.com
                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
") j=1 i=(currentpage-1)*MaxPerPage+1 Do While Not Rs.Eof and j<=MaxPerPage 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")%>
        กค ") 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("