aşağıdaki kodlar ile yaptım ancak kendi pcimde olmasına rağmen çok kasıyor.
<html><head>
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>Yeni Sayfa 1</title>
</head>
								<%

Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../vtbmaden.MDB") 'Database Dosyasi
Set rs = Server.CreateObject("ADODB.RecordSet") 'RecordSet Nesnesini Olu?turduk
mertSQL = "SELECT * from galeri "'Tablo Adynyz
rs.open mertSQL,Baglanti,1,3
toplam=rs.recordcount
%>

<body>
<%
k=0
 Set FSO=Server.CreateObject("Scripting.FileSystemObject")
 Set Dosya=FSO.GetFolder(Server.MapPath("../galeri"))
 for each bulunan in Dosya.files
 rs.movefirst
 sil="true"
 a=bulunan.Name 
 a="galeri/" &a 
 'response.write a &"<br>"
 
 		 for i=1 to toplam
 		 if rs("Url")= a or rs("k_url")=a  then sil="false"
 		 rs.movenext
		 next
		 
	 if sil<>"false" then
	 	 response.write bulunan.Name & " dosyası silindi<br>"
	 bulunan.delete
	 k=k+1
	 end if		
 next
if k=0 then
response.write "silinmesi gereken bir dosya bulunamadı"
else
response.write k & " adet dosya  silindi" 
end if

%>
</body>

</html>