Sikkre Afstemning!
Her har jeg kildekoden til et afstemningsscript, som min ven har lavet til mig, desværre har han ikke helt fattet det der med cookies, så er her ikke en som kan omskrive dette script, så man kun kan stemme en gang! ved brug af cookies___________________________________________________
<%
Dim alternativ1, alternativ2, alternativ3, fraga, skicka
\'© Ludvig Widman 2001 www.adomain.8k.com
\'Det här skriptet kommer ifrån Adomain och får inte spridas utan tillståd från Adomain
\'
\'
\'Glöm inte att sätta alla tre värden till noll i databasen före varje ny omröstning.
\'
\'Inställningar
Alternativ1 = \"Ja\" \'Det första alternativet
Alternativ2 = \"Nej\" \'Det andra alternativet
Alternativ3 = \"Vet ej\" \'Det tredje alternativet (valfritt)
Fraga = \"En fråga du vill ställa\" \'Frågan du vill ställa
Skicka = \"Rösta\" \'Vad som ska stå på skicka knappen
If Request.QueryString(\"handelse\") = \"rosta\" Then
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"driver={Microsoft Access Driver (*.mdb)};dbq=\" & Server.MapPath(\"rosta.mdb\")
Set RecSet = Server.CreateObject(\"ADODB.Recordset\")
RecSet.Open \"SELECT * FROM Stallning\" , Connect, adOpenStatic, adLockOptimistic
Select Case Request.Form(\"alternativ\")
Case \"1\"
RecSet(\"Alternativ1\") = RecSet(\"Alternativ1\") + 1
Case \"2\"
RecSet(\"Alternativ2\") = RecSet(\"Alternativ2\") + 1
Case \"3\"
RecSet(\"Alternativ3\") = RecSet(\"Alternativ3\") + 1
End Select
RecSet.Update
total = RecSet(\"Alternativ1\") + RecSet(\"Alternativ2\") + RecSet(\"Alternativ3\")
With Response
.Write \"<table border=0 width=170><tr><td colspan=2><font size=2><b>\" &fraga & \"</b></font></td></tr>\"
.Write \"<tr><td width=\'70\'><font size=2>\" & Alternativ1 & \" </font></td width=\'100\'><td><font size=2><img src=\'poll1.bmp\'><img src=\'poll2.bmp\' width=\'\" & RecSet(\"Alternativ1\") / total * 100 -2 & \"\' height=\'9\'><img src=\'poll3.bmp\' width=\'\" & 100 - (RecSet(\"Alternativ1\") / total * 100 -2) & \"\' height=\'9\'><img src=\'poll1.bmp\'></font></td></tr>\"
.Write \"<tr><td width=\'70\'><font size=2>\" & Alternativ2 & \" </font></td width=\'100\'><td><font size=2><img src=\'poll1.bmp\'><img src=\'poll2.bmp\' width=\'\" & RecSet(\"Alternativ2\") / total * 100 -2 & \"\' height=\'9\'><img src=\'poll3.bmp\' width=\'\" & 100 - (RecSet(\"Alternativ2\") / total * 100 -2) & \"\' height=\'9\'><img src=\'poll1.bmp\'></font></td></tr>\"
if alternativ3 <> \"\" then .Write \"<tr><td width=\'70\'><font size=2>\" & Alternativ3 & \" </font></td width=\'100\'><td><font size=2><img src=\'poll1.bmp\'><img src=\'poll2.bmp\' width=\'\" & RecSet(\"Alternativ3\") / total * 100 -2 & \"\' height=\'9\'><img src=\'poll3.bmp\' width=\'\" & 100 - (RecSet(\"Alternativ3\") / total * 100 -2) & \"\' height=\'9\'><img src=\'poll1.bmp\'></font></td></tr>\"
End With
RecSet.Close
Connect.Close
Else
With Response
.Write \"<form action=\'rosta.asp?handelse=rosta\' method=\'post\'>\"
.Write \"<b>\" &fraga & \"</b><br>\"
.Write \"<input type=\'radio\' name=\'alternativ\' value=1>\" & Alternativ1 & \"<br>\"
.Write \"<input type=\'radio\' name=\'alternativ\' value=2>\" & Alternativ2 & \"<br>\"
If Alternativ3 <> \"\" then
.Write \"<input type=\'radio\' name=\'alternativ\' value=3>\" & Alternativ3 & \"<br><br>\"
Else
.Write \"<br>\"
End if
.Write \"<input type=\'submit\' value=\'\" & Skicka & \"\'><br>\"
.Write \"<a href=\'rosta.asp?handelse=rosta\'>Resultat</a>\"
.Write \"</form>\"
End With
End if
%>
