<% @ Language=VBScript %> <% Option Explicit %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Haberler Sayfası Kodları ' Son Düzenleme: 10 Kasım 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 %> Anketler - <%=strSiteAdi%>

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

En Çok Okunan Haberler

<% Call BaslikListele("
    ", "
", "
  • ", "
    • ", 10, "", "okunma") %>
    		<% Dim intOySayisi Dim intGenislik Response.Write "

    Anketler

    " kdGenel.open "SELECT * FROM tblAnketSorular ORDER BY tarih DESC", adoCon, 1, 3 If kdGenel.EOF Then Response.Write "Henüz anket oluşturulmadı." Else Do While NOT kdGenel.EOF kdYardimci.Open "SELECT SUM(Oy) AS Toplam FROM tblAnketSecenekler WHERE Anket_ID = "& kdGenel("Anket_ID") &"", adoCon, 1, 3 intOySayisi = kdYardimci("Toplam") kdYardimci.Close kdYardimci.Open "SELECT * FROM tblAnketSecenekler WHERE Anket_ID = "& kdGenel("Anket_ID") &" ORDER BY Oy DESC", adoCon, 1, 3 If Not kdYardimci.Eof Then Response.Write "

    "& kdGenel("Soru") &"

    " Do While Not kdYardimci.Eof If kdYardimci("Oy") = 0 Then intGenislik = 0 Else intGenislik = kdYardimci("Oy")*100/intOySayisi End If %>

    %<%=Round(intGenislik,0)%>
    %<%=Round(intGenislik,0)%> <%=kdYardimci("Secenek")%>

    <% kdYardimci.Movenext Loop Response.Write "

    " End If kdYardimci.Close kdGenel.Movenext Loop End If kdGenel.Close %>

    <%=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 %>