<%
Set redkod = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM defter Where onay=true order by id desc"
redkod.open rSQL,conn,1,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 = 1
redkod.absolutepage = sayfa
sayfa_sayisi = redkod.pagecount
for i=1 to redkod.pagesize
if redkod.eof then
exit for
end if
%>
GÖRÜŞLER
"<%=redkod("mesaj")%>"
Yazan: <%=redkod("ad")%>
<%
redkod.movenext
Next
end if
if onceki < 1 then
response.write ""
else
end if
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then
else
end if
next
if sonraki > sayfa_sayisi then
response.write ""
else
end if
%>
<%end if%>