<%
Set rastbag = Server.Createobject("ADODB.Connection")
rastbag.Open (Cumle)
Set rs = Server.Createobject("ADODB.Recordset")
sql = "select * from ziyaretcidefteri where onay='N' order by id desc"
rs.open sql, rastbag, 1, 3
if not rs.EOF then
sayfa = Request.QueryString("sayfa")
if sayfa="" Then
sayfa=1
end if
rs.pagesize = 3 'Bir sayfada listelenmesini istediğiniz haber sayısı
rs.absolutepage = sayfa
sayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
Set rsm = Server.Createobject("ADODB.Recordset")
sqlm = "select * from users where id="&rs("yazar")
rsm.open sqlm, rastbag, 1, 3
%>
<%
rsm.close
rs.movenext
Next
'ş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
else%>