|
|
<%
set zd = Server.Createobject("ADODB.Recordset")
Sql = "select * from zd where onay=1 order by id desc"
zd.open Sql, zdconn, 1, 3
%>
<%
If zd.eof or zd.bof then
Response.Write "Ziyaretçi defterinde henüz bir kayýt yok !"
%>
Onaylanan Toplam Mesaj Sayısı:
<%Response.write ""& zd.recordcount &"" %>
<%
set zdo = Server.Createobject("ADODB.Recordset")
Sql = "select * from zd where onay=0"
zdo.open Sql, zdconn, 1, 3
%>
Onay Bekleyen Mesaj Sayısı:
<%Response.write ""& zdo.recordcount &"" %>
Her sayfada <%=zd.pagesize%> adet mesaj gösterilmekte.
<%
Response.end
end if
%>
<%
sayfa = request.Querystring("sayfa")
if sayfa="" then
sayfa=1
end if
zd.pagesize = sayfas
zd.absolutepage = sayfa
Sayfa_top = zd.pagecount
for i=1 to zd.pagesize
if zd.eof then exit for
%>
|
| Yer: <%=zd("yer")%> |
| Tarih: <%=zd("tarih")%> |
| |
|
| <%=zd("Yazan")%> |
| <%=zd("mesaj")%> |
|
|
|
<%
zd.MoveNext
next
%>
<%
response.write "Sayfa :"
for y=1 to sayfa_top
if sayfa=y then
response.write y
else
response.write ""
response.write " "& y &" "
response.write ""
end if
next
%>
Onaylı mesaj :
<%Response.write ""& zd.recordcount &"" %>
|
<%
set zdo = Server.Createobject("ADODB.Recordset")
Sql = "select * from zd where onay=0"
zdo.open Sql, zdconn, 1, 3
%>
Onaysız mesaj :
<%Response.write ""& zdo.recordcount &"" %>
<%=zd.pagesize%> adet mesaj görüntülenmektedir. |
| (c) 2006 Copyright by
]{ayIP_Cocu]{ |
|
| 
