<%'Çilem.Net © 2007'%> <%=siteadi%> - İtiraf Oku <% Set rs=Server.CreateObject("Adodb.Recordset") rs.Open "SELECT * FROM itiraf where onay='Evet' order by id desc", cilem, 1, 3 %><% If rs.EOF And rs.BOF Then %>
<% Else%>
<% sayfasayisi = "sayfa_sayisi" sayfano = Request.QueryString("sayfano") ToplamKayit = rs.recordcount ToplamSayfa = ToplamKayit/sayfa_sayisi Function Tamamla(ToplamSayfa) If InStr(ToplamSayfa, ",") <> 0 Then Tamamla = Int(ToplamSayfa + 1) Else Tamamla = ToplamSayfa End If End Function GenelSayfa = Tamamla(ToplamSayfa) if sayfano = "" or sayfano = 1 then sayfano = 0 else end if if sayfano > 1 then sayfano = sayfano-1 else sayfano=sayfano end if ilksayfa = sayfa_sayisi * sayfano sonsayfa = ilksayfa + sayfa_sayisi %> <% sayi = 0 do while not rs.eof sayi=sayi+1 if sayi > ilksayfa and sayi =< sonsayfa then %> <% else end if rs.movenext loop%>
Konu: <%=rs("kategori")%>    
 <%=rs("baslik")%>
 <%=rs("gonderen")%>

.png" border="0" alt="<%=rs("gonderen")%>" style="border: 1px solid #808080; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" hspace="1" vspace="1">
  Yaş

:

 <%=rs("yas")%>

 

 Şehir

:

 <%=rs("sehir")%>

 

 Konu

:

 <%=rs("kategori")%>

 

 Eklenme

:

<%=rs("tarih")%>

  Okunma

:

 <%=rs("hit")%>
<%=left(ayikla(rs("itiraf")),250)%>...
 ">

Sayfalar : İlk Sayfa - <% if sayfano <> 0 then%> Önceki Sayfa - <%else end if%> <% for sayfanumarasi = 1 to GenelSayfa %> [<%=sayfanumarasi%>]<% if sayfanumarasi <> GenelSayfa then %> <%else%><%end if%><% next %> <% if GenelSayfa <> sayfano+1 then%> - Sonraki Sayfa <%else end if%> - Son Sayfa <%end if%>