mario0 Mario Silver bali - Useful Links <% pg=request("pg") nRecInPage=50 rst.open "SELECT * FROM Links ORDER BY LinkTitle",oconn,3,3 if rst.eof then response.write "Record not found..." response.end end if rst.movelast vreccount=rst.recordcount nNoOfPage=fix(rst.recordcount/nRecInPage)+1 nPageNo=cint(pg) if nPageNo=0 then nPageNo=1 end if nMoveRec=(nPageNo-1)*nRecInPage %>

mariosilverbali.com | links page | add your site

Page:
<%for n=1 to nNoOfPage if n=nPageNo then response.write " "&n&" " else response.write " "&n&" " end if next%>






<% rst.movefirst nCount=1 rst.move nMoveRec do while not rst.eof%> " target="_blank"><%=rst("LinkTitle")%>
<%=rst("LinkDesc")%>

<%rst.movenext nCount=nCount+1 if rst.eof or nCount > nRecInPage then Exit Do end if loop rst.close%>



Google

mariosilverbali.com | links page | add your site

Page:
<%for n=1 to nNoOfPage if n=nPageNo then response.write " "&n&" " else response.write " "&n&" " end if next%>

Exchange Catalog