Inicio
 
<% Dim SQL, Resultado, SeccionConAccesoRestringido 'Antes de nada, comprobamos que el contenido NO pertenece a una sección con acceso restringido SQL = "Select SECCIONES.ACCESORESTRINGIDO From SECCIONES, RELACION_SECCION_CONTENIDO, BLOQUES Where (SECCIONES.IDBLOQUE = BLOQUES.IDBLOQUE) AND (BLOQUES.IDDOMINIO = " & dominio & ") AND (SECCIONES.IDSECCION = RELACION_SECCION_CONTENIDO.IDSECCION) AND IDCONTENIDO = " & Request.QueryString("idcontenido") Set Resultado = Server.CreateObject("ADODB.Recordset") Resultado.Open SQL, Ruta, 1, 1 if not Resultado.EOF then SeccionConAccesoRestringido = Resultado("ACCESORESTRINGIDO") else Response.Redirect("portada.php") end if '//Cerramos la consulta Resultado.Close Set Resultado = Nothing if (IsNull(SeccionConAccesoRestringido)) or (SeccionConAccesoRestringido = False) then SQL = "Select TITULAR, CONTENIDO From CONTENIDOS_ESP Where IDCONTENIDO = " & Request.QueryString("idcontenido") Set Resultado = Server.CreateObject("ADODB.Recordset") Resultado.Open SQL, Ruta, 1, 1 Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Response.Write Resultado("TITULAR") Response.Write "
 
" Response.Write Resultado("CONTENIDO") Response.Write "
" '//Cerramos la consulta Resultado.Close Set Resultado = Nothing end if%>

[Volver a la portada]