|
Articles Archive
<%
Dim pp,ii
pp=10
if Trim(Request.QueryString("pp"))<>"" Then
pp=Request.QueryString("pp")
End if
Dim intPageSize
Dim intCurrentPage
Dim intTotalPages,intI
intPageSize=pp
%>
<%
if Request.querystring("go")="" Then
intCurrentPage=1
Else
intCurrentPage=Request.querystring("CurrentPage")
Select Case Request.querystring("go")
Case "prev"
intCurrentPage = intCurrentPage - 1
Case "next"
intCurrentPage = intCurrentPage + 1
End Select
End if
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation=adUseClient
objRS.CursorType=adOpenStatic
objRS.CacheSize=intPageSize
strQ="select * from articles order by sdate desc"
objRS.Open strQ,objConn,,,adCmdText
objRS.PageSize=intPageSize
If Not(objRS.EOF) Then objRS.AbsolutePage=intCurrentPage
intTotalPages=objRS.PageCount
%>
<%
For intI = 1 To objRS.PageSize
%>
"><%=objRs("title")%> - <%=objRs("summary")%>
Posted on : <%=objRs("sdate")%> | Total Views : <%=objRs("total_views")%>
<% objRS.MoveNext()
if objRS.EOF Then Exit For
Next
objRS.Close :
Set objRS=Nothing :
%>
Page
<% =intCurrentPage %>
of
<% =intTotalPages %>
|
<%
if intCurrentPage > 1 Then %>
>« Previous
<%End if%>
|
<%
if intCurrentPage <> intTotalPages Then %>
>Next »
<% End if %>
|
| |
|
|
|