<% @ Language=VBScript %> <% Option Explicit %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Haberler Sayfası Kodları ' Son Düzenleme: 30 Ekim 2007 (v0.5) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '// Sayfanın önbellekten alnması önleniyor Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" '// Değişkenler Tanımlanıyor Dim SQL Dim intToplam Dim intLooper %> Siteniz İçin - <%=strSiteAdi%>

<%=strSiteAdi%>
  • Anasayfa
    • <% Call KategoriListele("", "", "
  • ", "
    • ", 0, False, "", "", "", "") %>

En Çok Okunan Haberler

<% Call BaslikListele("
    ", "
", "
  • ", "
    • ", 10, "", "okunma") %>

    Siteniz İçin

    Sıralama:
    Kategori: <% kdMenu.Open "SELECT * FROM tblKategoriler WHERE goster = True AND ustKatID = 0 ORDER BY sira ASC, kategori ASC",adoCon, 1, 3 If Not kdMenu.EOF Then Response.Write("" End If kdMenu.Close %>
    Sayı:
    Artalan Rengi: Renk Seç
    Yazı Rengi: Renk Seç
    Yazı Boyutu:
    Yazı Kalınlığı:
    Çizgi Rengi: Renk Seç
     

    Sitenize Eklemeniz Gereken Kod:

    <%=strCopyright%>
    RSS Kaynağı | Yazar Girişi

    <% ' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır Response.Write "

    Altyapı: MyDesign Haber Sistemi

    " ' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır %>