Gönderen: 21-Mayıs-2012 Saat 20:06 | Kayıtlı IP

<%
kategori_id = koruma(Request("kategori_id"))


'// Kategoriyi siliyoruz
baglanti.Execute("DELETE FROM emlak_kategori WHERE kategori_id = " & kategori_id & ";")


'// Varsa Alt Kategorileri siliyoruz
Call kategori_sil(kategori_id)






Sub kategori_sil(ByVal intKatid)
    Dim intID, objRs
    Set objRs = Server.CreateObject("ADODB.Recordset")
    objRs.Open "SELECT kategori_id FROM emlak_kategori WHERE kategori_ust = " & intKatid & ";", baglanti, 1, 3
    Do While Not objRs.Eof


        intID = objRs("kategori_id")
        objRs.Delete


        Call kategori_sil( intID )


    objRs.MoveNext() : Loop
    objRs.Close : Set objRs = Nothing
End Sub
%>