<%
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%>
| Ad: |
<%=kayitseti("isim")%> |
Tarih: |
<%=kayitseti("tarih")%> |
| Soyad: |
<%=kayitseti("soyisim")%> |
|
|
|
Mesaj:
<%=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%> |
| |
|