New Member
Posts: 3
Joined: Jan 2010
|
New year greetings Everyone , I would be grateful, if anyone Could share with me the benefit of their coldfusion web programming experience by converting this ASP POLL script into a directly equivalent ( or improved ) COLDFUSION POLL script which like the ASP version would prevent multiple voting from the same visitor or computer. Many thanks for your valued efforts in advance. <% 'Two varibles are passed into the db 'u_input is the value if the user entered a response to 'the vote/poll question....IP is the address of the user u_input=request.form("u_input") u_ip=request.servervariables("remote_addr") ' if the user did not enter anything in the poll on this visit ' then display the poll question and possible choices if u_input = "" then %> <form method="post" action="<%= request.servervariables("script_name") %>"> <p>Question Goes Here<br> <input type="radio" value="1" name="u_input">A<br> <input type="radio" value="2" name="u_input" >B<br> <input type="radio" value="3" name="u_input" checked>C<br> <input type="radio" value="4" name="u_input">D<br> <input type="submit" value="Submit" ></p> </form> <% else ' if the user did input a choice on the vote/ballot ' check to see if their ip address is already in the db accessdb="vote_db" cn="driver={Microsoft Access Driver (*.mdb)};" cn=cn & "dbq=" & server.mappath(accessdb) set rs = server.createobject("ADODB.Recordset") sql = "select ip from ballot where ip ='" & u_ip & "'" rs.Open sql, cn if rs.eof then ' if the user has not voted previously indicate it been_here_before="No" end if rs.close if been_here_before = "No" then ' Since the user has not voted previously their input ' their vote will be added to the db sql = "insert into ballot (ip, selection" & u_input &") " sql = sql & "values ('" & u_ip & "',1)" rs.Open sql, cn end if 'This will summerize and count the records in the db sql= "select distinctrow sum(selection1) as sum_selection1, " sql= sql & "sum(selection2) AS sum_selection2, sum(selection3) AS sum_selection3, " sql= sql & "sum(selection4) AS sum_selection4, count(*) AS total_votes " sql= sql & "FROM ballot;" rs.Open sql, cn total1=rs ("sum_selection1") total2=rs ("sum_selection2") total3=rs ("sum_selection3") total4=rs ("sum_selection4") count=rs ("total_votes") %> <br> A<img src="images/red.jpg" height="10" width="<%= (total1/count)*100 %>"> <%= formatnumber((total1/count)*100,1) %>%<br> B<img src="images/yellow.jpg" height="10" width="<%= (total2/count)*100 %>"> <%= formatnumber((total2/count)*100,1) %>%<br> C<img src="images/green.jpg" height="10" width="<%= (total3/count)*100 %>"> <%= formatnumber((total3/count)*100,1) %>%<br> D<img src="images/blue.jpg" height="10" width="<%= (total4/count)*100 %>"> <%= formatnumber((total4/count)*100,1) %>%<br> Total Votes: <%= formatnumber(count,0,0) %><br> <% if been_here_before <> "No" then %> This user has voted before and this one was <u>not</u> counted..... <% else %> This user has <u>not</u> voted before and this one was counted..... <% end if %> <br> The I.P. Address is <%= u_ip %> <% end if %>
Many thanks for your highly valued contributions,Salfre.
|