<% set soru = Server.CreateObject("ADODB.RecordSet") SQL = "select * from sorular where id like '"&aktif_id&"'" soru.open SQL,anketbag,1,3 soru_id=soru("id") set secenek = Server.CreateObject("ADODB.RecordSet") SQL = "select * from secenekler where hangi_soru like '"&soru_id&"'" secenek.open SQL,anketbag,1,3 set secenek_diger = Server.CreateObject("ADODB.RecordSet") SQL = "select * from secenekler where hangi_soru like '"&soru_id&"diger'" secenek_diger.open SQL,anketbag,1,3 set say = Server.CreateObject("ADODB.RecordSet") SQL = "select Sum(hit) from secenekler where hangi_soru like '"&soru_id&"'" say.open SQL,anketbag,1,3 toplam = say(0) Set yorumlar = Server.CreateObject("Adodb.Recordset") SQL = "SELECT * FROM yorumlar where hangi_soru="&soru_id&"" yorumlar.Open SQL,anketbag,1, 3 set ip_kontrol = Server.CreateObject("Adodb.Recordset") SQL = "SELECT * FROM iplog" ip_kontrol.Open SQL,anketbag,1, 3 do while not ip_kontrol.eof if DateDiff("N", ip_kontrol("tarih"), now()) > 60 then Set ip_sil = Server.CreateObject("Adodb.Recordset") SQL = "delete from iplog where id = "&ip_kontrol("id")&"" ip_sil.Open SQL,anketbag,1, 3 end if ip_kontrol.movenext loop Set ip_kontrol2 = Server.CreateObject("Adodb.Recordset") SQL = "SELECT * FROM iplog where ip = '"&request.servervariables("REMOTE_HOST")&"' and anket_no = "&aktif_id&"" ip_kontrol2.Open SQL,anketbag,1, 3 if Request.Cookies("aspmaster_anket")("ayar(""anket_adi"")") = ""&aktif_id&" nolu anket" then cookie="var" end if %> <%=ayar("anket_adi")%> " marginheight="0" marginwidth="0"> <% if cookie="var" then call sonuc else if ip_kontrol2.eof or ip_kontrol2.bof then call anket else call sonuc end if end if %> <%sub anket%>
<%=ayar("anket_adi")%>
<%=soru("soru")%>
<%do while not secenek.eof%>
"> <%=secenek("secenek")%>
<%secenek.movenext loop%> <%if soru("diger")="var" then%>
<%end if%>
<%if ayar("yorum")="var" then call yorum end if%>
<%if ayar("sonuc")="var" then Response.Write("Sonuçlar") end if%>
<%if ayar("eskiler")="var" then response.Write("Eski Anketler") end if%>
<%end sub sub sonuc%>
<%=ayar("anket_adi")%>
<%=soru("soru")%>
<%Do While not secenek.Eof If toplam > 0 Then yuzde = Int((secenek("hit") / toplam) * 100) Else yuzde = 0 End If%>
<%=secenek("secenek")%> (<%=secenek("hit")%>)
  1.gif" height="9"> 2.gif" width="<%=yuzde%>" height="9"> 3.gif" height="9">
<%secenek.movenext loop%> <%if secenek_diger.eof or secenek_diger.bof then else response.Write("Sizden:
") do while not secenek_diger.eof%>
 <%=secenek_diger("secenek")%>
<%secenek_diger.movenext loop end if%>
<%if ayar("yorum")="var" then call yorum end if%>
<%if ayar("eskiler")="var" then Response.Write("Eski Anketler") end if%>
<%end sub sub yorum response.Write("Yorumlar("&yorumlar.recordcount&")") end sub%>