<%
'-------------------------------------------------------------------------------------------------------
'Traigo el texto de la pregunta desde la base de datos y almaceno en la variable vtextodelapregunta
set conncons = server.CreateObject("adodb.connection")
Set vquerycons = server.CreateObject("ADODB.recordset")
vsqlcons = "select * from pregunta where prg_fecha = (select max(prg_fecha) from pregunta where ltrim(rtrim(prg_naturaleza)) = 'Encuesta4') and ltrim(rtrim(prg_naturaleza)) = 'Encuesta4'"
conncons.Open "Provider=sqloledb;Data Source=explored;Initial Catalog=Explored;User Id=sad;Password=; "
'response.Write vsqlcons
vquerycons.Open vsqlcons, conncons, 3, 1, 1
vtextodelapregunta = vquerycons.Fields("prg_pregunta")
'-------------------------------------------------------------------------------------------------------
%>
