[ <%=Request.Querystring("key") %> ]

<% dim con,rst,scriptname,gen,holder,edu,age1,age2,stat,strsql,i,bgcolor,count,newkey newkey=Request.Querystring("key") i=1 dim TotalPages,NumPerPage,CurrentPage,Number,counter, keyskill, jobspeci set con=Server.CreateObject("ADODB.Connection") con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("pusitab.mdb")&";") set rst=Server.CreateObject("ADODB.Recordset") strsql= "SELECT * FROM newstab WHERE ngroup='" & Request.Querystring("key") &"' " rst.Open strsql,con,1,2 if Request.Querystring("NumPerPage")<>0 then NumPerPage=Int(request("NumPerPage")) else NumPerPage=10 end if If Request.Querystring("page")="" then CurrentPage=1 else CurrentPage=cint(Request.Querystring("page")) end if number=rst.RecordCount if NOT rst.eof then rst.MoveFirst rst.PageSize=NumPerPage TotalPages=rst.PageCount rst.AbsolutePage=CurrentPage end if %> <%response.write(rst.Recordcount)%> Matches Found         Page <%response.write CurrentPage %> of <%response.write(totalpages)%> <% if number > 0 then%>
<% while not rst.eof and count < rst.pagesize count=count+1 %> <%rst.MoveNext wend rst.close set rst=nothing Response.Write "" else Response.write("

Sorry No record found!!!!

") Response.write("
") end if %>
Posted On Heading Details
l <%response.write(rst("ntitle"))%> " style="text-decoration: none "> <% response.write ( left(rst("nbody"),40)) response.write "   More..." %>
" dim ini,fim,a if NOT CurrentPage=1 then Response.write("") Response.write("<<- Previous" &" ") if TotalPages > 10 then if CurrentPage > 5 then if TotalPages > (CurrentPage+5) then ini=(CurrentPage-4) fim=(CurrentPage+5) else ini=(Totalpages-9) fim=Totalpages end if else ini=1 fim=10 end if else ini=1 fim=TotalPages end if for counter=ini to fim if counter=cint(request("page")) then Response.write(""&counter&"|") else Response.write("") Response.write(""&counter&"| ") end if next else if TotalPages=1 then Response.write " " else Response.write("1|") end if if TotalPages > 10 then fim=10 else fim=TotalPages end if for counter=2 to fim if counter=cint(request("page")) then Response.write(""&counter&"|") else Response.write("") Response.write(""&counter&"|") end if next end if if Not CurrentPage=TotalPages then Response.write("") Response.write(""&" "&"Next ->>"&" ") else response.write " " end if response.write "