<% if (Request.QueryString("oda"))="sil" then %> <% uyeID=Request.QueryString("YoneticiID") set Mesajlar = Server.CreateObject("ADODB.RecordSet") SQL="DELETE * from Yonetici where YoneticiID like '"&uyeID&"'" Mesajlar.open SQL,connect,1,3 %> <% end if %> <% set yon = Server.CreateObject("ADODB.RecordSet") SQL="select * from Yonetici" yon.open SQL,connect,1,3 %> <% For s = 1 To yon.RecordCount %> <% yon.MoveNext NEXT yon.close set yon = Nothing %>

Yönetici LİSTESİ
Kulanıcı Adı	Yönetici Yetkisi	İşlemler
<%=yon("rumuz")%>	<% if yon("yetki")=0 then%> Normal Yönetici <% end if %> <% if yon("yetki")=1 then%> Sınırlı Yönetici <% end if %> <% if yon("yetki")=2 then%> Dondurulmuş <% end if %>	">      ">