<%
Set rastbag = Server.Createobject("ADODB.Connection")
rastbag.Open (Cumle)
Set rs = Server.Createobject("ADODB.Recordset")
sql = "select * from ziyaretcidefteri where onay='Y' order by id desc"
rs.open sql, rastbag, 1, 3
if rs.BOF or rs.EOF then%>
Ziyaretçi Defterinde hiç yazı yok
<%response.end
end if%>
Başlık
Ekleyen
Eklenme Tarihi
Sil
<%
sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rs.pagesize = 30 '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
if i mod 2 = 0 Then
bg = ""
else
bg = "#000000"
end if
%>
<%'---------------Tablo Başlangıcı------------%>
<%
'ş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
%>