<%@ LANGUAGE = "VBScript" %>
<!-- #include file="db.inc" -->
<!-- #include file="functions.inc" -->
<!-- #include file="error_u.asp" -->
<%on error resume next
set rsencuesta=server.CreateObject("adodb.recordset")
sql="SELECT ...."
rsencuesta.ActiveConnection = db
rsencuesta.Open SQL
idencuesta=rsencuesta(0)
encuesta= rsencuesta(1)
curso= rsencuesta(2)
tipo_encuesta= rsencuesta(3)
idcurso=rsencuesta(4)
idtipo_encuesta=rsencuesta(5)
session("curso")=idcurso
session("tipo_encuesta")=idtipo_encuesta
Call ErrorScript()
Call ErrorConection(strconn)
rsencuesta.close
set rsencuesta=nothing
%>
<html>
<head>
<title></title>
</head>
<body>
<form action="Untitled-1.asp" method="post" name="form1" class="adminform">
<div align="center">
<p></p>
<table width="682" border="0" class="tablemenu">
<tr>
<td colspan="4"><div align="center">SELECCIONE LA ACCION A REALIZAR </div></td>
</tr>
<tr>
<td height="21" class="arancio"> </td>
<td colspan="3"> </td>
</tr>
<tr>
<td height="21" colspan="4" class="arancio">Encuesta<strong> <%=encuesta%></strong>, del curso:<strong> <%=curso%></strong>, del nivel:<strong> <%=tipo_encuesta%></strong>. </td>
</tr>
<tr>
<td height="21" class="arancio"> </td>
<td colspan="3"> </td>
</tr>
<tr>
<%contador=0
on error resume next
set rsparte=server.CreateObject("adodb.recordset")
sql="SELECT ...."
rsparte.ActiveConnection = db
rsparte.Open SQL
Call ErrorScript()
Call ErrorConection(strconn)%>
<%while not rsparte.eof%>
<%idparte= rsparte(0)%>
<%dim Vparte()%>
<td height="21" colspan="4" class="arancio Estilo3"><div align="left">
<u>
<%Response.write rsparte(1)%>
</u> </div></td>
</tr>
<tr>
<td height="21" class="arancio"></td>
<td colspan="3"> </td>
</tr>
<tr>
<td height="21" class="arancio"></td>
<%on error resume next
set rspregunta=server.CreateObject("adodb.recordset")
sql="SELECT ..."
rspregunta.ActiveConnection = db
rspregunta.Open SQL
Call ErrorScript()
Call ErrorConection(strconn)%>
<%while not rspregunta.eof%>
<td colspan="3"><div align="left">
<p><ul><li>
<span class="Estilo5">
<%idpregunta=rspregunta(0)%>
<%response.write rspregunta(1)%>
</span></il>
</ul>
</p>
</div></td>
</tr>
<tr>
<td height="21" class="arancio"> </td>
<td width="89"> </td>
<%on error resume next
set rsrespuesta=server.CreateObject("adodb.recordset")
sql="SELECT ..."
rsrespuesta.ActiveConnection = db
rsrespuesta.Open SQL
Call ErrorScript()
Call ErrorConection(strconn)%>
<%while not rsrespuesta.eof%>
<%tipo=rsrespuesta(2)%>
<%if tipo=1 then%>
<td><ul>
<li class="Estilo1">
<div align="left" class="Estilo6"><%response.write rsrespuesta(1)%>
<input name="textfield" type="text" size="30" maxlength="40" value="<%=respuesta(0)%>">
</div>
</li>
</ul></td>
<%end if%>
<%if tipo=2 then%>
<td><ul>
<li class="Estilo1">
<div align="left" class="Estilo6">
<%var(100)=rsrspuesta(0)%>
<input name="<%=contador%>" type="radio" value="<%=rsrespuesta(0)%>">
<%response.write rsrespuesta(1)%>
</div>
</li>
</ul></td>
<%end if%>
<%rsrespuesta.movenext%>
<%wend%>
<%rsrespuesta.close
set rsrespuesta=nothing%>
</tr><%contador=contador+1%>
<%rspregunta.movenext%>
<%wend%>
<%rspregunta.close
set rspregunta=nothing%>
<tr>
<td height="21" class="arancio"> </td>
<td colspan="3"> </td>
</tr>
<%rsparte.movenext%>
<%wend%>
<%rsparte.close
set rsparte=nothing%>
<tr>
<td width="40" height="21" class="arancio"> </td>
<td> </td>
<td width="117"><input type="submit" name="Submit" value="Enviar Resultados"></td>
<td width="306"><input type="submit" name="Submit2" value="Limpiar Encuesta"></td>
</tr>
</table>
</div>
</form>
</body>
</html>