!<%=redkod("site_baslik")%>

<% Set redkod = Server.CreateObjecT("ADODB.RecordSet") rSQL = "Select * FROM defter Where onay=true order by id desc" redkod.open rSQL,conn,3,3 if redkod.eof Then Response.Write "Kayıt Girilmemiş." Else If (not redkod.eof) then sayfa = Request.QueryString("sayfa") If sayfa="" Then sayfa=1 redkod.pagesize = 10 redkod.absolutepage = sayfa sayfa_sayisi = redkod.pagecount for i=1 to redkod.pagesize if redkod.eof then exit for end if %>

<%=redkod("mesaj")%>
Yazan: <%=redkod("ad")%> | Tarih: <%=redkod("tarih")%> | Şehir: <%=redkod("sehir")%>

<% redkod.movenext Next end if onceki = cint(sayfa) - 1 sonraki = cint(sayfa) + 1 if onceki < 1 then response.write "" else response.write " Geri " end if for g = 1 to sayfa_sayisi if g = cint(sayfa ) then response.write " [" response.write g& "] " else response.Write "" & g & " " end if next if sonraki > sayfa_sayisi then response.write "" else response.write " İleri" end if %> <%end if%>