Problemas con Cookies

[URSU]

Hola

Tengo un problemita!! que es el siguiente...
Se trata de un sistema para votar, el tema es qeu el ususario debe vota runa sola vez y para ello pienso que debo usar una Cookie, lo que pasa que no se bien como hago para qeu cuando el usuario vuelva a votar qeu el sistema reconozca que ya voto.

Si alguien me puede ayudar desde ya muchas gracias.

[Aston]

Hola, cuando vote lanzas la cookie:
Response.Cookies("YaVoto") = 1

Y le das fecha de caducidad futura:
Response.Cookies("YaVoto").Expires = "01/01/03"

Luego, para averiguar si ya ha votado sólo tienes que preguntar:
If Request.Cookies("YaVoto") = 1 Then
'Ya ha votado y en consecuencia no se lo permites
End If

espero te sirva, recibe un saludo. ;)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[URSU]

Este es el asp donde se ejecuta el SP que actualiza la tabla de votaciones, de la forma que lo estoy haciendo siempre me escribe la leyebda usted ya voto y ademas actuliza la tabla de votaciones cosa qeu no tendria que hacer si ya voto
&lt;title&gt;nada&lt;/title&gt;
&lt;body bgcolor=&quot;#9FA81F&quot;&gt;
&lt;%@language=&quot;vbscript&quot;%&gt;
&lt;!--#include file=&quot;Connection/LogeoLLama.asp&quot; --&gt;

&lt;%

Response.Cookies(&quot;key&quot;) = &quot;&quot;

id_video = Request.form(&quot;id_video&quot;)

call VOTA()


%&gt;

&lt;%


Sub VOTA ()



Set Command1 = Server.CreateObject(&quot;ADODB.Command&quot;)





Command1.CommandText = &quot;inserta_voto&quot;
Command1.Parameters.Append Command1.CreateParameter(&quot;@RETURN_VALUE&quot; , 3, 4)
Command1.Parameters.Append Command1.CreateParameter(&quot;@id_video&quot;, 3, 1,4, id_video)
Command1.CommandType = 4
Command1.CommandTimeout = 0
Command1.Prepared = true
Set voto = Command1.Execute

Response.Cookies(&quot;key&quot;) = &quot;si&quot;
Response.Cookies(&quot;key&quot;).Expires = Date

if voto.fields.item(&quot;error&quot;).value = 1 then
MenError = &quot;Error en consulta de datos...&quot;
else
if Request.Cookies(&quot;key&quot;) = &quot;si&quot; then
response.write (&quot;usted ya voto&quot;)
else
response.redirect(&quot;comerciales.asp&quot;)
end if
end if
Set voto = Nothing
Set Command1 = Nothing


End Sub