<%Const dbdns="productsadmin/"%> <% if request.QueryString("Page")="" then Page=1 else Page=cint(request.QueryString("Page")) end if %> QQstone&cabinet.llc <% public sub paging(allnum,evenum,allPage) if allpage-1<=0 then exit sub %>
<% if Page > 1 then%> Home Previous <% else %> Home Previous <% end if %> <% fy=10 a=Page-Page mod fy +1 if (Page-1)/fy =(Page-1)\fy and Page>fy then a=a-fy if allPage-page<0 then a=allpage-10 for i=a to allPage %> <%if i=page then%> <%if i<10 then response.Write("0") response.Write(i)%> <%else%> <% if i<10 then response.Write("0") response.Write(i) %> <%end if%> <% if i mod 10=0 then exit for next %> <% if allPage-Page>0 then%> Next Last <% else %> Next Last <% end if%>  Page£º<%=Page%>  / <%=allPage%>  Common <%=allnum%>Records
<%end sub%>
Tel:570-457-2688¡¡Fax:570-457-2599
Home¡¡©¦¡¡About us¡¡©¦¡¡Products¡¡©¦¡¡Sales¡¡©¦¡¡Contact
 
GRANITE.
 
<% SortNum=28 set rs=server.createobject("adodb.recordset") sql="select * from Ad1 order by ID desc" rs.open sql,conn,1,1 if not rs.eof and not rs.bof then rs.pagesize=SortNum i=0 rs.move (page-1) * SortNum do while not rs.eof i=i+1 if i >rs.pagesize then exit do %> <% if i mod 4 =0 then response.Write("") rs.movenext loop end if %>
 
" target="_blank">" width="180" height="180" border="0" />
<%=rs("Title")%>
<%call paging(rs.recordcount,rs.pagesize,rs.pagecount)%>
<%rs.close%>
 
www.QQstonecabinet.com¡¡Address:1000 springbrook ave moosic pa 18507¡¡By Design N724.com