<% 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")&"" %> <% anket_id = Request("anket_id") If Len(anket_id) = 0 OR Not IsNumeric(anket_id) then Set anket = AnketDB.Execute("SELECT * FROM anketler order by anket_tarih desc") Else Set anket = AnketDB.Execute("SELECT * FROM anketler WHERE anket_id=" & anket_id) End if If anket.Eof Then Response.write "
Veritabanında herhangi bir anket bulunamadı!?
" Else anket_id = anket("anket_id") anket_soru = anket("anket_soru") anket_tarih = anket("anket_tarih") anket_durum = anket("aktif") anket.close Set anket = Nothing If Request.Cookies("VBSTurkAnket")(cstr(anket_id)) = "oylandi" OR anket_durum = False Then OyDurum = False Else SecID = Request.Form("sec_id") If Len(SecID) > 0 AND IsNumeric(SecID) Then '<% AnketDB.Execute("UPDATE secenekler SET sec_sayac = sec_sayac + 1 WHERE sec_id=" & SecID) Response.Cookies("VBSTurkAnket")(cstr(anket_id)) = "oylandi" Response.Cookies("VBSTurkAnket").Expires = Now() + 1 OyDurum = False Else OyDurum = True End If End If 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") %>
<%= anket_soru %>
<% If secenekler.Eof Then Response.Write "
Veritabanında kayıtlı seçenek bulunamadı!?
" End If Do While Not secenekler.EOF If Total > 0 Then '<% yuzde = Int((secenekler("sec_sayac") / Total) * 100) Else yuzde = 0 End If %><% secenekler.MoveNext : Loop secenekler.close : set secenekler = Nothing %>
<% If OyDurum = True AND anket_durum = True Then%> "> <% end if %> <%= secenekler("secenek") %>  % <%=yuzde%>

<% If OyDurum = True AND anket_durum = True then%>   <% End If %>

Bu ankete <%=Total%> kişi katıldı.
<% End If %> <% ' #################### THE OTHERS ################ %> <% Set EskiAnketler = AnketDB.Execute("SELECT * FROM anketler order by anket_tarih desc") %> <% If EskiAnketler("anket_id") = anket_id Then EskiAnketler.MoveNext If Not EskiAnketler.Eof Then %>

Eski/Diğer Anketler
<% Do While Not EskiAnketler.Eof If EskiAnketler("anket_id") = anket_id Then EskiAnketler.MoveNext If EskiAnketler.Eof Then Exit Do %> "><%=EskiAnketler("anket_soru")%> (<%=EskiAnketler("anket_tarih")%>)
<% EskiAnketler.MoveNext : Loop EskiAnketler.Close : Set EskiAnketler = Nothing %>
<% End If %>