<% set baglanti=server.createobject("adodb.connection") baglanti.Open "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("anket.mdb") kuladi=request.form("kuladi") sifre=request.form("sifre") anketid=request.form("anketid") if kuladi<>"" and sifre<>"" and anketid<>"" then sql_kontrol="select * from yonetici where kuladi='"&kuladi&"' and sifre='"&sifre&"'" set kontrol=server.createobject("adodb.recordset") kontrol.open sql_kontrol, baglanti if kontrol.eof and kontrol.bof then response.redirect "yonetici.asp" else 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)%>
(<%=c1%> oy)
Kısmen
%<%=int(c2oran)%>
(<%=c2%> oy)
Hayır
%<%=int(c3oran)%>
(<%=c3%> oy)
Fikrim Yok
%<%=int(c4oran)%>
(<%=c4%> oy)
Toplam oy sayısı:
<%=toplamcevap%>
<<
Geri
|
Anket Sayfası
<% end if else sql_anket="select * from anket where anket_sira=1" set anket=server.createobject("adodb.recordset") anket.open sql_anket, baglanti %>
Kullanıcı Adı
:
Şifre
:
<<
Geri
>
<% end if %>