Albümler Listeleniyor
<% if (Request.QueryString("kat"))="sil" then id=request.querystring("id") data.Execute("DELETE FROM video_kat where id like '"&id&"'") Response.Redirect Request.ServerVariables("HTTP_REFERER") End if set zd_msg = Server.CreateObject("Adodb.Recordset") SQL = "Select * from video_kat order by id DESC" zd_msg.open SQL,data,1,3 kayitsayisi="0" mode = 2 Do While Not zd_msg.eof if mode=1 then stil="tablo1" else stil="" end if kayitsayisi=kayitsayisi + 1 %> <% zd_msg.movenext if mode=2 then mode=1 else mode=2 end if loop %>
ID
 İsim Video Sayısı
İşlemler
<%=zd_msg("id")%>
 "><%=zd_msg("isim")%> <% set blog = Server.CreateObject("ADODB.RecordSet") SQL = "select count(id) as blog_say from video where kat_id= "&zd_msg("id")&"" blog.open SQL,data,1,3 %> "><%=blog("blog_say")%><% blog.close set blog = Nothing %>
" onclick="return confirm('Silmek İstediğinizden Emin Misiniz?');">Sil   ">Düzenle
Toplam Kategori : <%=kayitsayisi%>