%
'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," ")
%>