<% 'On error resume next con.Open ConnectionString Set rs=Server.CreateObject("ADODB.Recordset") Set rs1=Server.CreateObject("ADODB.Recordset") 'strQuery = "select * from classified order by sino desc" 'rs.Open strQuery, Con, addopenforwardonly 'Set rs1=Server.CreateObject("ADODB.Recordset") if cint(Request.QueryString("page"))<=1 then cpage=1 strQuery = "select Top 5 * from classified order by sino desc" else cpage=cint(Request.QueryString("Page")) strQuery= "select Top 5 * from classified where sino not in (select Top " & ((cint(request.QueryString("page"))-1)*5) & " sino from classified order by sino desc) order by sino desc" end if rs.Open strQuery, Con, addopenforwardonly rs1.Open "select count(*) from classified", Con, addopenforwardonly if rs1(0) mod 5=0 then yy=rs1(0)\5 else yy=(rs1(0)\5)+1 end if %> Allbiotechjobs.com bringing together job seekers and job providers in Biotechnology
Classifieds
 
Page : <% for i=1 to yy%>   <%if i<>cpage Then %> <%=i%> <%else%> <%=i%> <%end if%> <%next%>
Classifieds Posted
<% if not rs.eof then while not rs.eof content=replace(replace(rs("descr"),"sat(1)","'"),vbcrlf,"
") %> <% rs.MoveNext wend else %> <% end if %>
<%=content%>
No records available....
 
 
women moncler jacketsugg ?????knitted ugg bootsmoncler ukair force saleChristian Louboutin Heelsmoncler vest on saleaustralian uggssheepskin uggs bootsugg classic short chestnut
Google
© allbiotechjobs.com