Enquete, votar 1 vez por dia

[Carlos Moreira 0]

OlaEu tenho um sistema de enquete, rodando td certinho ja, mas ha um porema pessoa só esta conseguindo votar uma vez, o certo seria ela poder votar q vez por dia.mas ela vota apenas uma vez e no dia seguinte ele não ta liberando pra pesso votarnovamenteAcessem e vejam, a enquete fica no meio da 1ª paginaeu sou o web master desse sitewww.primeiraigrejabatista.com.br

[LONTR@ 0]

tipow... cria uma tabela temporária e coloca uma rotina no SQL para limpar todo dia a 12:00grava o IP do cara... ai busca no banco antes de computar o votoe no SQL você manda ele zerar todo dia meia noite....e a tabela temporária vai ficar limpa... ela só serve para o cara naum votar um monte de vez....é gambiarra, mas funciona... rsrrs

[Carlos Moreira 0]

Meu codigo é esse

 

<%'Dimensões variáveisDim adoCon 			Dim rsWeeklyPoll 		Dim strAccessDB 		Dim strSQL 		Dim strPollQuestion 	Dim intPollIDNum		Dim intSelectionLoopCounter	Dim intVotedIDNo		Dim blnCheckForPoll		Dim blnAlreadyVoted	On Error Resume NextblnCheckForPoll = TrueblnAlreadyVoted = FalseintPollIDNum = 1'Inicio da conexao com o banco de dadosstrAccessDB = "db/enquetedb"'Criando a conexãoSet adoCon = Server.CreateObject("ADODB.Connection")Set rsWeeklyPoll = Server.CreateObject("ADODB.Recordset") 'Abrindo a conexãoadoCon="DRIVER={Microsoft Access Driver (*.mdb)};"adoCon = adoCon & "DBQ=" & server.mappath(strAccessDB)'Inicio das variaveis strSQL strSQL = "SELECT * FROM enquetes ORDER By id_no DESC;"rsWeeklyPoll.Open strSQL, adoCon, 3If rsWeeklyPoll.EOF Then	blnCheckForPoll = False	Else 		strPollQuestion = rsWeeklyPoll("Question")			intPollIDNum = CInt(rsWeeklyPoll("id_no"))		For intReadInVotesLoopCounter = 1 To 7	intToatalPollVotes = intToatalPollVotes + CInt(rsWeeklyPoll("Votes_" & intReadInVotesLoopCounter & ""))	Next		intVotedIDNo = CInt(Request.Cookies("Poll")("PollID"))		If intVotedIDNo = intPollIDNum Then blnAlreadyVoted = True	End If%><script  language="JavaScript"><!-- br_enquete//Função pop-upfunction openWin(theURL,winName,features) {	  window.open(theURL,winName,features);}// --></script>  <table width="100%" border="0" cellspacing="0" cellpadding="2" align="center" bgcolor="#D9D7B7">  <form method="post" action="resultadosenquete.asp" target="poll" onSubmit="window.open('', 'poll', 'toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=460,height=400')"><tr> 	  <td colspan="2" bgcolor="#6D7F59" class="textop"> <font color="#FFFFFF">		<% = strPollQuestion %>		</font></td>	</tr>	<tr> 	  <td> 		<%If blnCheckForPoll = True Then	For intSelectionLoopCounter = 1 To 7	If NOT rsWeeklyPoll("Selection_" & intSelectionLoopCounter) = "" Then					If blnAlreadyVoted = False Then										Response.Write vb script:openWin('resultadosenquete.asp?ID=<% = intPollIDNum %>','poll','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=0,width=425,height=350')"><font face="Arial, Helvetica, sans-serif" size="1">Ver 		resultados</font></a></td>	</tr></form>  </table>

[Carlos Moreira 0]

Fala Lucas!!!o problema é esse como o faço não? rsrsrsrs ah e eu fiz la o que você me mandou na mensagemAbraço