<%
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 Resultado("TITULAR")
Response.Write " | "
Response.Write " "
Response.Write "| | "
Response.Write ""
Response.Write "| "
Response.Write Resultado("CONTENIDO")
Response.Write " | "
Response.Write " "
Response.Write " "
'//Cerramos la consulta
Resultado.Close
Set Resultado = Nothing
end if%>
|
|
%>.jpg)