ANKET SONUÇLARI

<% Set rs =Server.CreateObject("ADODB.Recordset") IP=Request.ServerVariables("LOCAL_ADDR") if NOT Request.Cookies("Kullandi")=IP then if Request.Form("strId")<>"" then Response.Cookies("Kullandi").Expires = Now()+270 Response.Cookies("Kullandi")=IP strSQL="select * from anket where id="&Request.Form("strId") rs.Open strSQL,Connect,0,3 strUpdate=rs.Fields("oylar")+1 if rs.Supports (adUpdate) then rs.Fields("oylar")=strUpdate rs.Update end if rs.close Set rs = Nothing else if not Request.Form("Abschicken")="" then strInfoo="Lütfen Bir Seçenek Seçiniz" end if end if else strInfo="
Siz Oy Kullanmışsınız...

" end if %>

<% Set rs =Server.CreateObject("ADODB.Recordset") strSQL="SELECT * from anket_b" rs.Open strSQL,Connect,0,3 %> <% rs.close Set rs = Nothing %>   » Anket Soru : <%=rs("baslik")%>  <%=sonuc%> <%=strInfo%><%=strInfoo%> <% Set rs =Server.CreateObject("ADODB.Recordset") strSQL="SELECT * from anket" rs.Open strSQL,Connect,0,3 vote = 0 Do While Not rs.EOF vote = vote + rs("oylar") rs.MoveNext Loop rs.close Set rs = Nothing Set rs =Server.CreateObject("ADODB.Recordset") strSQL="SELECT * from anket" rs.Open strSQL,Connect,0,3 if rs.eof then response.write "Kayıtlı Anket Bulunamadı" end if do until rs.EOF strZahl=rs.Fields("oylar") If rs("oylar") = "0" Then percent = "0" Else percent = CInt((rs("oylar") /vote) * 100) End If %> <% strGif="" rs.MoveNext loop rs.close Set rs = Nothing %> <%=rs.Fields("secenek")%> :      (<%=strZahl%>-<%=percent%> %) <% Set rs =Server.CreateObject("ADODB.Recordset") strSQL="SELECT Sum(oylar) AS [Summe] FROM anket" rs.Open strSQL,Connect,0,3 %> <%=rs.Fields("Summe")%> - Oy <% rs.close Set rs = Nothing %>

Anasayfa