<%
 
 ' Resimlerin bulunduğu klasör (Fiziksel path ile örnek verdim. Mappath ile de kullanabilirsin)
 strResimKlasor = "D:\Inetpub\wwwroot\resimler\"
 
  ' ID parametresini iID değişkenie yükledik
  iID = Request.QueryString("ID")
 
   ' Eğer numeric bir veri yoksa dedik
   if Not IsNumeric(iID) Then
    Response.Write"Lütfen silmek istediğiniz kaydı belirtiniz."
   else
 
    'Veritabanındaki ilgili tabloya bağlanıp o kaydın olup olmadığını kontrol edicez
    Set objRs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECt * FROM ILANLAR WHERE AD_ID = "& iID
    objRs.Open strSQL, objConn,1 ,3 
     if objRs.EOF Then
      Response.Write"Silmek istediğiniz kayıt bulunamadı"
     else
 
      ' fso nesneyini saklandığı yerden çıkarıyoruz
      Set fso = CreateObject("Scripting.FileSystemObject")
 
      ' Eğer IMAGE1 alanında veri varsa
      if Not IsNULL(objRs("IMAGE1")) Then
       ' Eğer IMAGE1 alanındaki veri fiziksel olarak hostta bulunuyorsa
       if fso.FileExists(strResimKlasor & objRs("IMAGE1")) Then  
        ' Bulunuyorsa silinecek dosyayı alıyoruz
        Set f1 = fso.GetFile(strResimKlasor & objRs("IMAGE1"))
        ' Siliyoruz
        f1.Delete
       end if
      end if
 
      ' Yukarıdaki işlemler burada da yapılıyor
      if Not IsNULL(objRs("IMAGE2")) Then      
       if fso.FileExists(strResimKlasor & objRs("IMAGE2")) Then                  Set f2 = fso.GetFile(strResimKlasor & objRs("IMAGE2"))
        f2.Delete
       end if      
      end if
      if Not IsNULL(objRs("IMAGE3")) Then      
       if fso.FileExists(strResimKlasor & objRs("IMAGE3")) Then       
        Set f3 = fso.GetFile(strResimKlasor & objRs("IMAGE3"))
        f3.Delete
       end if      
      end if
      ' İLgili kaydı siliyoruz
      strSQL1 = "DELETE * FROM ILANLAR WHERE AD_ID = "& iID
      objConn.Execute(strSQL1) 
 
      'Gidilecek yere gönderiyoruz
      Response.Redirect "ilanlarim.asp"         
 
      'Bittiiiii
     end if
    objRs.Close
    Set objRs = Nothing
   end if
%>