<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Buffer = True%>
<%
session ("logado") = ("")
%>
<%
'Some before doings...
'Lets get the current poll...
Dim sTitle
Dim sQuestion
Dim vAnswers(8)
Dim vCount(8), sID
Dim vPercent(8)
sID = Request.QueryString("id")
If sID = "" Then
sID = -1
End If
Dim sError
'Are we trying to vote?
If Request.Form("R1") <> "" Then
'First try to vote...
sError = PollMentor_TryToVote(sID,Request.Form("R1") )
End If
'Get active one...
Dim nRet
nRet = PollMentor_GetPollInfo( sID, sTitle, sQuestion, vAnswers, vCount )
%>
Neofitness Academia
