<%
SQL = "select * from nh_subsecciones, NH_USUARIOS_SUBSECCIONES,NH_USUARIOS_PERFILES where NH_USUARIOS_SUBSECCIONES.IDSUBSECCION=nh_subsecciones.IDSUBSECCION and NH_USUARIOS_SUBSECCIONES.IDPERFIL=NH_USUARIOS_PERFILES.IDPERFIL and NH_USUARIOS_SUBSECCIONES.IDPERFIL="&id&" order by NH_USUARIOS_SUBSECCIONES.idsubseccion"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Application("dbConn_ConnectionString"),1,3

SQLsec = "SELECT * FROM NH_SUBSECCIONES"
Set rssec = Server.CreateObject("ADODB.Recordset")
rssec.Open SQLsec, Application("dbConn_ConnectionString"),1,3

if not rssec.eof then
while not rssec.eof
%>
<tr><td bgcolor="#f3f3f3">
&nbsp;&nbsp;&nbsp;
<input type="Checkbox" name="menu" 
value="<%=rssec("IDSUBSECCION")%>" 
<%if trim(rssec("IDSUBSECCION"))=trim(rs("IDSUBSECCION")) then%>Checked<%end if%>>  
<font class="textonormal">
<%=rssec("N_SUBSECCION")%></font><br></td></tr>
  
<%
rssec.movenext
wend
end if
%>