<%
sayfala=kayitsayisi
sayfa=cint(request.QueryString("sayfa"))
if sayfa="" then sayfa =0 end if
set rs = server.createobject("adodb.recordset")
sql="select * from defter" %>
<% IF not session(degisken) = "defter" then %>
<% SQL = SQL & " where onay=1" %>
<% end if
SQL = SQL & " ORDER BY id DESC"
Rs.Open sql, baglanti, 1, 3
If RS.BOF And RS.EOF Then %>
Defter Bilgisi |
| |
|
Defterde Kayıt
Bulunamıyor. |
| |
|
| |
<%
else
git = Int((sayfa * sayfala)+ 0)
rs.Move(git)
for i=1 to sayfala
if not RS.eof then%>
 <%=rs("adiniz")%> |
<% IF Not session(degisken) = "defter" and rs("emails")=1 then %>
"> "> |
<% End if %>
<% IF session(degisken) = "defter" then %>
">"> |
<% end if %>
">
 "> |
|
| <%=mesajformatla(rs("mesaj"))%> |
|
| <%=tarihformatla(rs("tarih"))%><%=saatformatla(rs("tarih"))%> |
">
<% IF session(degisken) = "defter" then %><% IF rs("onay")=1 then %>![]() " src="img/onayli.jpg" height="13" width="13" alt="Onayı Kaldır" onmouseover="FP_swapImg(1,0,/*id*/'<%=rs("id")%>',/*url*/'img/kaldirirken.jpg')" onmouseout="FP_swapImg(0,0,/*id*/'<%=rs("id")%>',/*url*/'img/onayli.jpg')"><% else %>![]() " src="img/onaysiz.jpg" height="13" width="13" alt="Onayla" onmouseover="FP_swapImg(1,0,/*id*/'<%=rs("id")%>',/*url*/'img/onaylarken.jpg')" onmouseout="FP_swapImg(0,0,/*id*/'<%=rs("id")%>',/*url*/'img/onaysiz.jpg')"<% end if %> | <% end if %>
">
<% IF session(degisken) = "defter" then %> | <% end if %>
">
<% IF session(degisken) = "defter" then %> | <% end if %>
|
<%
RS.MoveNext
end if
next
sayfasayisi=(rs.RecordCount-1)\sayfala %>
| Sayfa: <%for a=0 to sayfasayisi%>[<%if sayfa<>a then%><%=a+1%><%else%><%=a+1%><%end if%>]
<%next%> |
<% End If
Rs.close%><%
IF request("islem") = "kaldir" then
%><%
defterid=request.querystring("defterid")
Set ObjSil = Server.CreateObject ("ADODB.RecordSet")
StrSql = ("Delete From defter where id = "&defterid&"")
ObjSil.Open StrSql, baglanti, 1, 3
For i=1 To Request.QueryString("defterid").Count
Next
if defterid = "" then
Response.Redirect Request.ServerVariables ("HTTP_REFERER")
Else
Response.Redirect Request.ServerVariables ("HTTP_REFERER")
End if
End if
%><%
IF request("islem") = "onay" then
%><%
defterid=request.querystring("defterid")
Set ObjRs = Server.CreateObject ("ADODB.RecordSet")
sql = ("Select * From defter where id = " & defterid & " ")
ObjRs.Open sql, baglanti, 1, 3
IF ObjRs("onay") = 0 then onays=1 end if
IF ObjRs("onay") = 1 then onays=0 end if
ObjRs("onay")=onays
ObjRs.Update
objrs.close
set objrs =nothing
baglanti.close
set baglanti = nothing
response.redirect "defteri_oku.asp"
end if
%>