db.asp diye kaydedin...
Kod Alanı:



db bağlantımızı yapıyoruz...

<%
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db.mdb")
Set Rs=Server.CreateObject("Adodb.Recordset")
%>






anket.asp diye kaydedin...


Kod Alanı:



<!-- #include file="db.asp" -->

<%
Sorgu = "select * from anket "
Rs.Open Sorgu bag 1 3
%>



<%
if Request.Cookies("magnet")("anket")="oylandi" then ' cookie mizi alıyorz eğer cookiemizi önceden atmışsak
response.write "Bu Anketi Daha Önce Oylamışsınız..." ' bu yazı çıkıyor
end if
%>
<%
if Request.Cookies("magnet")("anket") = "" then ' cookie mizi alıyorz eğer cookiemiz boş veya hiç yoksa anket çıkacak
%>
<FORM action="anket_oyla.asp" name="anket" method="post" target="anket" onsubmit="javascript:void window.open('anket_oyla.asp''''width=450height= 280scrollbars=0')">

<table border=0 bordecolor=efefef width="201">
<tr><td width="195"><font face="Verdana" size="1"><b><%=rs("soru")%></b><font size="1" face="Verdana"><br></td></tr>
<% if rs("alan1")="" then ' eğer alan1 yani 1. anketimiz boşsa
response.write "" ' boş çıkartıyoruz ki adam boş yazdığında boş anket çıkmasın
END İF
%>
<% if rs("alan1")<>"" then ' eğer boştan büyük veya küçükse yani bp değilse anketimizi yazdırıyoruz
' AYNI İŞLEMLER ALTTAKİLER İÇİNDE GEÇERLİ
%></font>
<tr><td width="195"><font face="Verdana" size="1"><input type="radio" name="Anket" value="<%=rs("alan1")%>"><%=rs("alan1")%></td></tr>
<% end if %>

<% if rs("alan2")="" then
response.write ""
end if
%>
<% if rs("alan2")<>"" then %> </font>
<tr><td width="195"><font face="Verdana" size="1"><input type="radio" name="Anket" value="<%=rs("alan2")%>"><%=rs("alan2")%></td></tr>
<%end if%>

<% if rs("alan3")="" then
response.write ""
end if
%>
<% if rs("alan3")<>"" then %> </font>
<tr><td width="195"><font face="Verdana" size="1"><input type="radio" name="Anket" value="<%=rs("alan3")%>"><%=rs("alan3")%></td></tr>
<%end if%>

<% if rs("alan4")="" then
response.write ""
end if
%>
<% if rs("alan4")<>"" then %> </font>
<tr><td width="195"><font face="Verdana" size="1"><input type="radio" name="Anket" value="<%=rs("alan4")%>"><%=rs("alan4")%></td></tr>
<%end if%>

<% if rs("alan5")="" then
response.write ""
end if
%>
<% if rs("alan5")<>"" then %> </font>

<tr><td width="195"><font face="Verdana" size="1"><input type="radio" name="Anket" value="<%=rs("alan5")%>"><%=rs("alan5")%></td></tr>
<%end if%> </font>

<tr><td width="195"><font size="1" face="Verdana"><input name="submit" type="submit" value=" Oy Ver " class="binyedi"></font></td></tr>
</form>
</table>
<%end if%><%
rs.close
set rs=nothing
bag.close
set bag=nothing
%>
<br><br>
<a href="anket_sonuc.asp" target="sonuc" alt="Anket Sonuçları" onclick="javascript:void window.open('anket_oyla.asp''''width=450height= 280scrollbars=0')"><font face="Tahoma" style="font-size: 8pt" color="#197c8f" >Anket Sonuçları</a>






anket_oyla.asp diye kaydedin...


Kod Alanı:


<!-- #include file="db.asp" -->


