<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% SQL= "SELECT tituloNotaLegal, descripcionNotaLegal, keysNotaLegal, contenidoNotaLegal FROM conf " 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 tituloContenido=rs.Fields(0) resumenContenido=rs.Fields(1) keysContenido=rs.Fields(2) contenido=rs.Fields(3) rs.Close oConn.Close set rs=nothing set oConn=nothing if contenido<>"" then contenidoPrefijoServidor="src='"&prefijoServidor&"/" contenido=replace(contenido, """", "'") contenido=replace(contenido, "src='/", contenidoPrefijoServidor) contenido=replace(contenido, "'", """") 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 subApartados__MMColParam subApartados__MMColParam = "1" If (Request.QueryString("c") <> "") Then subApartados__MMColParam = Request.QueryString("c") End If %> <% Dim subApartados Dim subApartados_numRows Set subApartados = Server.CreateObject("ADODB.Recordset") subApartados.ActiveConnection = MM_web_STRING subApartados.Source = "SELECT idCont, titulo FROM secciones WHERE activo<>0 AND idApartado = " + Replace(subApartados__MMColParam, "'", "''") + " ORDER BY orden ASC" subApartados.CursorType = 0 subApartados.CursorLocation = 2 subApartados.LockType = 1 subApartados.Open() subApartados_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 = -1 Repeat4__index = 0 subApartados_numRows = subApartados_numRows + Repeat4__numRows %> <%=tituloContenido%> : <%=(RSconf.Fields.Item("tituloWeb").Value)%> " /> " />

Inicio » <%=tituloContenido%>


<% If Not subApartados.EOF Or Not subApartados.BOF Then %> <% End If ' end Not subApartados.EOF Or NOT subApartados.BOF %>
<% While ((Repeat4__numRows <> 0) AND (NOT subApartados.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 subApartados.MoveNext() Wend %>
 <%=contenido%>
<% piePortal=(RSconf.Fields.Item("piePortal").Value) prefijoServidorPie="src='"&prefijoServidor&"/" piePortal=replace(piePortal, """", "'") piePortal=replace(piePortal, "src='/", prefijoServidorPie) piePortal=replace(piePortal, "'", """") %><%=piePortal%>
"><%=(RSconf.Fields.Item("notaLegal").Value)%> | "><%=(RSconf.Fields.Item("contacto").Value)%> | " onclick="ver('redProfesionalAcceso');"><%=(RSconf.Fields.Item("linkAccederZonaCabecero").Value)%>
Compyte
" 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 %> <% subApartados.Close() Set subApartados = Nothing %>