<%
id=request.querystring("id")
islem=request.querystring("islem")
gelinen=request.servervariables("http_referer")
if session("admincins")=1 then
Set Baglanti=Server.CreateObject("Adodb.Connection")
Baglanti.Open Cumle
'----------------------------İçerik Silme----------------------- %
if islem="isil" then
Set Rs=Server.CreateObject("ADODB.RECORDSET")
Sorgu="delete * from icerik where id ="&id
Rs.Open Sorgu, Baglanti, 1, 3 %>
Haber Silme İşlemi Bitti
Silme
İşleminiz Tamamlanmıştır
Şimdi Ana Sayfaya Yönlendiriliyorsunuz!
Eğer Uzun Bi Süre Burada Kalırsanız Tıklayın...
<%end if%>
<%'----------------------------Yönetici Silme----------------------- %>
<%
if islem="ysil" then
Set Rs=Server.CreateObject("ADODB.RECORDSET")
Sorgu="delete * from admins where id ="&id
Rs.Open Sorgu, Baglanti, 1, 3 %>
Yönetici Kaydı Silme İşlemi Bitti
Silme
İşleminiz Tamamlanmıştır
Şimdi Ana Sayfaya Yönlendiriliyorsunuz!
Eğer Uzun Bi Süre Burada Kalırsanız Tıklayın...
<%end if%>
<%'----------------------------Z.Defteri Silme----------------------- %>
<%
if islem="zsil" then
Set Rs=Server.CreateObject("ADODB.RECORDSET")
Sorgu="delete * from ziyaretcidefteri where id ="&id
Rs.Open Sorgu, Baglanti, 1, 3 %>
Yönetici Kaydı Silme İşlemi Bitti
Silme
İşleminiz Tamamlanmıştır
Şimdi Ana Sayfaya Yönlendiriliyorsunuz!
Eğer Uzun Bi Süre Burada Kalırsanız Tıklayın...
<%end if%>
<%else%>
<% if session("admincins")=2 then %>
<%'----------------------------Mesaj Silme----------------------- %>
<%
if islem="msil" then
Set Rs=Server.CreateObject("ADODB.RECORDSET")
Sorgu="delete * from inbox where id="&cint(id)
Rs.Open Sorgu, Baglanti, 1, 3 %>
Mesaj Silme İşlemi Bitti
Silme
İşleminiz Tamamlanmıştır
Şimdi Ana Sayfaya Yönlendiriliyorsunuz!
Eğer Uzun Bi Süre Burada Kalırsanız Tıklayın...
<%end if%>
<%else%>
Yetkiniz bu alan için kısıtlı...
<%end if%><%end if%>