<%Session ("sayfa_seviyesi") = "0"%> <!--#include file="title.asp"-->

Panoya Mesaj Yaz


<% set kayitseti=Server.CreateObject("ADODB.RecordSet") kayitseti.open "SELECT * From ZDefteri WHERE ONAY=True Order By Tarih Desc",conn,1,3 if not kayitseti.EOF then kayitseti.pagesize=4 if Request.QueryString("Sayfa")="" then Session("Sayfa")=1 else Session("Sayfa")=int(Request.QueryString("Sayfa")) end if kayitseti.absolutepage=Session("Sayfa") if kayitseti.pagecount>1 and int(Session("Sayfa")) İleri >" end if if int(Session("Sayfa"))>1 then strYon = "< Geri "&strYon end if end if %> <%sayi=0 While not kayitseti.EOF and sayi<=kayitseti.pagesize sayi=sayi+1%>
Gönderen: <%=kayitseti("isim")%> Tarih: <%=kayitseti("tarih")%>
<%=kayitseti("mesaj")%>
<% set cvp=server.CreateObject("adodb.recordset") SQL = "Select * from Cevaplar where MesajID="&kayitseti("MesajID") cvp.Open SQL,conn,1,3 if not cvp.eof then%>

;
<%=cvp("Cevap")%>
<%end if%>
<%kayitseti.MoveNext Wend%>

Toplam Mesaj: <%=kayitseti.recordcount%> Sayfa:<%=Session("Sayfa")%>/<%=kayitseti.pagecount%> <%=strYon%>
<% kayitseti.Close set kayitseti=Nothing conn.Close set conn=Nothing %>