-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathencuesta.asp
94 lines (85 loc) · 2.28 KB
/
encuesta.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
<%@ Language=VBScript %>
<%
dim db
dim rs
set db = server.CreateObject("SQLComandos.Comandos")
sql = "select id,descripcion,numero_res from pregunta where publicar = 1 order by fecha desc"
set rs = db.SQLSelect ("DBBAECYS",sql)
if not rs.eof then
cod_pregunta = rs("id")
pregunta = rs("descripcion")
respuestas = rs("numero_res")
set rs = nothing
%>
<HTML>
<HEAD>
<link href="./styles/interior.css" rel="stylesheet" type="text/css">
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<script language="javascript">
function Grafica(CodPregunta)
{
ancho = 320
altura = 450
if (screen) {
leftPos = (screen.width / 2) - (ancho/2)
}
catWindow = window.open('grafico.asp?Pregunta='+CodPregunta,'Encuesta','toolbar=no,menubar=no,location=no,scrollbars=no,width='+ancho+'+,height='+altura+',left='+leftPos+'+,top=20')
return false
}
function Ingresar(){
forma.submit()
}
</script>
<BODY>
<div align="center">
<font size="2" face="Arial, Helvetica, sans-serif"><strong><%=pregunta%></strong></font>
<br>
<form name="forma" method ="post" action="ingresodatos_encuesta.asp" >
<table border="0" cellpadding="2" cellspacing="2">
<tr>
<th>
<input name="pregunta" type="hidden" value="<%=cod_pregunta%>">
</th>
</tr>
<%
sql = "select id,descripcion from opciones_respuesta where pregunta = "& cod_pregunta
set rs = db.SQLSelect("DBBAECYS",sql)
if not rs.eof then
%>
<% for cont= 1 to cint(respuestas)
%>
<tr>
<td align="left" class="celdaBgBlue05">
<input type="radio" value="<%=rs("id")%>" checked name="respuesta"></td>
<td align="left" class="celdaBgBlue10" > <%=rs("descripcion")%> </td>
</tr>
<%
rs.MoveNext
next
end if
set rs = nothing
%>
</table>
<br>
<br>
<table align="center" border="0" cellpadding="2" cellspacing="2">
<tr>
<td align="left">
<input name="aceptar" type=Button class="celdaBgBlue05" onclick="javascript:Ingresar()" value="Aceptar">
</td>
<td>
<input type=Button class="celdaBgBlue05" value="Resultado" name="Resultado" onclick="javascript:Grafica('<%=cod_pregunta%>')">
</td>
<td>
<input type=Button class="celdaBgBlue05" value="Cerrar" name="aceptar" onclick="javascript:window.close()">
</td>
</tr>
</table>
</form>
</div>
</BODY>
</HTML>
<%
end if
%>