Öncelikle slmlar...
Kardeş senin tek yapacağın şey inc_solmenu.asp 'yi bu şeklide değiştirmek.
--------------------------------------------------------------------------
<!--Kategoriler Başlangıcı-->
<div id="kategoriler">
<ul><li class="kat"><a href="default.asp"<% If intArananKategori = "" Then Response.Write " class=""aktif"""%>>Anasayfa</a></li><%
kdMenu.Open "SELECT * FROM tblKategoriler WHERE ustKatID = 0 ORDER BY sira ASC, kategori ASC",adoCon, 1, 3
Do While Not kdMenu.Eof
If intArananKategori <> "" Then
kdYardimci.Open "SELECT * FROM tblKategoriler WHERE KatID = "& intArananKategori &" ORDER By Sira ASC", adoCon, 1, 3
If Not kdYardimci.Eof Then
If kdYardimci("UstKatID") = kdMenu("KatID") Then blnMenuAc = True
End If
kdYardimci.Close
End If
Response.Write "<li><a href=""default.asp?kategori="& kdMenu("KatID") &""""
If intArananKategori = CStr(kdMenu("KatID")) Then Response.Write " class=""aktif"""
Response.Write ">"& kdMenu("kategori") &"</a></li>"
If blnMenuAc OR intArananKategori = CStr(kdMenu("KatID")) Then
kdYardimci.Open "SELECT * FROM tblKategoriler WHERE ustKatID = "& kdMenu("katID") &" ORDER By Sira ASC", adoCon, 1, 3
If Not kdYardimci.Eof Then
Do While Not kdYardimci.Eof
Response.Write "<li><a href=""default.asp?kategori="& kdYardimci("KatID") &""""
If intArananKategori = CStr(kdYardimci("KatID")) Then Response.Write " class=""alt-aktif""" Else Response.Write " class=""alt-kat""" End If
Response.Write ">- "& kdYardimci("kategori") &"</a></li>"
kdYardimci.Movenext
Loop
End If
kdYardimci.Close
End If
blnMenuAc = False
kdMenu.Movenext
Loop
kdMenu.Close %><li class="kat"><a href="haber_yolla.asp" class="ust-kat">Haber Gönder</a></li><li class="kat"><a href="yonetim.asp" class="ust-kat">Yönetim Paneli</a></li></ul>
</div>
<!--Kategoriler Bitişi-->
<%
Dim intToplamHaberSayisi
Dim intToplamYorumSayisi
Dim intToplamOkunmaSayisi
Dim intToplamKategoriSayisi
Dim intToplamUyeSayisi
'// Toplam Haber Sayısı
kdMenu.Open "SELECT durum, onay FROM tblHaberler WHERE durum = True AND onay = True", adoCon, 1, 3
intToplamHaberSayisi = kdMenu.Recordcount
kdMenu.Close
'// Haberlerin Okunma Sayısı
kdMenu.Open "SELECT SUM(okunma) AS ToplamOkunma FROM tblHaberler WHERE durum = True AND onay = True", adoCon, 1, 3
intToplamOkunmaSayisi = kdMenu("ToplamOkunma")
kdMenu.Close
'// Toplam Yorum Sayısı
SQL = "SELECT * FROM tblYorumlar"
If blnAdminOnay Then SQL = SQL & " WHERE durum = True"
kdMenu.Open SQL, adoCon, 1, 3
intToplamYorumSayisi = kdMenu.Recordcount
kdMenu.Close
'// Kategori Sayısı
kdMenu.Open "SELECT katID FROM tblKategoriler", adoCon, 1, 3
intToplamKategoriSayisi = kdMenu.Recordcount
kdMenu.Close
'// üye Sayısı
kdMenu.Open "SELECT uyeID FROM tblUyeler", adoCon, 1, 3
intToplamUyeSayisi = kdMenu.Recordcount
kdMenu.Close
%>
<!--İstatistikler Başlangıcı-->
<div class="kutu">
<h3>İSTATİSTİKLER</h3>
<b><%=intToplamKategoriSayisi%></b> kategori altında, toplam <b><%=intToplamHaberSayisi%></b> haber bulunmaktadır.
<p>Bu haberler toplam <b><%=intToplamOkunmaSayisi%></b> defa okunmuş ve <b><%=intToplamYorumSayisi%></b> yorum yazılmıştır.</p>
Toplam <B><%=intToplamUyeSayisi%></B> Editör var.
</div>
<!--İstatistikler Bitişi-->
<!--Buraya Kendi İçeriğinizi Ekleyebilirsiniz
<div class="kutu">
<h3>BAŞLIK</h3>
İçerik
</div>
-->
---------------------------------------------------------
Anlamadığın yer olursa sorabilirsin...
Ayrıca bana sitemden de ulaşabilirsin.
www.sertacgunaydin.com The Pasha2007-09-08 02:37:07