<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ficha=request("c") ficha=trim(ficha) ficha=int(ficha) if ficha<>"" then SQL= "SELECT titulo, resumen, keys, contenido, idApartado, idCont FROM secciones WHERE idCont=" & 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 tituloContenido=rs.Fields(0) resumenContenido=rs.Fields(1) keysContenido=rs.Fields(2) contenido=rs.Fields(3) apartadoPrincipal=rs.Fields(4) apartadoActual=rs.Fields(5) if apartadoPrincipal=0 then tituloSubApartado="" tituloApartado=tituloContenido end if rs.Close oConn.Close set rs=nothing set oConn=nothing if apartadoPrincipal<>0 then tituloSubApartado=tituloContenido SQL= "SELECT titulo, idCont FROM secciones WHERE idCont=" & apartadoPrincipal &" " 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 tituloApartado=rs.Fields(0) idApartado=rs.Fields(1) rs.Close oConn.Close set rs=nothing set oConn=nothing ficha=apartadoPrincipal end if if contenido<>"" then contenidoPrefijoServidor="src="""&prefijoServidor&"/" 'contenido=replace(contenido, """", "'") contenido=replace(contenido, "src=""/", contenidoPrefijoServidor) 'contenido=replace(contenido, "'", """") caracterValidador="id=""form1"" " validador="id=""form1"" onSubmit=""MM_validateForm('nombre','','R','empresa','','R','email','','RisEmail');return document.MM_returnValue""" 'contenido=replace(contenido, caracterValidador, validador) end if 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 Dim subApartados_numRows Set subApartados = Server.CreateObject("ADODB.Recordset") subApartados.ActiveConnection = MM_web_STRING subApartados.Source = "SELECT idCont, titulo FROM secciones WHERE activo=true AND nuevo=0 AND idApartado = " + Replace(ficha, "'", "''") + " 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)%> " /> " />
<%if tituloSubApartado<>"" then%>

Inicio » <%=tituloApartado%> » <%=tituloSubApartado%>

<%else%>

Inicio » <%=tituloApartado%>

<%end if%>

<% 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)) %>
class="apartadosSeleccionado"<%else%>class="apartados"<%end if%>>"><%=(subApartados.Fields.Item("titulo").Value)%>
<% 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 %>