EasyCFM.COM ColdFusion Forums / ASP to CFML / CONVERTING ASP POLL WITH IP CAPTURE TO CF POLL

   Reply to Discussion | New Discussion next >> 
Posted By Discussion Topic: CONVERTING ASP POLL WITH IP CAPTURE TO CF POLL

book mark this topic Printer-friendly Version  send this discussion to a friend  new posts last

salfre
01-14-2010 @ 7:43 AM
Reply
Edit
Profile
Send P.M.
My Gravatar!
Powered by Gravatar
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.

specific
01-19-2010 @ 10:40 AM
Reply
Edit
Profile
Send P.M.
My Gravatar!
Powered by Gravatar
Senior Member
Posts: 897
Joined: Apr 2006

search google u will find many commercial and free polling station like stuff. commercial may have some extra feature..

Check this url:

http://www.google.co.in/search?hl=en&q=coldfusion+polling+manager&btnG=Search&meta=&aq=f&oq=

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The Door to Coldfusion Community
Will Remain Open Till World Ends

Want a Web Portal Contact Me

randhawaz81@gmail.com

<cf_visitwebsite>

http://portal.randhawaworld.com/

</cf_visitwebsite>


Website Designed and Developed by Pablo Varando.