<%
Set ilhan =
Server.CreateObject("ADODB.Connection")
ilhan.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & Server.MapPath("db/veritabanim.mdb ")
 
id = Request.Querystring("id")
 
islem = Request.QueryString("islem")
if islem = "sil" then
call resmi_sil
end if
 
Set resim = ilhan.Execute("select * FROM resim ORDER BY
id DESC")
 
If Not resim.EOF Then
 
i=1
Do While Not resim.EOF
%>
 
 
<%= resim("resim_url") %>-<a
href="?islem=sil&id=<%= resim("id")
%>">Sil</a>
 
 
<%
i=i+1
resim.MoveNext
Loop
else
response.Write "Silinecek resim bulunamadı :("
end if
%>
 
 
<%
sub resmi_sil
 
id=Request.QueryString("id")
 
set rs=Server.CreateObject("Adodb.recordset")
rs.Open "Select * from resim where
id="&id&"",ilhan,1,3 
yol=rs("resim_url")
 
path=Server.MapPath("..
esimler")&""&yol  
pathkucuk=Server.MapPath("..
esimlerkucuk")&""&yol  
 
Set
fs=Server.CreateObject("Scripting.FileSystemObject")  
if fs.FileExists(path) then
 fs.DeleteFile(path) 
end if
 
if fs.FileExists(pathkucuk) then
 fs.DeleteFile(pathkucuk) 
end if
 
rs.close
ilhan.Execute "delete from resim where
id="&id&""             
response.redirect
Request.ServerVariables("HTTP_REFERER")
 
end sub
%>