<%
id = request.querystring("id")
Sorgu = "select * from anket "
Rs.Open Sorgu bag 1 3
%>
<%
Response.Cookies("magnet")("anket") = "oylandi" ' cookie mizi atıyoruz
response.cookies("magnet").expires=Now()+30 ' pc de kalma süresünü 30 gün yapıoruz...

%>
<%
anket=Request.Form ("Anket") ' formdan gelen anketi alıyoruz
Select Case Anket ' ve seçtiriyoruz

Case rs("alan1") ' eğer işaretli alan1 ise
rs("alan1_1")=rs("alan1_1")+1 ' alan1_1 i 1 arttırıyoruz ve diğerleride aynı...
rs.update

Case rs("alan2")
rs("alan2_2")=rs("alan2_2")+1
rs.update

Case rs("alan3")
rs("alan3_3")=rs("alan3_3")+1
rs.update

Case rs("alan4")
rs("alan4_4")=rs("alan4_4")+1
rs.update

Case rs("alan5")
rs("alan5_5")=rs("alan5_5")+1
rs.update

End Select 'seçme bittikten sonra anket_sonuc.asp ye yallah
response.redirect "anket_sonuc.asp"
%>






anket_sonuc.asp diye kaydeedin...
Kod Alanı:



<!-- #include file="db.asp" -->



<%
Set sonuclar = Server.Createobject("ADODB.Recordset")
sql = "select * from anket"
sonuclar.open sql bag 1 3
TOPLAMOY = sonuclar("alan1_1") + sonuclar("alan2_2") + sonuclar("alan3_3") + sonuclar("alan4_4") + sonuclar("alan5_5") ' tüm sonuçları tolluyoruz ve yoplam oy belirliyoruz
%>
<table cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">

<tr><td colspan=2><b>
<font face="Verdana" size="1"><p>Anket Sonuçları</font></b></p>
<font face="Verdana" size="2" color="000000">Anket Sorusu :<b> <%=sonuclar("soru")%></b><br><br>Cevaplar : </font></td></tr>


<%if sonuclar("alan1_1") = "0" then 'eğer alan1_1 eşit 0 ise
sonuc1 = "0" ' ekrana 0 yazdırıoruz
else 'değilse
sonuc1 = sonuclar("alan1_1") / TOPLAMOY 'toplam oyu alan1_1 bölüyoruz
sonuc1 = sonuc1 * 100
If Len(sonuc1) > 4 Then ' aynıları altada geçerli
sonuc1 = Left(sonuc1 4) & ""

end if

end if
%><font size="1" face="Verdana"> </font>
<tr><td width=50%>
<font face="Verdana" size="2" color="blue"><%=sonuclar("alan1")%></font><font size="1" face="Verdana">
</font><font size="1" face="Verdana">: ( <%=sonuclar("alan1_1")%> Oy ) </font> </td>
<td width=50%> <font face="Verdana" size="1">%<%=sonuc1%> <img height="12" width="<%=sonuc1%>%" src=images/derece1.gif></font></td></tr>


<%if sonuclar("alan2_2") = "0" then
sonuc2 = "0"
else
sonuc2 = sonuclar("alan2_2") / TOPLAMOY
sonuc2 = sonuc2 * 100
If Len(sonuc2) > 4 Then
sonuc2 = Left(sonuc2 4) & ""

end if

end if
%> </font>
<tr><td width=50%>
<font face="Verdana" size="2" color="blue"><%=sonuclar("alan2")%></font><font size="1" face="Verdana">
</font><font size="1" face="Verdana">: ( <%=sonuclar("alan2_2")%> Oy ) </font> </td>
<td width=50%> <font face="Verdana" size="1">%<%=sonuc2%> <img height="12" width="<%=sonuc2%>%" src=images/derece2.gif></font></td></tr>

<%if not sonuclar("alan3") = "" then %>

<%if sonuclar("alan3_3") = "0" then
sonuc3 = "0 "
else
sonuc3 = sonuclar("alan3_3") / TOPLAMOY
sonuc3 = sonuc3 * 100
If Len(sonuc3) > 4 Then
sonuc3 = Left(sonuc3 4) & ""

