<%
set baglanti=server.createobject("adodb.connection")
baglanti.Open "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("anket.mdb")
yanit=request.form("anket")
anketid=request.form("anketsira")
if yanit<>"" then
sql_anket="insert into sonuclar(anket_id, yanit) values("&anketid&","&yanit&")"
set anket=server.createobject("adodb.recordset")
anket.open sql_anket, baglanti
sonuc="1"
sql_sonuclar="select count(yanit) from sonuclar where anket_id="&anketid&" and yanit="&sonuc&""
set sonuclar=server.createobject("adodb.recordset")
sonuclar.open sql_sonuclar, baglanti
c1=sonuclar(0)
sonuc="2"
sql_sonuclar="select count(yanit) from sonuclar where anket_id="&anketid&" and yanit="&sonuc&""
set sonuclar=server.createobject("adodb.recordset")
sonuclar.open sql_sonuclar, baglanti
c2=sonuclar(0)
sonuc="3"
sql_sonuclar="select count(yanit) from sonuclar where anket_id="&anketid&" and yanit="&sonuc&""
set sonuclar=server.createobject("adodb.recordset")
sonuclar.open sql_sonuclar, baglanti
c3=sonuclar(0)
sonuc="4"
sql_sonuclar="select count(yanit) from sonuclar where anket_id="&anketid&" and yanit="&sonuc&""
set sonuclar=server.createobject("adodb.recordset")
sonuclar.open sql_sonuclar, baglanti
c4=sonuclar(0)
toplamcevap=c1+c2+c3+c4
c1oran=(c1*100)/toplamcevap
c2oran=(c2*100)/toplamcevap
c3oran=(c3*100)/toplamcevap
c4oran=(c4*100)/toplamcevap
%>
Anket Sonuçları
Evet
%<%=int(c1oran)%>
Kısmen
%<%=int(c2oran)%>
Hayır
%<%=int(c3oran)%>
Fikrim Yok
%<%=int(c4oran)%>
Toplam oy sayısı: <%=toplamcevap%>
Anketimize katıldığınız için dersdestek ekibi adına teşekkür ederiz.
<%
else
sql_anket="select * from anket where anket_sira=1"
set anket=server.createobject("adodb.recordset")
anket.open sql_anket, baglanti
%>
<%
end if
%>
%<%=int(c1oran)%>