<% OPTION EXPLICIT Response.Buffer = True %> <% 'Some before doings... 'Lets get the current poll... Dim sTitle Dim sQuestion Dim vAnswers(21) Dim vCount(21) 'Get active one... PollMentor_GetPollInfo -1, sTitle, sQuestion, vAnswers, vCount %> Pimpinela - Encuesta


¿Cual Pensás que es tu CD Preferido?
 


<% Dim nCount Dim nDef Dim nTotal nTotal = 0 For nCount=1 To 21 If vAnswers(nCount) <> "" Then nTotal = nTotal + vCount(nCount) %> checked<%End If%> name="R1"><%=vAnswers(nCount)%>
<% nDef = True End If Next %>

 

 


 Ver Resultados

 

 



<%=FAQ_GetAd( 3 )%>

 

 <%=FAQ_GetAd( 2 )%>