<html> <head> <title>Opinion Poll </title> </head> <body> <h1 align=center>Opinion Poll</h1><br> Exam should be conduct for each class : <form method=post name=frm> YES<input type=radio name=poll value="1"> NO<input type=radio name=poll value="2"> CAN'T SAY<input type=radio name=poll value="3"> <br> <input type=submit value=SUBMIT name=sub> <% set counter1=server.createobject("mswc.counters") %> <% dim op op=request.form("poll") if(op="1")then counter1.increment("y") elseif(op="2")then counter1.increment("n") elseif(op="3")then counter1.increment("c") end if %> <table border=1 align=center> <caption>VOTER'S TALLY</caption> <tr><td>yes<td> <% sub on_event() a=counter1.get("y") response.write a end sub %> <tr><td>no<td> <% =counter1.get("n") %> <tr><td>can't say<td> <% =counter1.get("c") %> </table> <br> <center><input type=reset value=clear>   <input type=button value=show onclick="<% on_event() %>"> </center> </form> </body> </html>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)