este es parte del codigo principal donde pondrian el control de cookies para que vote una sola vez ?
<%
ID = Request("ID")
If ID = "" Then
ID = 30
End If
Title = "Encuestas"
%>
<html>
<head><link rel="STYLESHEET" type="text/css" href="style.css">
<title>Encuesta del mes</title>
<script language="JavaScript">
function gatherForm(form){
if(form.Mode[0].checked){
form.submit();
}else{
form.action="collect.asp";
form.submit();
}
}
</script>
<meta http-equiv="" content="text/html; charset=iso-8859-1"><meta http-equiv="" content="text/html; charset=iso-8859-1"></head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="left">
<table width="800" height="64" border="0">
<tr>
<td><img src="file:///D|/portalfamel2/imagenes/lolo2.jpg" width="800" height="80"></td>
</tr>
</table>
<table width="803" height="40" border="0">
<tr>
<td><div align="center">
<p> </p>
<p><font color="#804040" size="+2"><u>Encuesta del mes</u></font></p>
</div></td>
</tr>
</table>
<br>
<br>
<br>
</div>
<div align="center">
<table width="83%" cellspacing="0" cellpadding="2"><tr><td align="left" width="25%" valign="top" class="bold">
<form action="default.asp">
<table width="100" border="1" bordercolor=#ccccff><tr><td>
<table border=0 cellspacing=0 cellpadding=5 bgcolor=#4f4f4f>
<tr>
<td colspan=3 bgcolor=#000000 align=center class="bold2">Seleccione
una encuesta</td>
</tr>
<tr>
<td colspan=3 bgcolor=#000000 align=center> <select name="ID" onChange="gatherForm(this.form)" class="input">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Application("ASPPollDSN")
sql = "select * from Poll"
Set rs = conn.Execute(sql)
Do While Not rs.EOF
%>
<option value="<%=rs("ID")%>"><%=rs("PollName")%>
<%
rs.MoveNext
Loop
%>
</select> </tr>
<tr>
<td colspan=3 align=right bgcolor=#FFFFFF class="bold"> Votar en encuesta:
<input type="radio" name="Mode" value="Vote" CHECKED>
<br>
Ver resultados:
<input type="radio" name="Mode" value="View"> </td>
</tr>
<tr> <td colspan=3 align=right bgcolor=#000000 align=center>
<input type="button" value=" Ir " onClick="gatherForm(this.form)" class="inline"></td></tr>
</table></td></tr>
</table>
</form>
<br>
<div align="left" class="bold"> </div></td><td align="center" width="75%" valign="top">
<table width="100" border=1 cellspacing=2 cellpadding=0 bordercolor=#ccccff><tr><td>
<form method="post" action="collect.asp">
<input type="hidden" name="id" value="<%=id%>">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Application("ASPPollDSN")
sql = "select * from Poll where ID = " & ID
Set rs = conn.Execute(sql)
If rs.EOF = False Then
%>
<table border=0 cellspacing=0 cellpadding=10 bgcolor=#4f4f4f>
<tr>
<!-- <td colspan=3 bgcolor=#2f2f4f align=center><font face="verdana" color=#f5fcdc>
Poll: <%=rs("PollName")%>
</td> -->
</tr>
<tr>
<td colspan=3 bgcolor=#000000 align=left class="bold2"><%=rs("PollQuestion")%> </tr>
<%
For I=1 To 5
choice = rs("Choice" & I)
If choice <> "" Then
%>
<tr>
<!-- <td width=50 colspan=1 bgcolor=#4f4f4f> </td> -->
<td colspan=2 bgcolor=#FFFFFF class="bold" align="left"> <%=choice%></td>
<td bgcolor=#FFFFFF align="left"><input type="radio" name="choice" value="<%=I%>">
</td>
</tr>
<%
End If
Next
%></tr>
<% If rs("GetName") = "1" Then %>
<tr>
<td colspan=1 align=right bgcolor=#FFFFFF class="bold"> Your Name:</td>
<td colspan=2 align=right bgcolor=#FFFFFF> <input type="text" name="Name">
</td>
</tr>
<% End If %>
<tr> <td colspan=3 align=right bgcolor=#000000 align=center>
<input type="submit" value="Enviar voto" class="inline"></td></tr>
</table>
<%
Else
Response.Write "Elija una opcion de encuesta !"
End If
%></td></tr>
</form>
</table></td>
</tr>
</table>
</div>
</body>
</html>