TopBanneranimals

<% dim thisPage, rowcount, i, rst thisPage = Trim(Request("thisPage")) if thisPage = "" then thisPage = 1 if not isInteger(thisPage) then thisPage = 1 set rst = Server.CreateObject("ADODB.Recordset") rst.Open "SELECT * FROM press where date is not null ORDER BY date DESC", cnn,3,3 if not rst.EOF then with rst .PageSize = 10 .AbsolutePage = cINT(thisPage) end with rowCount = 0 %> <% while not rst.EOF and rowCount < rst.PageSize %> <% end if rst.MoveNext rowCount = rowCount + 1 wend %>
Press Notes/Events
 
Date Event
<% if not IsNull(rst("date")) then%> <%=FormatDateTime(rst("date"), 1)%> " target="_blank"><%=rst("note")%>
<% Response.Write "Next Page >" for i = 1 to rst.PageCount %> <%=i%> <% next %> <% else Response.Write("
There is no record in the table
") end if%>


Site Designed and Developed by National Informatics Center, West Kameng District Unit
Email:- West Kameng District Unit Phone: +91-3782-222267
Contents Provided, Owned and Updated by District Administration
Copyrights © 2003 NIC West Kameng District Unit. All Rights Reserved.
Optimised for IE 6.0 and above under 1024 x 768 Resolution

Disclaimer