<%
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=15
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%>
|
|
<%=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%><%end if%> |
<%kayitseti.MoveNext
Wend%>
|
|