Tæller antal stemmer
Hejza......Her har jeg et Afstemnings script i ASP. Den består af følgende kode og så en MS ADB.
<%
Response.Buffer = True
font = "<font size='2' face='Verdana'>"
faktor = 1
barcolor = "#206090"
' *******************************************************
' * DSN Less, vote.mdb i samme katalog som vote.asp *
' *******************************************************
Set Rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("vote.mdb")
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
' *******************************************************
' * Opdaterer T_Voteresult og laver der efter en *
' * redirect til resultatet *
' *******************************************************
If (Request.ServerVariables("Content_length") > 0) then
Sql = "Insert into T_Voteresult (Voteid, Vote, Ip) values('" & Request("Voteid") & "','" & Request("R1") & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
Rs.Execute(Sql)
Response.redirect Request.ServerVariables("SCRIPT_NAME") & "?id=" & Request("Voteid")
end if
end if
' *******************************************************
' * Viser resultat *
' *******************************************************
If "" <> Request.QueryString("id") then
If "" = Request.QueryString("mode") then
Sql = "Select * from T_Vote where Id = " & Request.QueryString("Id")
Set Record = Rs.Execute(Sql)
Dim Valg(5)
valg(1) = Record("valg1")
valg(2) = Record("valg2")
valg(3) = Record("valg3")
valg(4) = Record("valg4")
valg(5) = Record("valg5")
response.write"<CENTER><B>"
response.write font & Record("Beskrivelse") & "<br><br>"
response.write"</CENTER></B>"
Sql = "Select count(*) as Found from T_VoteResult where VoteId = " & Request.QueryString("Id")
Set Record = Rs.Execute(Sql)
Ialt = Record("found")
response.write "<SCRIPT TYPE='text/javascript' SRC='http://www.cyber-kox.subnet.dk/Skript/Hklikmenu.js'></SCRIPT>"
response.write "<SCRIPT TYPE='text/javascript' SRC='http://www.cyber-kox.subnet.dk/Skript/banner.js'></SCRIPT>"
response.write "<LINK REL='stylesheet' HREF='http://www.cyber-kox.subnet.dk/CSS/Cyber-Tema.css' TYPE='text/css'>"
Response.Write "<STYLE TYPE='text/css'>HR.hr{height:5;}</STYLE>"
Response.Write "<div align='left'><table border='0'><tr>"
For i = 1 to 5
If valg(i) <> "" then
Sql = "Select count(*) as Found from T_VoteResult where VoteId = " & Request.QueryString("Id") & " and vote = '" & Valg(i) & "'"
Set Record = Rs.Execute(Sql)
Procent = 100/Ialt * Record("Found")
response.write "<td HEIGHT='35' width='150'>" & font & Valg(i) & "</td><td HEIGHT='35' width='50'>" & font & Round(procent) & "%</td><td HEIGHT='35'><hr class='hr' width='" & Procent * faktor & "' size='10' align='left' color='" & barcolor & "'></td></tr>"
end if
Next
Response.Write "</table></div>"
end if
' *******************************************************
' * Hvis mode = vote, opbygges "stemmeseddel" *
' *******************************************************
If "vote" = Request.QueryString("mode") then
Sql = "Select * from T_Vote where Id = " & Request.QueryString("Id")
Set Record = Rs.Execute(Sql)
response.write"<CENTER><B>"
response.write font & Record("Beskrivelse") & "<br><br>"
response.write"</CENTER></B>"
response.write "<html><head>"
response.write "<SCRIPT TYPE='text/javascript' SRC='http://www.cyber-kox.subnet.dk/Skript/Hklikmenu.js'></SCRIPT>"
response.write "<SCRIPT TYPE='text/javascript' SRC='http://www.cyber-kox.subnet.dk/Skript/banner.js'></SCRIPT>"
response.write "<LINK REL='stylesheet' HREF='http://www.cyber-kox.subnet.dk/CSS/Cyber-Tema.css' TYPE='text/css'>"
response.write "<title>Stem</title></head><body>"
response.write"<Table><TR><TD>"
response.write "<form method='POST' action='" & Request.ServerVariables("SCRIPT_NAME") & "'>"
response.write "<input type='hidden' name='Voteid' value=" & Request.QueryString("Id") & ">"
If Record("Valg1") <> "" then
response.write "<input type='radio' class='felt' value='" & Record("Valg1") & "' name='R1'>"" " & Record("Valg1") & "<br>"
end if
If Record("Valg2") <> "" then
response.write "<input type='radio' class='felt' value='" & Record("Valg2") & "' name='R1'>"" " & Record("Valg2") & "<br>"
end if
If Record("Valg3") <> "" then
response.write "<input type='radio' class='felt' value='" & Record("Valg3") & "' name='R1'>"" " & Record("Valg3") & "<br>"
end if
If Record("Valg4") <> "" then
response.write "<input type='radio' class='felt' value='" & Record("Valg4") & "' name='R1'>"" " & Record("Valg4") & "<br>"
end if
If Record("Valg5") <> "" then
response.write "<input type='radio' class='felt' value='" & Record("Valg5") & "' name='R1'>"" " & Record("Valg5") & "<br>"
end if
response.write "<p> <input type='submit' class='button' value='Stem' name='B1'> <input type='reset' class='button' value='Slet' name='B2'></p>"
response.write"</TD></TR></Table>"
response.write "</form></body></html>"
end if
end if
%>
Mit spørgesmål er nu, hvordan jge får det til, at stå hvor mange der har stemt.
