ATA Anket v.1.3 <% bgcolor=Request.Querystring("bgcolor") if bgcolor<>"" then Session("bgcolor")=bgcolor else bgcolor=Session("bgcolor") end if if bgcolor<>"" then response.write "" else response.write "" end if %> <% anketin_genisligi=250 Set ata_anket=Server.CreateObject("Adodb.Connection") strDbPathAndName=Request.ServerVariables("APPL_PHYSICAL_PATH") strDbPathAndName = Replace(strDbPathAndName, "\www\", "") strDbPathAndName=strDbPathAndName & "\veri\wsx_ata_anket_db.mdb" strVeritabaniYolu=strDbPathAndName ata_anket.Open="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & strVeritabaniYolu & ";" & "Persist Security Info=False" Set rs=Server.CreateObject("Adodb.Recordset") Set rs1=Server.CreateObject("Adodb.Recordset") tabloust = "" tabloust = tabloust & "" tabloust = tabloust & "" tabloust = tabloust & "" tabloust = tabloust & "" tabloust = tabloust & "" tabloust = tabloust & "" tabloust = tabloust & "" tabloust = tabloust & "" tabloust = tabloust & "" tabloalt = tabloalt & "" tabloalt = tabloalt & "" tabloalt = tabloalt & "" tabloalt = tabloalt & "" tabloalt = tabloalt & "" tabloalt = tabloalt & "" tabloalt = tabloalt & "" tabloalt = tabloalt & "" tabloalt = tabloalt & "" tabloalt = tabloalt & "" tabloalt = tabloalt & "" tabloalt = tabloalt & "" tabloalt = tabloalt & "
" tabloalt = "
" rs.Open "SELECT * from anket_soru where durum = 'aktif' " , ata_anket, 1, 3 if not rs.eof then if rs("bitis_tarihi")=date then rs("durum")="de-aktif" rs.update end if rs1.Open "SELECT sum(oy) as toplamoy FROM anket_cevap where soru_id like '"&rs("id")&"' " , ata_anket, 1, 3 toplamoy=rs1("toplamoy") rs1.close rs1.Open "SELECT * from anket_cevap where soru_id like '"&rs("id")&"' " , ata_anket, 1, 3 cid=rs("id") response.write tabloust%>
"> "> "> <% sayi=0 do while not rs1.eof sayi=sayi+1%> <%if rs("sec")="tekil" then %> <%else%> <%end if%> <%if toplamoy=0 then%> <%else%> <%end if%> <%rs1.movenext loop rs.close rs1.close %> <%rs.Open "SELECT * from anket_soru where durum <> 'aktif' " , ata_anket, 1, 3 if rs.eof then rs.close else%> <%end if%>
   Anket             (<%=rs("tarih")%>)
<%=rs("anket_sorusu")%>
"> <%=rs1("secenek")%>"> <%=rs1("secenek")%>%0 0%<%=round((rs1("oy")/toplamoy)*100)%> <%=rs1("oy")%>
<%=tabloalt%> <%else response.write tabloust%>
   ATA Anket
Şu anda anket sistemimizde Aktif anket bulunmamaktadır.
<%response.write tabloalt end if%>