<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ficha=request("f") ficha=trim(ficha) ficha=int(ficha) if ficha<>"" then SQL= "SELECT titulo, resumen, keys, contenido, idApartado, contador FROM HerrSubGrupos WHERE idCont=" & ficha &" " ' contador de visitas set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open MM_web_STRING rs.CursorType=1 rs.LockType=2 rs.Open SQL, oConn rs.Update cuenta=rs.Fields(5) cuenta=cuenta+1 rs.Fields(5)=cuenta rs.Update rs.Close oConn.Close set rs=nothing set oConn=nothing ' datos de la ficha set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open MM_web_STRING rs.CursorType=1 rs.LockType=2 rs.Open SQL, oConn tituloHerramineta=rs.Fields(0) resumenHerramineta=rs.Fields(1) keysHerramineta=rs.Fields(2) contenido=rs.Fields(3) herramientaLista=rs.Fields(4) rs.Close oConn.Close set rs=nothing set oConn=nothing contenidoPrefijoServidor="src='"&prefijoServidor&"/" contenido=replace(contenido, """", "'") contenido=replace(contenido, "src='/", contenidoPrefijoServidor) contenido=replace(contenido, "'", """") end if if herramientaLista<>"" then SQL= "SELECT titulo, resumen, keys FROM HerrSubGrupos WHERE idCont= " & herramientaLista set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open MM_web_STRING rs.CursorType=1 rs.LockType=2 rs.Open SQL, oConn tituloGrupoHerraminetas=rs.Fields(0) rs.Close oConn.Close set rs=nothing set oConn=nothing end if %> <% 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, cabeceroMapaLink, 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 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 %> <%=tituloHerramineta%> : <%=(RSconf.Fields.Item("tituloWeb").Value)%> " /> " />

Inicio » <%=tituloGrupoHerraminetas%>

<%=contenido%>

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

<% 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)) %>

"<%if herramientaLista=(RSsubGruposHerramientas.Fields.Item("idCont").Value) then%> class="seleccionado"<%end if%>><%=(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 %>