%@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 %>
<%
While ((Repeat4__numRows <> 0) AND (NOT subApartados.EOF))
%>
<%
Repeat4__index=Repeat4__index+1
Repeat4__numRows=Repeat4__numRows-1
subApartados.MoveNext()
Wend
%>
|
<% End If ' end Not subApartados.EOF Or NOT subApartados.BOF %> | <%=contenido%> |
" alt="logotipo" border="0" /> |