<%
stipo = "fp"
set Enqconn = Server.CreateObject("ADODB.Connection")
Set Enqrs = Server.CreateObject("ADODB.Recordset")
Enqconn.open EnqueteConn
set Enqrs.activeConnection = Enqconn
Enqrs.CursorType = adOpenStatic
'----- as sql ABAIXO foi montada para eleger todas as enquetes que tenha data final maior que hoje
'----- no entanto, caso ocorra de encontrar mais de uma, utiliza o criterio de ASC, ou seja,
'----- pega a que tem a data inicial mais antiga e mostra, assim não se corre o risco de interromper
'- --- enquete em andamento
sSQL = "SELECT TOP 1 * FROM perguntas WHERE (perguntatipo = '" & stipo & "' and ativo = true) and PerguntaDataFinal >= date() order by perguntaDataInicial asc" 'EnqueteID
'response.write sSql
Enqrs.Open sSQL
'response.write enqrs.recordcount
if Enqrs.eof or Enqrs.bof then
Enqrs.close
sSQL = "select TOP 1 * FROM perguntas where (perguntatipo = '" & stipo & "' and ativo = true) order by PerguntaDataFinal desc"
EnqRS.open sSQL
EnqueteID = Enqrs("perguntaID")
sPerguntaNome = Enqrs("PerguntaNome")
sPerguntaQuestao = Enqrs("PerguntaQuestao")
sMultiplosVotos = EnqRs("multiplos_votos")
enqrs.close
'response.write "Erro : pergunta não Encontrada Opção 2" & EnqueteID
'response.end
else
EnqueteID = Enqrs("perguntaID")
sPerguntaNome = Enqrs("PerguntaNome")
sPerguntaQuestao = Enqrs("PerguntaQuestao")
sMultiplosVotos = EnqRs("multiplos_votos")
sVerResultado = "nao"
enqrs.close
end if
%>
Enquetes
