<% Session.TimeOut = 1000 Response.Buffer = True 'Response.Expires = -1 'Response.ExpiresAbsolute = Now() - 1 'Response.AddHeader "pragma","no-cache" 'Response.AddHeader "cache-control","private" 'Response.CacheControl = "no-cache" set AnketDB = server.CreateObject("ADODB.connection") AnketDB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("DBase/Redkodv3.mdb")&"" Set anket = AnketDB.Execute("SELECT * FROM anketler where aktif = True order by anket_tarih desc") If anket.Eof Then Set anket = AnketDB.Execute("SELECT * FROM anketler order by anket_tarih desc") End If If anket.Eof Then Response.Write "
Veritabanında kayıtlı anket bulunamadı!?
" : Response.End Else anket_id = anket("anket_id") anket_soru = anket("anket_soru") anket_tarih = anket("anket_tarih") anket.close Set anket = Nothing If Request.Cookies("VBSTurkAnket")(cstr(anket_id)) = "oylandi" Then OyDurum = false Else OyDurum = true End If End If %>

<%= anket_soru %>

<% Set SecenekSay = AnketDB.Execute("select Sum(sec_sayac) from secenekler where anket_id = "&anket_id&"") Total = SecenekSay(0) set secenekler = AnketDB.Execute("SELECT * FROM secenekler WHERE anket_id = " & anket_id & " order by sirasi asc") If secenekler.Eof Then Response.Write "Bu anket için kayıtlı seçenek yok" Else Do While Not secenekler.EOF If Total > 0 Then '<% yuzde = Int((secenekler("sec_sayac") / Total) * 100) Else yuzde = 0 End If %> <%If OyDurum then%>"><% Else %> <% end if %><%=secenekler("secenek") %> (<%= yuzde %>%)
<% secenekler.MoveNext : Loop secenekler.close : set secenekler = Nothing %>
<%If OyDurum Then%> <% end if %>
Toplam <%=Total%> kişi katıldı.<% End If %>