If you want to exchange link with us, please email us on
seo@nmrdlimited.com
Our Weblinks
<%
set Rs=server.createobject("adodb.recordset")
'sql="select * from LinkExchangeDetail order by ID Desc "
sql="select * from LinkExchangeDetail order by Status Desc,Priority Desc,Id Desc"
Rs.open sql,objlink,1,2
if Rs.RecordCount>0 then
'On Error resume next
Const PAGE_SIGE = 30
Dim StrUrl
Dim IPageCount
Dim IPageCurrent
Dim IRecordCount
Dim I
StrUrl = Request.ServerVariables("URL")
If Request.QueryString("page") = "" Then
IPAgeCurrent = 1
Else
IPageCurrent = Cint(Request.QueryString("page"))
End If
rs.PageSize = 30
rs.CacheSize = 30
IRecordCount = rs.RecordCount
IRecordCount1 = rs.Recordcount
ipagecount = rs.pagecount
IntCOunt = 1
IntCNt1= IntCnt
If NOT rs.EOF Then rs.AbsolutePage = IPageCurrent
%>
<%
If not rs.Eof then
dim intposted
IntCnt = (30 * ipagecurrent ) - 30
if not rs.eof then
do While Not rs.Eof and rs.absolutepage = ipagecurrent
IntCnt = IntCnt + 1
IntRow = introw & "," & rs("id")
%>
<%if RS("Status")=707 then %>
<% else %>
<% end if%>
<%=intcnt%>
<%=PCase(RS("Description"))%>
<%
rs.MoveNext
loop
End If
End If
%>
<%
if iPageCurrent > 1 Then
%>
Prev
<%
End if
for I=1 to iPageCount
if I=iPageCurrent Then
%>
<%=I%>
<%
else
%>
<%=I%>
<%
End if
Next
if iPageCurrent < iPageCount Then
%>
Next
<%
End if
Rs.close()
%>