Defteri OkuDeftere Yaz

<% Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" %> <% Set esinti = Server.Createobject("Adodb.Recordset") esinti.open "SELECT * FROM mesaj where onay=true order by id desc", baglanti, 1, 3 Toplam = esinti.RecordCount %> <% shf = Request.QueryString("shf") IF Not IsNumeric(REQUEST.QUERYSTRING("shf")) THEN Response.Redirect "default.asp" Response.End END IF If esinti.eof then Response.Write "
Kayıtlı mesaj yok..
" Response.End End If If shf="" Then shf="1" esinti.pagesize = 4 esinti.absolutepage = shf sayfa_sayisi = esinti.pagecount For i=1 To esinti.pagesize If esinti.Eof Then exit for %> <% If renk mod 2 Then bgcolor = "#EEEEEE" else bgcolor = "#FFFFFF" End If %>
Mesaj Yazan

" width="93" height="89">

 <%=esinti("cinsiyet")%>
 <%=esinti("adi")%>
 http//<%=esinti(">   <%=esinti(">
Mesajı Şehir: <%=esinti("sehir")%>  Tarih : <%=esinti("tarih")%>
<%=esinti("mesaj")%>

<%if esinti("cevap")<>"" then%>
  Admin Cevabı
 <%=esinti("cevap")%>
<%end if%>

<% esinti.Movenext Next %> <% Response.Write "
" Response.Write " Sayfalar : " For g = 1 To sayfa_sayisi If g = CInt(shf) Then Response.Write "[" & g & "]," Else Response.Write "" & g & "," End If Next Response.Write "
" %>
Esinti Ziyaretçi Defteri.                                         <% smilehtmlSQL = "select * from smile" Set smilehtml = baglanti.execute(smilehtmlSQL) Set mesaj = Server.Createobject("Adodb.Recordset") mesaj.open "SELECT * FROM mesaj order by id desc", baglanti, 1, 3 Toplam = mesaj.RecordCount %>  <% set topla1 = baglanti.execute("select count(id) as toplam from mesaj") set topla2 = baglanti.execute("select count(*) as toplam from mesaj where onay=true") if topla1("toplam") = 0 then link = "Boşalt" else link = "Boşalt" end if %> | Toplam : <%=topla1("toplam")%> Mesaj Arasında  <%=topla2("toplam")%> Onaylı ,<%=topla1("toplam")-topla2("toplam")%> Mesaj Onay Bekliyor...