<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim RSconf Dim RSconf_numRows Set RSconf = Server.CreateObject("ADODB.Recordset") RSconf.ActiveConnection = MM_web_STRING RSconf.Source = "SELECT tituloWeb, descripcionWeb, keysWeb, notaLegal, contacto, linkAccederZonaCabecero, ZonaRedTitulo, ZonaRedTexto, ZonaRedPestana, ZonaRedEntrar, ZonaRedRecordarEnlace, ZonaRedTextoOrienta, ZonaRedUsuario, ZonaRedClave, iconoAutodiag, iconoLogoCabecero, tituloMenu, tituloPortadaLista, piePortal FROM conf" RSconf.CursorType = 0 RSconf.CursorLocation = 2 RSconf.LockType = 1 RSconf.Open() RSconf_numRows = 0 %> <% Dim RSsecciones Dim RSsecciones_numRows Set RSsecciones = Server.CreateObject("ADODB.Recordset") RSsecciones.ActiveConnection = MM_web_STRING RSsecciones.Source = "SELECT idCont, titulo FROM secciones WHERE activo<>0 AND idApartado=0 ORDER BY orden ASC" RSsecciones.CursorType = 0 RSsecciones.CursorLocation = 2 RSsecciones.LockType = 1 RSsecciones.Open() RSsecciones_numRows = 0 %> <% Dim RSmenu Dim RSmenu_numRows Set RSmenu = Server.CreateObject("ADODB.Recordset") RSmenu.ActiveConnection = MM_web_STRING RSmenu.Source = "SELECT titulo, idGrupoHerramientas FROM HerrGrupoHerramientas WHERE privado=0 AND activo<>0 ORDER BY orden ASC" RSmenu.CursorType = 0 RSmenu.CursorLocation = 2 RSmenu.LockType = 1 RSmenu.Open() RSmenu_numRows = 0 %> <% Dim RSlistaHerramientas Dim RSlistaHerramientas_numRows Set RSlistaHerramientas = Server.CreateObject("ADODB.Recordset") RSlistaHerramientas.ActiveConnection = MM_web_STRING RSlistaHerramientas.Source = "SELECT idCont, idApartado, titulo, resumen, archivo FROM HerrSubGrupos WHERE archivo<>'' ORDER BY contador DESC, fechaModifica ASC" RSlistaHerramientas.CursorType = 0 RSlistaHerramientas.CursorLocation = 2 RSlistaHerramientas.LockType = 1 RSlistaHerramientas.Open() RSlistaHerramientas_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RSsecciones_numRows = RSsecciones_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 RSmenu_numRows = RSmenu_numRows + Repeat2__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = 8 Repeat4__index = 0 RSlistaHerramientas_numRows = RSlistaHerramientas_numRows + Repeat4__numRows %> <%=(RSconf.Fields.Item("tituloWeb").Value)%> " /> " /> " /> " />

<%=(RSconf.Fields.Item("tituloPortadaLista").Value)%>

<% piePortal=(RSconf.Fields.Item("piePortal").Value) prefijoServidorPie="src='"&prefijoServidor&"/" piePortal=replace(piePortal, """", "'") piePortal=replace(piePortal, "src='/", prefijoServidorPie) piePortal=replace(piePortal, "'", """") %><%=piePortal%>

<% While ((Repeat4__numRows <> 0) AND (NOT RSlistaHerramientas.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 RSlistaHerramientas.MoveNext() Wend %>

" class="captura">

&h=<%=(RSlistaHerramientas.Fields.Item("idApartado").Value)%>"><%=(RSlistaHerramientas.Fields.Item("titulo").Value)%>

&h=<%=(RSlistaHerramientas.Fields.Item("idApartado").Value)%>"><%=(RSlistaHerramientas.Fields.Item("resumen").Value)%>

<% While ((Repeat1__numRows <> 0) AND (NOT RSsecciones.EOF)) %> " title="<%=(RSsecciones.Fields.Item("titulo").Value)%>"><%=(RSsecciones.Fields.Item("titulo").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RSsecciones.MoveNext() Wend %>

" alt="autodiagnóstico" border="0" />

<%=(RSconf.Fields.Item("tituloMenu").Value)%>

<% While ((Repeat2__numRows <> 0) AND (NOT RSmenu.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 RSmenu.MoveNext() Wend %>

<%=(RSmenu.Fields.Item("titulo").Value)%>

<% Dim RSsubGruposHerramientas Dim RSsubGruposHerramientas_numRows Set RSsubGruposHerramientas = Server.CreateObject("ADODB.Recordset") RSsubGruposHerramientas.ActiveConnection = MM_web_STRING RSsubGruposHerramientas.Source = "SELECT idCont, titulo FROM HerrSubGrupos WHERE idApartado = "&(RSmenu.Fields.Item("idGrupoHerramientas").Value)&" AND activo=true ORDER BY orden ASC" RSsubGruposHerramientas.CursorType = 0 RSsubGruposHerramientas.CursorLocation = 2 RSsubGruposHerramientas.LockType = 1 RSsubGruposHerramientas.Open() RSsubGruposHerramientas_numRows = 0 %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 RSsubGruposHerramientas_numRows = RSsubGruposHerramientas_numRows + Repeat3__numRows %> <% While ((Repeat3__numRows <> 0) AND (NOT RSsubGruposHerramientas.EOF)) %>

"><%=(RSsubGruposHerramientas.Fields.Item("titulo").Value)%>

<% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 RSsubGruposHerramientas.MoveNext() Wend %> <% RSsubGruposHerramientas.Close() Set RSsubGruposHerramientas = Nothing %>

"><%=(RSconf.Fields.Item("notaLegal").Value)%> | "><%=(RSconf.Fields.Item("contacto").Value)%> | " onclick="ver('redProfesionalAcceso');"><%=(RSconf.Fields.Item("linkAccederZonaCabecero").Value)%>

" alt="logotipo" border="0" />

<%=(RSconf.Fields.Item("ZonaRedTitulo").Value)%>
<%=(RSconf.Fields.Item("ZonaRedTexto").Value)%>

" alt="<%=(RSconf.Fields.Item("linkAccederZonaCabecero").Value)%>" />

<% RSconf.Close() Set RSconf = Nothing %> <% RSsecciones.Close() Set RSsecciones = Nothing %> <% RSmenu.Close() Set RSmenu = Nothing %> <% RSlistaHerramientas.Close() Set RSlistaHerramientas = Nothing %>