end if

end if
%> </font>
<tr><td width=50%>
<font face="Verdana" size="2" color="blue"><%=sonuclar("alan3")%></font><font size="1" face="Verdana">
</font><font size="1" face="Verdana">: ( <%=sonuclar("alan3_3")%> Oy ) </font> </td>
<td width=50%> <font face="Verdana" size="1">%<%=sonuc3%> <img height="12" width="<%=sonuc3%>%" src=images/derece3.gif></font></td></tr>


<%end if%>


<%if not sonuclar("alan4") = "" then %>

<%if sonuclar("alan4_4") = "0" then
sonuc4 = "0 "
else
sonuc4 = sonuclar("alan4_4") / TOPLAMOY
sonuc4 = sonuc4 * 100
If Len(sonuc4) > 4 Then
sonuc4 = Left(sonuc4 4) & ""
else

end if

end if
%> </font>
<tr><td width=50%>
<font face="Verdana" size="2" color="blue"><%=sonuclar("alan4")%></font><font size="1" face="Verdana">
</font><font size="1" face="Verdana">: ( <%=sonuclar("alan4_4")%> Oy ) </font> </td>
<td width=50%> <font face="Verdana" size="1">%<%=sonuc4%> <img height="12" width="<%=sonuc4%>%" src=images/derece4.gif></font></td></tr>


<%end if%>


<%if not sonuclar("alan5") = "" then %>

<%if sonuclar("alan5_5") = "0" then
sonuc5 = "0 "
else
sonuc5 = sonuclar("alan5_5") / TOPLAMOY
sonuc5 = sonuc5 * 100
If Len(sonuc5) > 4 Then
sonuc5 = Left(sonuc5 4) & ""
else

end if

end if
%> </font>
<tr><td width=50%>
<font face="Verdana" size="2" color="blue"><%=sonuclar("alan5")%></font><font size="1" face="Verdana">
</font><font size="1" face="Verdana">: ( <%=sonuclar("alan5_5")%> Oy ) </font> </td>
<td width=50%> <font face="Verdana" size="1">%<%=sonuc5%> <img height="12" width="<%=sonuc5%>%" src=images/derece5.gif></font></td></tr>


<%end if%> </font>



<tr><td colspan=2><center><font face="Verdana" size="1">Toplam Oy : <%=TOPLAMOY%></font></center></td></tr>



<tr><td colspan=2>
<p align="center"><b><font face="Verdana" size="1" color="#008000">
<a href="JavaScriptnClick= window.close()" style="text-decoration: none">Pencereyi Kapat</a></font><font face="Verdana" size="1"> </font>
</b>
<font face="Verdana" size="1">
<br><br></font></p></td></tr>
</table>





admin bölümündeyiz...

anket_admin.asp diye kaydedin

Kod Alanı:




<!--#include file="db.asp"-->
<%
if request("update")<>"" then

soru=request("soru")
alan1=request("alan1")
alan2=request("alan2")
alan3=request("alan3")
alan4=request("alan4")
alan5=request("alan5")

alan1_1=request("alan1_1")
alan2_2=request("alan2_2")
alan3_3=request("alan3_3")
alan4_4=request("alan4_4")
alan5_5=request("alan5_5")


Rs.ActiveConnection = bag
Sorgu="SELECT * FROM anket"
rs.open Sorgubag32

rs.update "soru"soru
rs.update "alan1"alan1
rs.update "alan2"alan2
rs.update "alan3"alan3
rs.update "alan4"alan4
rs.update "alan5"alan5

rs.update "alan1_1"alan1_1
rs.update "alan2_2"alan2_2
rs.update "alan3_3"alan3_3
rs.update "alan4_4"alan4_4
rs.update "alan5_5"alan5_5


rs.close
set rs=nothing
Response.write "Güncellendi..."
else
end if
%>





