Foros del Web - Ver Mensaje Individual

haven · #10 (**permalink**) 11/09/2002, 11:36

Código:

 
'If a vote has been cast then record the vote
	If NOT strPollVote = &quot;&quot; Then
	
		'Call the Save Poll Votes Function (This must be called before any HTML is written as it sets a Cookie)
		blnSaveVote =  SavePollVotes(strPollVote, intPollIDNum)
	
	End If

'Else this is a previous poll to display so show get the poll id number to display
Else

	'Read in the Poll ID Number of the previous poll to display
	intPollIDNum = CInt(Request.QueryString(&quot;PollID&quot;))

End If
Email = Request (&quot;email&quot;)
%&gt;
&lt;html&gt;
&lt;head&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-7759-1&quot;&gt;
&lt;title&gt;Encuestas Copysan&lt;/title&gt;
&lt;!--#include file=&quot;style.asp&quot;--&gt;
&lt;%=Email%&gt;

&lt;/head&gt;
&lt;body bgcolor=&quot;#F0F0F0&quot; vlink=&quot;#48576C&quot; link=&quot;#48576C&quot; alink=&quot;#000000&quot;&gt;
&lt;%
      


	'Display the HTML for the weekly poll	
	
	'If the user has already voted once before in this poll vote then display the approriate message
	If blnSaveVote = False Then
		'If the user has already voted then display an appriorate message
		Response.Write vbCrLf &amp; &quot;&lt;div align=&quot;&quot;center&quot;&quot;&gt;&lt;span class=&quot;&quot;text&quot;&quot;&gt;Lamentable, Ud ya ha votado en esta encuesta.&lt;/span&gt;&lt;/div&gt;&lt;br&gt;&quot;
	End If
 %&gt;
	  &lt;%If blnSaveVote = False Then%&gt;
	  &lt;%else%&gt;
&lt;table width=&quot;97%&quot; border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot; align=&quot;center&quot;&gt;
  &lt;tr&gt; 
    &lt;td align=&quot;center&quot; valign=&quot;bottom&quot; height=&quot;29&quot;&gt;La 
      encuesta ha sido enviada correstamente, &lt;br&gt;
      muchas gracias por su participaci&amp;oacute;n&lt;/td&gt;
  &lt;/tr&gt;
&lt;/table&gt;
&lt;%end if%&gt;
&lt;/body&gt;
&lt;/html&gt;
&lt;%

'Sub function to save the users Poll Vote Choice

Private Function SavePollVotes(ByRef strPollVoteChoice, ByRef intPollIDNum)

	'Dimension variables
	Dim rsSavePollVotes 		'Database Recordset Variable
	Dim intVoteChoiceCount		'Holds the number of votes for the choice selected
	Dim intVotedIDNo		'Holds the number of any previous polls the user has voted in
	
	
	'Intialise variables
	SavePollVotes = True

sigue