MyDesign Haber

Yönetim Paneli

<% If blnAdmin AND strVeriTabaniYolu = strScriptYolu &"veritabani/mydesign_haber.mdb" Then %> <% End If %>

<% Call UstMenu("kategori","

","

","

","

") %>

<% Call AltMenu("kategori","

","

","

","

") %>

<% '// Kategori Düzenleme Bölümü If strIslem = "kategori_duzenle" Then If blnAdmin <> True Then Response.Write "" Else intKategoriID = Temizle(Trim(Request.Querystring("kategori"))) If intKategoriID <> "" AND IsNumeric(intKategoriID) Then kdGenel.open "SELECT * FROM tblKategoriler WHERE katID="& CInt(intKategoriID) &"", adoCon, 1, 3 If Not kdGenel.EOF Then %>

Kategori Düzenle

Kategori Düzenle

Kategori Adı : " class="input" size="75" />
Menüde Göster : >Evet >Hayır

 

<% Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Kategori Düzenlemenin Kaydedilmesi Elseif strIslem = "kategori_duzenle_islem" Then If blnAdmin <> True Then Response.Write "" Else intKategoriID = Temizle(Trim(Request.Form("kategori"))) strKategoriAdi = BaslikTemizle(Trim(Request.Form("kategori_adi"))) blnGoster = BaslikTemizle(Trim(Request.Form("goster"))) If intKategoriID <> "" AND IsNumeric(intKategoriID) AND strKategoriAdi <> "" Then kdGenel.open "SELECT * FROM tblKategoriler WHERE katID="& CInt(intKategoriID) &"", adoCon, 1, 3 If Not kdGenel.EOF Then kdGenel("kategori") = strKategoriAdi kdGenel("goster") = CBool(blnGoster) kdGenel.Update Response.Write("") Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Kategori Ekleme Formu Elseif strIslem = "yeni_kategori" Then If blnAdmin <> True Then Response.Write "" Else %>

Kategori Ekle

Kategori Bilgileri

Kategori Adı :
Menüde Göster : Evet Hayır

 

<% End If '// Kategori Ekleme Formunun Kaydedilmesi Elseif strIslem = "kategori_ekle_islem" Then If blnAdmin <> True Then Response.Write "" Else strKategoriAdi = Temizle(Trim(Request.Form("kategori_adi"))) blnGoster = BaslikTemizle(Trim(Request.Form("goster"))) If strKategoriAdi <> "" Then kdGenel.Open "SELECT * FROM tblKategoriler", adoCon, 1, 3 kdGenel.AddNew kdGenel("kategori") = strKategoriAdi kdGenel("goster") = CBool(blnGoster) kdGenel("sira") = 1 kdGenel.Update kdGenel.Close Response.Write("") Else Response.Write "" End If End If '// Kategori Silinmesi Elseif strIslem = "kategori_sil" Then If blnAdmin <> True Then Response.Write "" Else blnSil = Temizle(Trim(Request.Querystring("sil"))) intKategoriID = Temizle(Trim(Request.Querystring("kategori"))) If intKategoriID <> "" AND IsNumeric(intKategoriID) Then kdGenel.Open "SELECT kategori FROM tblHaberler WHERE kategori = "& CInt(intKategoriID) &"", adoCon, 1, 3 intHaberSayisi = kdGenel.RecordCount kdGenel.Close kdGenel.Open "SELECT UstKatID FROM tblKategoriler WHERE ustKatID = "& CInt(intKategoriID) &"", adoCon, 1, 3 intAltKategoriSayisi = kdGenel.RecordCount kdGenel.Close intSilinenYorum = 0 intSilinenHaber = 0 intSilinenAltKat = 0 If (intAltKategoriSayisi < 1 AND intHaberSayisi < 1) OR blnSil = "1" Then kdGenel.Open "SELECT katID FROM tblKategoriler WHERE katID = "& CInt(intKategoriID) &"", adoCon, 1, 3 If NOT kdGenel.EOF Then kdGenel.Delete kdGenel.Update '// Kategori içindeki haberler siliniyor kdYardimci.Open "SELECT haberID, kategori FROM tblHaberler WHERE kategori = "& CInt(intKategoriID) &"", adoCon, 1, 3 If NOT kdYardimci.EOF Then Do While Not kdYardimci.Eof '// Habere ait yorumlar siliniyor kdYorum.Open "SELECT haber FROM tblYorumlar WHERE haber = "& kdYardimci("haberID") &"", adoCon, 1, 3 If Not kdYorum.Eof Then Do While Not kdYorum.Eof intSilinenYorum = intSilinenYorum + 1 kdYorum.Delete kdYorum.Update kdYorum.Movenext Loop End If kdYorum.Close intSilinenHaber = intSilinenHaber + 1 kdYardimci.Delete kdYardimci.Update kdYardimci.Movenext Loop End If kdYardimci.Close '// Kategori içindeki alt kategoriler siliniyor kdYardimci.Open "SELECT katID, UstKatID FROM tblKategoriler WHERE UstKatID = "& CInt(intKategoriID) &"", adoCon, 1, 3 If NOT kdYardimci.EOF Then Do While Not kdYardimci.Eof '// Alt kategori içindeki haberler siliniyor kdMenu.Open "SELECT haberID, kategori FROM tblHaberler WHERE kategori = "& kdYardimci("katID") &"", adoCon, 1, 3 If Not kdMenu.Eof Then Do While Not kdMenu.Eof '// Habere ait yorumlar siliniyor kdYorum.Open "SELECT haber FROM tblYorumlar WHERE haber = "& kdMenu("haberID") &"", adoCon, 1, 3 If Not kdYorum.Eof Then Do While Not kdYorum.Eof intSilinenYorum = intSilinenYorum + 1 kdYorum.Delete kdYorum.Update kdYorum.Movenext Loop End If kdYorum.Close intSilinenHaber = intSilinenHaber + 1 kdMenu.Delete kdMenu.Update kdMenu.Movenext Loop End If kdMenu.Close intSilinenAltKat = intSilinenAltKat + 1 kdYardimci.Delete kdYardimci.Update kdYardimci.Movenext Loop End If kdYardimci.Close Response.Write("") Else Response.Write "" End If kdGenel.Close Else %> <% End If Else Response.Write "" End If End If '// Alt Kategori Silinmesi Elseif strIslem = "altkat_sil" Then If blnAdmin <> True Then Response.Write "" Else blnSil = Temizle(Trim(Request.Querystring("sil"))) intKategoriID = Temizle(Trim(Request.Querystring("kategori"))) If intKategoriID <> "" AND IsNumeric(intKategoriID) Then kdGenel.Open "SELECT kategori FROM tblHaberler WHERE kategori = "& CInt(intKategoriID) &"", adoCon, 1, 3 intHaberSayisi = kdGenel.RecordCount kdGenel.Close intSilinenYorum = 0 intSilinenHaber = 0 If intHaberSayisi < 1 OR blnSil = "1" Then kdGenel.Open "SELECT katID FROM tblKategoriler WHERE katID = "& CInt(intKategoriID) &"", adoCon, 1, 3 If NOT kdGenel.EOF Then kdGenel.Delete kdGenel.Update '// Kategori içindeki haberler siliniyor kdYardimci.Open "SELECT haberID, kategori FROM tblHaberler WHERE kategori = "& CInt(intKategoriID) &"", adoCon, 1, 3 If NOT kdYardimci.EOF Then Do While Not kdYardimci.Eof '// Habere ait yorumlar siliniyor kdYorum.Open "SELECT haber FROM tblYorumlar WHERE haber = "& kdYardimci("haberID") &"", adoCon, 1, 3 If Not kdYorum.Eof Then Do While Not kdYorum.Eof intSilinenYorum = intSilinenYorum + 1 kdYorum.Delete kdYorum.Update kdYorum.Movenext Loop End If kdYorum.Close intSilinenHaber = intSilinenHaber + 1 kdYardimci.Delete kdYardimci.Update kdYardimci.Movenext Loop End If kdYardimci.Close Response.Write("") Else Response.Write "" End If kdGenel.Close Else %> <% End If Else Response.Write "" End If End If '// Alt Kategori Ekleme Formu Elseif strIslem = "yeni_alt_kategori" Then If blnAdmin <> True Then Response.Write "" Else %>

Alt Kategori Ekle

Kategori Bilgileri

Kategori Adı :
Üst Kategori : <% kdGenel.Open "SELECT * FROM tblKategoriler WHERE ustKatID = 0 ORDER BY sira ASC, kategori ASC",adoCon, 1, 3 If Not kdGenel.EOF Then Do While Not kdGenel.Eof Response.Write ""& kdGenel("kategori") &"" kdGenel.Movenext Loop End If kdGenel.Close %>
Menüde Göster : Evet Hayır

 

<% End If '// Alt Kategori Ekleme Formunun Kaydedilmesi Elseif strIslem = "alt_kategori_ekle_islem" Then If blnAdmin <> True Then Response.Write "" Else strKategoriAdi = Temizle(Trim(Request.Form("kategori_adi"))) intUstKategori = Temizle(Trim(Request.Form("kategori"))) blnGoster = BaslikTemizle(Trim(Request.Form("goster"))) If strKategoriAdi <> "" AND IsNumeric(intUstKategori) Then kdGenel.Open "SELECT * FROM tblKategoriler WHERE katID = "& CInt(intUstKategori) &" AND UstKatID = 0", adoCon, 1, 3 If kdGenel.Eof Then Response.Write "" Else kdYardimci.Open "SELECT * FROM tblKategoriler", adoCon, 1, 3 kdYardimci.AddNew kdYardimci("kategori") = strKategoriAdi kdYardimci("goster") = CBool(blnGoster) kdYardimci("UstKatID") = intUstKategori kdYardimci("sira") = 1 kdYardimci.Update kdYardimci.Close Response.Write("") End If kdGenel.Close Else Response.Write "" End If End If '// Alt Kategori Düzenleme Formu Elseif strIslem = "alt_kategori_duzenle" Then If blnAdmin <> True Then Response.Write "" Else intKategoriID = Temizle(Trim(Request.Querystring("kategori"))) If intKategoriID <> "" AND IsNumeric(intKategoriID) Then kdYardimci.Open "SELECT * FROM tblKategoriler WHERE katID = "& CInt(intKategoriID) &"", adoCon, 1, 3 If kdYardimci.Eof Then Response.Write "" Else %>

Alt Kategori Düzenle

Kategori Bilgileri

Kategori Adı : " class="input" size="75" />
Üst Kategori : <% kdGenel.Open "SELECT * FROM tblKategoriler WHERE ustKatID = 0 ORDER BY sira ASC, kategori ASC",adoCon, 1, 3 If Not kdGenel.EOF Then Do While Not kdGenel.Eof Response.Write ""& kdGenel("kategori") &"" kdGenel.Movenext Loop End If kdGenel.Close %>
Menüde Göster : >Evet >Hayır

 

<% End If Else Response.Write "" End If End If '// Alt Kategori Düzenlemenin Kaydedilmesi Elseif strIslem = "alt_kategori_duzenle_islem" Then If blnAdmin <> True Then Response.Write "" Else intKategoriID = Temizle(Trim(Request.Form("katID"))) strKategoriAdi = BaslikTemizle(Trim(Request.Form("kategori_adi"))) intUstKategoriID = BaslikTemizle(Trim(Request.Form("ust_kategori"))) blnGoster = BaslikTemizle(Trim(Request.Form("goster"))) If intKategoriID <> "" AND IsNumeric(intKategoriID) AND intUstKategoriID <> "" AND IsNumeric(intUstKategoriID) AND strKategoriAdi <> "" Then kdGenel.open "SELECT * FROM tblKategoriler WHERE katID="& CInt(intKategoriID) &"", adoCon, 1, 3 If Not kdGenel.EOF Then kdGenel("kategori") = strKategoriAdi kdGenel("goster") = CBool(blnGoster) kdGenel("ustKatID") = intUstKategoriID kdGenel.Update Response.Write("") Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Alt Kategori Taşıma Formu Elseif strIslem = "alt_kategori_tasi" Then If blnAdmin <> True Then Response.Write "" Else Response.Write "

Alt Kategori Taşıma

" %>

Kaynak Kategori

<% kdYardimci.Open "SELECT * FROM tblKategoriler WHERE UstKatID = 0 ORDER BY sira ASC, kategori ASC", adoCon, 1, 3 Do While Not kdYardimci.EOF %> "><%=kdYardimci("kategori")%><% kdYardimci.MoveNext Loop kdYardimci.Close %>

Alt Kategorilerin Taşınacağı Kategori

<% kdYardimci.Open "SELECT * FROM tblKategoriler WHERE UstKatID = 0 ORDER BY sira ASC, kategori ASC", adoCon, 1, 3 Do While Not kdYardimci.EOF %> "><%=kdYardimci("kategori")%><% kdYardimci.MoveNext Loop kdYardimci.Close %>

 

<% End If '// Alt Kategori taşıma Bölümü Elseif strIslem = "kategori_tasi_islem" Then If blnAdmin <> True Then Response.Write "" Else intKaynakKategoriID = Temizle(Trim(Request.Form("kaynak"))) intYeniKategoriID = Temizle(Trim(Request.Form("yeni_kategori"))) If intKaynakKategoriID <> "" AND IsNumeric(intKaynakKategoriID) AND intYeniKategoriID <> "" AND IsNumeric(intYeniKategoriID) Then intLooper = 0 kdGenel.Open "SELECT UstKatID FROM tblKategoriler WHERE UstKatID = "& CInt(intKaynakKategoriID) &"", adoCon, 1, 3 If NOT kdGenel.EOF Then Do While Not kdGenel.Eof kdGenel("UstKatID") = intYeniKategoriID kdGenel.Update intLooper = intLooper + 1 kdGenel.Movenext Loop Response.Write("") Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Haber Taşıma Formu Elseif strIslem = "haber_tasi" Then If blnAdmin <> True Then Response.Write "" Else intKaynakKategori = Temizle(Request.Querystring("kaynak")) Response.Write "

Haber Taşıma

" %>

Kaynak Kategori

<% kdGenel.Open "SELECT * FROM tblKategoriler WHERE ustKatID = 0 ORDER BY sira ASC, kategori ASC",adoCon, 1, 3 If Not kdGenel.EOF Then Do While Not kdGenel.EOF Response.Write(""& kdGenel("kategori") &"" kdYardimci.Open "SELECT * FROM tblKategoriler WHERE ustKatID = "& kdGenel("katID") &" ORDER By Sira ASC", adoCon, 1, 3 If Not kdYardimci.Eof Then Do While Not kdYardimci.Eof Response.Write("- "& kdYardimci("kategori") &"" kdYardimci.Movenext Loop End If kdYardimci.Close kdGenel.MoveNext Loop End If kdGenel.Close %>

Haberleri Taşınacağı Kategori

<% kdGenel.Open "SELECT * FROM tblKategoriler WHERE ustKatID = 0 ORDER BY sira ASC, kategori ASC",adoCon, 1, 3 If Not kdGenel.EOF Then Do While Not kdGenel.EOF Response.Write(""& kdGenel("kategori") &"") kdYardimci.Open "SELECT * FROM tblKategoriler WHERE ustKatID = "& kdGenel("katID") &" ORDER By Sira ASC", adoCon, 1, 3 If Not kdYardimci.Eof Then Do While Not kdYardimci.Eof Response.Write("- "& kdYardimci("kategori") &"") kdYardimci.Movenext Loop End If kdYardimci.Close kdGenel.MoveNext Loop End If kdGenel.Close %>

 

<% End If '// Haber Kategori taşıma Bölümü Elseif strIslem = "haber_tasi_islem" Then If blnAdmin <> True Then Response.Write "" Else intKaynakKategoriID = Temizle(Trim(Request.Form("kaynak"))) intYeniKategoriID = Temizle(Trim(Request.Form("yeni_kategori"))) If intKaynakKategoriID <> "" AND IsNumeric(intKaynakKategoriID) AND intYeniKategoriID <> "" AND IsNumeric(intYeniKategoriID) Then intLooper = 0 kdGenel.Open "SELECT kategori FROM tblHaberler WHERE kategori = "& CInt(intKaynakKategoriID) &"", adoCon, 1, 3 If NOT kdGenel.EOF Then Do While Not kdGenel.Eof kdGenel("kategori") = intYeniKategoriID kdGenel.Update intLooper = intLooper + 1 kdGenel.Movenext Loop Response.Write("") Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Alt Kategori Ekleme Formunun Kaydedilmesi Elseif strIslem = "alt_kategori_yap" Then If blnAdmin <> True Then Response.Write "" Else strAdim = Temizle(Trim(Request.Querystring("adim"))) If strAdim = "2" Then intKategoriID = Temizle(Trim(Request.Form("kategoriID"))) intYeniKategoriID = Temizle(Trim(Request.Form("kategori"))) If intKategoriID <> "" AND IsNumeric(intKategoriID) AND intYeniKategoriID <> "" AND IsNumeric(intYeniKategoriID) Then kdGenel.Open "SELECT * FROM tblKategoriler WHERE katID = "& CInt(intKategoriID) &"", adoCon, 1, 3 If kdGenel.Eof Then Response.Write "" Else kdGenel("UstKatID") = intYeniKategoriID kdGenel.Update Response.Write("") End If kdGenel.Close Else Response.Write "" End If Else intKategoriID = Temizle(Trim(Request.Querystring("katID"))) If intKategoriID <> "" AND IsNumeric(intKategoriID) Then kdGenel.Open "SELECT * FROM tblKategoriler WHERE katID = "& CInt(intKategoriID) &"", adoCon, 1, 3 If kdGenel.Eof Then Response.Write "" Else kdMenu.Open "SELECT * FROM tblKategoriler WHERE UstKatID = "& CInt(intKategoriID) &"", adoCon, 1, 3 If kdMenu.Eof Then %>

Alt Kategoriye Dönüştür

Kategori Bilgileri

Üst Kategori : <% kdYardimci.Open "SELECT * FROM tblKategoriler WHERE ustKatID = 0 AND katID <> "& CInt(intKategoriID) &" ORDER BY sira ASC, kategori ASC",adoCon, 1, 3 If Not kdYardimci.EOF Then Do While Not kdYardimci.Eof Response.Write ""& kdYardimci("kategori") &"" kdYardimci.Movenext Loop End If kdYardimci.Close %>

 

<% Else Response.Write "" End If End If kdGenel.Close Else Response.Write "" End If End If End If '// Üst Kategori Ekleme Formunun Kaydedilmesi Elseif strIslem = "ust_kategori_yap" Then If blnAdmin <> True Then Response.Write "" Else intKategoriID = Temizle(Trim(Request.Querystring("katID"))) If intKategoriID <> "" AND IsNumeric(intKategoriID) Then kdGenel.Open "SELECT * FROM tblKategoriler WHERE katID = "& CInt(intKategoriID) &"", adoCon, 1, 3 If kdGenel.Eof Then Response.Write "" Else kdGenel("UstKatID") = 0 kdGenel.Update Response.Write("") End If kdGenel.Close Else Response.Write "" End If End If '// Kategori Sıralamasını Güncelleştirme Elseif strIslem = "sira_guncelle" Then If blnAdmin <> True Then Response.Write "" Else kdGenel.open "SELECT * FROM tblKategoriler WHERE UstKatID = 0 ORDER BY sira ASC", adoCon, 1, 3 If Not kdGenel.EOF Then Do While Not kdGenel.Eof kdGenel("sira") = CInt(Temizle(Request.Form("sira"& kdGenel("katID")))) kdGenel.Update kdGenel.Movenext Loop End If kdGenel.Close kdGenel.open "SELECT * FROM tblKategoriler WHERE UstKatID <> 0 ORDER BY sira ASC", adoCon, 1, 3 If Not kdGenel.EOF Then Do While Not kdGenel.Eof kdGenel("sira") = CInt(Temizle(Request.Form("altsira"& kdGenel("katID")))) kdGenel.Update kdGenel.Movenext Loop End If kdGenel.Close Response.Write("") End If '// Kategori Listeleme Bölümü Else If blnAdmin <> True Then Response.Write "" Else Response.Write "

Kategoriler

" kdGenel.open "SELECT * FROM tblKategoriler WHERE UstKatID = 0 ORDER BY sira ASC, kategori ASC", adoCon, 1, 3 If kdGenel.EOF Then Response.Write "Henüz Kategori Oluşturulmadı." Else intKategoriSayisi = kdGenel.RecordCount Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Do While NOT kdGenel.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" kdYardimci.Open "SELECT * FROM tblKategoriler WHERE UstKatID = "& kdGenel("katID") &" ORDER BY sira ASC, kategori ASC", adoCon, 1, 3 intAltKategoriSayisi = kdYardimci.RecordCount If Not kdYardimci.Eof Then Do While NOT kdYardimci.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" kdYardimci.Movenext Loop End If kdYardimci.Close kdGenel.Movenext Loop Response.Write "

Kategori Adı	Sıra	Sil	Dönüştür
"& kdGenel("kategori") &"	" For i = 1 To intKategoriSayisi Response.Write ""& i &"" Next Response.Write "	Sil	Alt Kategori Yap
- "& kdYardimci("kategori") &"	" For i = 1 To intAltKategoriSayisi Response.Write ""& i &"" Next Response.Write "	Sil	Üst Kategori Yap

" Response.Write "

" End If kdGenel.Close End If End If %>