Link Resource 
1-(248)-275-1202 (USA)
YAHOO
MSN
SKYPEhome | Link Resource
Link Resource
<% on error resume next dim MyRec1,strs,link set MyRec1 = Server.CreateObject("Adodb.recordset") strs = "select nLinkPerPage from le_admin" MyRec1.open strs, cnn link = MyRec1("nLinkPerPage") Dim MyRec,Sql dim thisPage, rowcount, i thisPage = Trim(Request("thisPage")) if thisPage = "" then thisPage = 1 set MyRec = Server.CreateObject("Adodb.recordset") with MyRec .CursorType = adOpenStatic Sql = "select * from le_addlink where sstatus='Active' order by nLinkPos" .Open Sql, cnn, 3 .PageSize = cINT(link) .AbsolutePage = cINT(thisPage) end with rowCount = 0 dim totalRec totalRec = MyRec.recordcount %>Next Page <% for i = 1 to myRec.PageCount %> <%=i%> | <% next %>
<% while not myRec.eof and rowCount < myRec.PageSize %>" target='_blank' class="bluecolor"><%= myRec("sTitle") %>
<%= myRec("sdesc") %>
<% rowCount = rowCount + 1 myRec.movenext wend %> <%= response.Write(data1) %>