|
<%
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
<%=esinti("cinsiyet")%>
">
">