Optælling af stemmer
Hejsa..Jeg har lavet et fint 'afstemnings system' det vil sige at de har mulighed for at markere det de stemmer på også bliver deres svar samt deres IP og Datoen smidt ind i en tabel (Stemmer) også bliver de sendt videre.
Problemet er så bare at spørgsmålene bliver hentet ud af en anden tabel (Afstemning) og det jo ikke så smart for så får man lidt problemer ved optællingen har jeg erfaret.
Så det jeg egentlig spørg om er hvordan man kan hive stemme resultaterne ud af de to tabeller også måske dele dem op i nogle procent linier.
Altså lidt ligesom denne afstemning www.hjemmeskoen.dk/Afstemning.JPG også samtidig skrive hvor mange stemmer også procent også ialt stemmer.
Måske lidt sådan:
Hvilket hold holder du med?
AGF (500 stemmer) <-------Procent Linie------> 50%
BIF (500 stemmer) <-------Procent Linie------> 50%
Ialt ser min kode sådan ud:
<html>
<head>
<title>Afstemning</title>
</head>
<%if request.querystring("Side") = "Afstemning" then%>
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Database.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
strSQL = "Select * from Afstemning "
set rs = Conn.execute(strSQL)
if rs.eof then
response.write "Der er ingen aktiv afstemning lige nu."
else
do until rs.eof
%>
<form method="post" action="Afstemning.asp?Side=Stem">
<%=rs("Spg")%><br>
<%=rs("Spg1")%>: <input type="radio" name="Svar" value="<%=rs("Spg1")%>"><br>
<%=rs("Spg2")%>: <input type="radio" name="Svar" value="<%=rs("Spg2")%>"><br>
<%=rs("Spg3")%>: <input type="radio" name="Svar" value="<%=rs("Spg3")%>"><br>
<input type="submit" value="Stem!" name="Stem">
<%
rs.movenext
loop
end if
end if
%>
<%if request.querystring("Side") = "Stem" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Database.mdb")
IP = Request.ServerVariables("REMOTE_ADDR")
Svar = Request.form("Svar")
Dato = Date()
sql = "INSERT INTO Stemmer (Svar,Dato,IP) VALUES('" & Svar & "','" & Dato & "','" & IP & "')"
Conn.Execute(sql)
response.redirect("Tjek.asp")
Set conn = Nothing
Set rs = Nothing
end if
%>
<%if request.querystring("Side") = "Resultater" then%>
Der her jeg skal bruge lidt hjælp..
<%end if%>
</html>
Nogle der kan hjælpe?
