| <%
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"))
%> |