-
Notifications
You must be signed in to change notification settings - Fork 0
/
ingreso_conocimiento.asp
135 lines (126 loc) · 3.09 KB
/
ingreso_conocimiento.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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
<%@ Language=VBScript %>
<%
dim usuario
usuario = session("id")
dim db
dim rs
dim rs2
dim rs3
dim rs4
set db = server.CreateObject ("SQLComandos.Comandos")
sql = "select id,descripcion from categoria where padre is null"
%>
<html>
<head>
<link href="./theme/Master.css" rel="stylesheet" type="text/css">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<script language="JavaScript" type="text/JavaScript">
function regresar() {
form.action='actualiza_preferencias.asp'
form.submit()
return true
}
</script>
<body onload="javascript:{if(parent.frames[0]&&parent.frames['opciones'].Go)parent.frames['opciones'].Go()}">
<div align="center">
<h2>Selecciona las areas de su conocimiento.</h2>
<form name="form" method="post" action="ingresar_conocimiento.asp">
<%
set rs = db.SQLSelect("DBBAECYS",sql)
if not rs.eof then
%>
<table class="celdaBgBlue10" border="0" cellpadding="2" cellspacing="2">
<tbody>
<%while rs.eof <> true %>
<tr class="celdaBgBlue">
<th align="center"><b><font ><%=rs("descripcion")%></font></b></th>
</tr>
<%
sql2 = "select id,descripcion from categoria where padre = " & rs("id")
set rs2 = db.SQLSelect("DBBAECYS",sql2)
if not rs2.eof then
%>
<tr>
<td align="center">
<table border="0" cellpadding="2" cellspacing="2">
<%
while rs2.EOF <> true
%>
<tr>
<td><b><%=rs2("descripcion")%></b></td>
</tr>
<%
sql3 = "select id,descripcion,explicacion from area where categoria = " & rs2("id")
set rs3=db.SQLSelect("DBBAECYS",sql3)
if not rs3.eof then
%>
<tr>
<td align="center">
<table border="0" cellpadding="2" cellspacing="2">
<%
while rs3.EOF <> true
ingresado = 0
sql4 = "select area from conocimiento where usuario = "& usuario &" and area = "&rs3("id")
set rs4=db.SQLSelect("DBBAECYS",sql4)
if not rs4.eof then
ingresado = 1
end if
set rs4 = nothing
%>
<tr class="celdaBgBlueLeft" >
<td><input name="area" type="checkbox" value="<%=rs3("id")%>"<%if ingresado > 0 then response.write " checked " end if%>></td>
<td width="350"><%=rs3("descripcion")%></td>
<% if len(rs3("explicacion")) > 0 then
%>
<td><img src="./iconos/help.gif" alt="<%=rs3("explicacion")%>" WIDTH="16" HEIGHT="16"></td>
<%else%>
<td> </td>
<%end if%>
</tr>
<%
rs3.MoveNext
wend
%>
</table>
</td>
</tr>
<%
end if
set rs3= nothing
%>
<%
rs2.MoveNext
wend
%>
</table>
</td>
</tr>
<%
end if
set rs2= nothing
%>
<%
rs.MoveNext
wend
%>
</tbody>
</table>
<%
end if
set rs= nothing
set db = nothing
%>
<br>
<input name="usuario" type="hidden" value="<%=usuario%>">
<table>
<tr>
<td><input name="Regresar" type="button" class="celdaBgBlue05" onclick="return regresar()" value="<- Regresar"></td>
<td width="17"></td>
<td><input name="Aceptar" type="submit" class="celdaBgBlue05" value="Continuar ->"></td>
</tr>
</table>
</form>
</div>
</body>
</html>