selected<%End if%>>İsme Göre selected<%End if%>>Tarihe Göre selected<%End if%>>Artan selected<%End if%>>Azalan selected<%End if%>>25 selected<%End if%>>50 selected<%End if%>>100

<% response.buffer = "true" %> <% if (Request.QueryString("resim"))="sil" then id=request.querystring("id") data.Execute("DELETE FROM galeri where id like '"&id&"'") Response.Redirect Request.ServerVariables("HTTP_REFERER") End if set zd_msg = Server.CreateObject("Adodb.Recordset") if isnumeric(id)=false or id="" then SQL = "Select * from galeri order by "&sira&" "&t&"" else SQL = "Select * from galeri where kat_id="&id&" order by "&sira&" "&t&"" end if zd_msg.open SQL,data,1,3 adet = zd_msg.recordcount if not zd_msg.eof then sayfa = Request.QueryString("sayfa") if isnumeric(sayfa)=false then Response.redirect "index.asp" Else if sayfa="" then sayfa=1 zd_msg.pagesize = (s) sayfa_sayisi = zd_msg.pagecount if Cint(sayfa)<1 then sayfa=1 if Cint(sayfa_sayisi) < Cint(sayfa) then sayfa=sayfa_sayisi zd_msg.absolutepage = sayfa mode = 2 for i=1 to zd_msg.pagesize if zd_msg.eof then exit for end if if mode=1 then stil="tablo1" else stil="" end if %> <% zd_msg.movenext if mode=2 then mode=1 else mode=2 end if %> <% next %>

ID	Resim	İsim	Onay	İşlem
<%=zd_msg("id")%>	<% ss = InStr(1,zd_msg("url_kucuk"), "galeri_resimleri") if ss<>0 then%> " width="75" height="50" border="0"> <%else%> " width="75" height="50" border="0"> <%end if%>	"><%=zd_msg("isim")%>	<% if zd_msg("onay")=1 then %> <% else %> <% end if %>	"> " onclick="return confirm('Silmek İstediğinizden Emin Misiniz?');">