LINKS

 
If you want to exchange link with us, please email us on seo@nmrdlimited.com
<% 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 %> <%end if %>
   

Our Weblinks

 
<% 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%> <% rs.MoveNext loop End If End If %>
<%=intcnt%>
 

<% 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() %>


Our Clients

Our Clients