<% sub button(intPrev,intNext,TotalPages) dim Counter if intPrev <> 0 then 'Response.Write "    Previous Page " end if if rs.AbsolutePage <> -3 then 'Response.Write "    Next Page " end if Counter=1 Response.Write "
Page :" while Counter <= TotalPages if cint(Counter)=cint(PageIndex) then Response.Write "" & Counter & "" else Response.Write "" & Counter & "" end if if cint(Counter) <> cint(TotalPages) then Response.Write " | " end if Counter = Counter + 1 wend end sub %> <% if session("table")="" then session("table")=request("tb") end if table=session("table") dim rs set rs=server.CreateObject("Adodb.recordset") 'sql="SELECT DISTINCT (product_name) AS Expr1, Consumer_ware.Category, Consumer_ware.img_url FROM Consumer_ware where category='carafe'" sql="select * from "& table & "" rs.open sql,conn,3,1,1 if rs.EOF =true then Response.Write "No Records Avialable in the Database" else %> <% dim intPageSize,PageIndex,TotalPages dim RecordCount,RecordNumber,Count intpageSize=3 PageIndex=request("PageIndex") if PageIndex="" then PageIndex=1 RecordCount=rs.RecordCount RecordNumber=(intPageSize * PageIndex) - intPageSize rs.PageSize =intPageSize rs.AbsolutePage = PageIndex TotalPages=rs.PageCount dim intPrev,intNext intPrev=PageIndex - 1 intNext=PageIndex +1 Count=1 while not rs.EOF and Count<=intPageSize %> <%rs.MoveNext Count=Count + 1 wend %>

<%response.Write(rs.fields("Item_name"))%>
	<%if isnull(rs.fields("set"))=false then%> <%end if%> Available in <%response.Write(rs.fields("capacity"))%> <%response.Write(rs.fields("set"))%> (<%response.Write(rs.fields("capacity"))%>) Product Specification
<% call button(intPrev,intNext,TotalPages) %>

<% end if rs.close conn.close %>

BACK