<%s=request.querystring("s")
b=request.querystring("b")
if s="" then
s=1
end if
Set rastbag = Server.Createobject("ADODB.Connection")
rastbag.Open (Cumle)
Set rsb = Server.Createobject("ADODB.Recordset")
sqlb = "select * from cins where id="&s
rsb.open sqlb, rastbag, 1, 3
b=rsb("cins")
rsb.close
set rsb=nothing
Set rs = Server.Createobject("ADODB.Recordset")
sql = "select * from cins order by id"
rs.open sql, rastbag, 1, 3
rsx=rs.recordcount
%>
<%
Set rs = Server.Createobject("ADODB.Recordset")
sql = "select * from icerik where cins="&s&" order by id desc"
rs.open sql, rastbag, 1, 3
if rs.BOF or rs.EOF then
response.write "Kayıt yok"
ky=1
end if%>
Başlıklar
Eklenme Tarihi
<%if ky<>1 then
sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rs.pagesize = 30 'Bir sayfada listelenmesini istediğiniz İçerik sayısı
rs.absolutepage = sayfa
sayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
if i mod 2 = 0 Then
bg = "#000000"
else
bg = "#183452"
end if
%>
<%
'şimdi ise sayfa adlarını yazıp link verelim
response.Write "Sayfa: "
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then 'eğer şimdiki sayfa ise ona link vermiyoruz
response.write g& " " %><%else
response.Write "" & g & " "
end if
next
rs.close
set rs= nothing
rastbag.close
set rastbag= nothing
%>