<% Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="select * from Yrumuzlar order by Tarih DESC" Rs.Open Sorgu,connect, 1, 3 If Rs.eof or Rs.BOF then Response.Write "" else sayf = Request.QueryString("sayf") if sayf="" then sayf=1 end if Rs.pagesize = 50 'Sayfadakı Sıralanacak veri sayısı Rs.absolutepage = sayf sayfa = Rs.pagecount for i=1 to Rs.pagesize if Rs.eof then exit for %> <%Rs.movenext%> <% next %> <% end if %>

Yasak Rumuzlar
Sıra No	Yasaklayan	Rumuz	Tarih	YasaklanmaNedeni	İşlemler
<%=rs("YrumuzID")%>	<%=rs("Yasaklayan")%>	<%=rs("rumuz")%>	<%=rs("Tarih")%>	<%=rs("Nedeni")%>	"> ">

<% if (Request.QueryString("yrumuz"))="sil" then %> <% YrumuzID=Request.QueryString("YrumuzID") set odac = Server.CreateObject("ADODB.RecordSet") SQL="delete * from Yrumuzlar where YrumuzID like '"&YrumuzID&"'" odac.open SQL,connect,1,3 response.redirect Request.ServerVariables("HTTP_REFERER") %> <% end if %> <% if (Request.QueryString("yrumuz"))="ekle" then %>

Yasak Rumuz Ekle

Rumuz
Yasaklama Nedeni

<% end if %> <% if (Request.QueryString("yrumuz2"))="ekle2" then %> <% rumuz=Request.form("rumuz") nedeni=Request.form("nedeni") LogID=Request.QueryString("LogID") set odac = Server.CreateObject("ADODB.RecordSet") SQL="select * from Yrumuzlar" odac.open SQL,connect,1,3 odac.addnew odac("rumuz")=rumuz odac("nedeni")=nedeni odac("tarih")=now() odac("yasaklayan")=session("rumuz") odac.update response.redirect Request.ServerVariables("HTTP_REFERER") %> Eklendi <% end if %>