<% if (Request.QueryString("resim"))="sil" then %> <% ResimID=Request.QueryString("ResimID") set odae = Server.CreateObject("ADODB.RecordSet") SQL="DELETE * from Resimler where ResimID like '"&ResimID&"'" odae.open SQL,connect,1,3 %> <% end if %> <% if (Request.QueryString("resim"))="onayla" then %> <% ResimID=Request.QueryString("ResimID") set odae = Server.CreateObject("ADODB.RecordSet") SQL="select * from Resimler where ResimID like '"&ResimID&"'" odae.open SQL,connect,1,3 odae("onay")=1 odae.update response.redirect Request.ServerVariables("HTTP_REFERER") %> <% end if %> <% if (Request.QueryString("resim"))="onayk" then %> <% ResimID=Request.QueryString("ResimID") set odae = Server.CreateObject("ADODB.RecordSet") SQL="select * from Resimler where ResimID like '"&ResimID&"'" odae.open SQL,connect,1,3 odae("onay")=0 odae.update response.redirect Request.ServerVariables("HTTP_REFERER") %> <% end if %> <% Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="select * from Resimler 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 = 15 '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 %> <% for y=1 to sayfa if sayf=y then else response.write "" %> <% end if next onceki=sayf-1 sonraki=sayf+1 sayfa=rs.recordcount/15 sayfa2=INT(sayfa) sayfa3=sayfa2+1 %>

S.No	Resim Önizleme	Bulunduğu Klasör	Gönderen Rumuz	Sil / Göster
<%=rs("ResimID")%>	" width=130 height=150> <%=rs("resim")%>	imgs/	<%=rs("rumuz")%>	"> <% if rs("onay")=1 then %>" target="_self"><% end if %> <% if rs("onay")=0 then %>" target="_self"><% end if %>

<% if sayf=1 then %> <% else %> <% end if %>

[<%=rs.recordcount%> ] Adet kayıt [ <%=sayfa3%> ] Adet sayfa görüntülendi bulunduğunuz sayfa [ <%=sayf%> ]

<% if rs.recordcount>15 then %> <% if sayf=sayfa3 then %> <% else %> <% end if %> <% else %> <% end if %>