<%@ Language=VBScript %>
<%
'-------------------------------------------------------------------------------------------------------
'Traigo la pregunta desde la base de datos y almaceno en la variables
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)) = 'Encuesta3') and ltrim(rtrim(prg_naturaleza)) = 'Encuesta3'"
conncons.Open "Provider=sqloledb;Data Source=explored;Initial Catalog=Explored;User Id=sad;Password=; "
vquerycons.Open vsqlcons, conncons, 3, 1, 1
vtextodelapregunta = vquerycons.Fields("prg_pregunta")
vsi = vquerycons.Fields("prg_si")
vno = vquerycons.Fields("prg_no")
'-------------------------------------------------------------------------------------------------------
%>
<%=vtextodelapregunta%>
Si: <%=vsi%> (<%=round(100*(vsi/(vsi+vno)),2)%>
%) No: <%=vno%> (<%=round(100*(vno/(vsi+vno)),2)%> %)
Total de respuestas: <%=vsi + vno%>