<% Dim table,currentPage,flag flag = false currentPage="" currentPage= Trim(Request.QueryString("currentPage")) If(currentPage = "" or currentPage = null) then currentPage = "1" end if counter = 1 startCount = (cInt(currentPage) -1)* 10 session("currentPage") = currentPage 'Response.Write(startCount) Set rsL = Server.CreateObject("adodb.recordset") ' TO DISPLAY THE IMAGE rsL.CursorType = 3 rsL.CursorLocation = 3 rsL.PageSize = 10 sqlL = " Select * from tbl_press order by pdate desc" 'Response.Write(sqlL) rsL.Open sqlL,con recCount = rsL.RecordCount if recCount < 1 then flag = true end if %> :: Crossings ::
 
Price Lists
     
  <%if flag <> true then%> <% end if set rsL = nothing if flag <> false then con.Close() %> <%end if%>
<% if flag = false then rsL.AbsolutePage = cint (currentPage) while not rsL.EOF and cint(counter) < 11 id= rsL("id") pname = rsL("pname") subject = rsL("title") session.LCID=2057 DOB=trim(rsL("pdate")) %> <% counter = counter +1 rsL.MoveNext() wend end if prePg = 1 if( cInt(currentPage) > 1 ) then prePg = cInt(currentPage) -1 'prePg = prePg+7 end if prePg = "?currentPage=" &prePg nextPg = rsL.PageCount if( cInt(currentPage) < rsL.PageCount ) then nextPg = cInt(currentPage) + 1 'nextPg = nextPg + 7 end if nextPg = "?currentPage=" &nextPg 'if flag <> true then %>
Date Publication Name Title
<%=DOB%> <%=pname%>

<%=trim(subject)%>

   
<%if( cInt(currentPage) > 1 ) then%> <<Previous <%end if%>
<%if( cInt(currentPage) < rsL.PageCount ) then%> Next>> <% end if%>
 

There are no Records.

 


 
 

 


 
© Copyright 2006 CROSSINGS Infrastructure (P) Ltd.