<% Dim Query Dim Rs1 rem Query = "SELECT * FROM pesquisa_perguntas WHERE now() BETWEEN dt_inicio AND dt_final" Query = "SELECT * FROM pesquisa_perguntas WHERE now() BETWEEN dt_inicio AND dt_final AND dt_inicio = (SELECT MAX(dt_inicio) FROM pesquisa_perguntas)" Set Rs1 = Server.CreateObject( "ADODB.Recordset" ) Rs1.Open Query, ConnectString, adOpenForwardOnly rem Rs1.movefirst Response.Write(Rs1("pergunta")) %>
<% if len(Rs1("resposta3")) > 0 then %> <% end if if len(Rs1("resposta4")) > 0 then %> <% end if %>
" /> <% =Rs1("resposta1") %>
<% =Rs1("resposta2") %>
<% =Rs1("resposta3") %>
<% =Rs1("resposta4") %>