<!--#include file="db.asp"-->
<%
Rs.ActiveConnection = bag
Rs.Open="Select * from anket "
%>







<form action="anket_admin.asp" method="post">
<table border="0" cellpadding="2" cellspacing="2" width="833">

<tr>
<td width="290" align=right><b>
<font face="Tahoma" style="font-size: 8pt">Anket Sorusu</font></b><font face="Tahoma" style="font-size: 8pt" color="#000000"><b>
:</b></td>
<td colspan=2 width="529">
<input type="text" name="soru" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("soru")%>" size="88" maxlength="50"> </td>
</tr>
<tr>
<td width="290" align=right><b>
<font face="Tahoma" style="font-size: 8pt">Alan1</font></b><font face="Tahoma" style="font-size: 8pt" color="#000000"><b>
:</b></td>
<td width="220">
<input type="text" name="alan1" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan1")%>" size="41" maxlength="250"> </td>
<td width="603">
<input type="text" name="alan1_1" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan1_1")%>" size="41" maxlength="50"> </td>
</tr>
<tr>
<td width="290" align=right><b>
<font face="Tahoma" style="font-size: 8pt">Alan2</font></b><font face="Tahoma" style="font-size: 8pt" color="#000000"><b>
:</b></td>
<td width="220">
<input type="text" name="alan2" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan2")%>" size="41" maxlength="250"> </td>
<td width="603">
<input type="text" name="alan2_2" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan2_2")%>" size="41" maxlength="50"> </td>
</tr>
<tr>
<td width="290" align=right><b>
<font face="Tahoma" style="font-size: 8pt">Alan3</font></b><font face="Tahoma" style="font-size: 8pt" color="#000000"><b>
:</b></td>
<td width="220">
<input type="text" name="alan3" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan3")%>" size="41" maxlength="250"> </td>
<td width="603">
<input type="text" name="alan3_3" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan3_3")%>" size="41" maxlength="50"> </td>
</tr>
<tr>
<td width="290" align=right><b>
<font face="Tahoma" style="font-size: 8pt">Alan4</font></b><font face="Tahoma" style="font-size: 8pt" color="#000000"><b>
:</b></td>
<td width="220">
<input type="text" name="alan4" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan4")%>" size="41" maxlength="250"> </td>
<td width="603">
<input type="text" name="alan4_4" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan4_4")%>" size="41" maxlength="50"> </td>
</tr>
<tr>
<td width="290" align=right><b>
<font face="Tahoma" style="font-size: 8pt">Alan5</font></b><font face="Tahoma" style="font-size: 8pt" color="#000000"><b>
:</b></td>
<td width="220">
<input type="text" name="alan5" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan5")%>" size="41" maxlength="250"> </td>
<td width="603">
<input type="text" name="alan5_5" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan5_5")%>" size="41" maxlength="50"> </td>
</tr>




<input type="hidden" name="update" value="1">






<%
rs.close
set rs=nothing
bag.close
set bag=nothing
%>
<tr><td colspan=2 width="503"><center><INPUT TYPE="submit" VALUE=" Kaydet " style="BACKGROUND-COLOR: #FFFFFF; BORDER-BOTTOM: #486078 1px inset; BORDER-LEFT: #486078 1px inset; BORDER-RIGHT: #486078 1px inset; BORDER-TOP: #486078 1px inset; COLOR: #486078; FONT-FAMILY: Verdana; FONT-SIZE: 8pt"> <INPUT type="Button" VALUE=" İptal " OnClick='history.go( -1 );return true;' style="BACKGROUND-COLOR: #FFFFFF; BORDER-BOTTOM: #486078 1px inset; BORDER-LEFT: #486078 1px inset; BORDER-RIGHT: #486078 1px inset; BORDER-TOP: #486078 1px inset; COLOR: #486078; FONT-FAMILY: Verdana; FONT-SIZE: 8pt"></td></tr>
</table>
</form>​