<!--%
	Option Explicit
	Dim Pagina
	Pagina=VerPagina
	If Pagina<>"" Then Response.Redirect Pagina
	On Error Resume Next
	
' ------------------------------------------------------------------------------

	Function ObtenerUltimoArticuloConfesores(myConn, Titulo, Ident)
		Dim strSQL 
		strSQL = "SELECT * FROM Articulos " & _
							"WHERE IDSeccion = " & SECC_RESPUESTA_RAPIDA & _
							" AND IDSubSeccion >=1 " & _
							" AND IDSubSeccion <= 3"& _
							" ORDER BY Fecha DESC"
		
		Set RS = myConn.Execute(strSQL)
		
		If Not (RS.BOF And RS.EOF) Then
			Titulo = RS("Titulo")
			Ident = RS("IDContenido")
			strLink = "?IDProveedor=" & Rs("IDProveedor") & "&IDContenido=" & Rs("IDContenido") & "&IDSeccion=" & Rs("IDSeccion") & "&IDSubSeccion=" & Rs("IDSubSeccion")
		Else
			Titulo="Hoy no hay artículos"			
		End If

		RS.Close
	End Function
	
	Function ObtenerUltimaConsulta(myConn, Pregunta, Ident)
		Dim strSQL 
		Dim intCont
		
		'strSQL = "SELECT Pregunta,IDContenido FROM Consultas " & _
		'					"WHERE IDProveedor= " & PART_PLANIFICACION_JUR & _
		'					" AND IDSeccion = " & SECC_RESPUESTA_RAPIDA & _
		'					" AND IDSubSeccion = " & SUB_CONSULTAS_ONLINE & _
		'					" ORDER BY Fecha DESC"		
		
		strSQL = "SELECT Pregunta,IDContenido FROM Consultas " & _
							"WHERE IDProveedor= " & PART_PLANIFICACION_JUR & _
							" AND IDSeccion = " & SUB_RESPUESTAR_GENERAL & _
							" AND IDSubSeccion = " & SUB_CONSULTAS_ONLINE & _
							" ORDER BY Fecha DESC"				
		Set RS = myConn.Execute(strSQL)
		
		If Not (RS.BOF And RS.EOF) Then						
			Titulo = RS("Pregunta")			
			If Len(Titulo) > MAX_LEN_INTRO  Then
				intCont = MAX_LEN_INTRO
				' Esto se hace para cortar la frase por una espacio
				While Mid(Titulo, intCont , 1)<>" "
					intCont = intCont + 1
				Wend
				Titulo = Left(Titulo, intCont) & "..."

			End If

			Ident = RS("IDContenido")
		Else
			Titulo="Hoy no hay artículos"
		End If

		Pregunta = Titulo
		RS.Close
	End Function

' ------------------------------------------------------------------------------
	
	Function ObtenerUltimaActualidad(myConn, Titulo, Ident)
		Dim strSQL 

		strSQL = "SELECT Titulo,IDContenido FROM Actualidad " & _
							"WHERE IDProveedor= " & PART_PLANIFICACION_JUR & _
							" AND IDSeccion = " & SECC_RESPUESTA_RAPIDA & _
							" AND (IDSubSeccion = " & SUB_ACT_NORMATIVA_IMPUESTOS & _
							" OR IDSubSeccion = " & SUB_ACT_NORMATIVA_LABORAL & _
							" OR IDSubSeccion = " & SUB_ACT_NORMATIVA_CIVIL & _
							" OR IDSubSeccion = " & SUB_ACT_NORMATIVA_CONTABLE & _
							" OR IDSubSeccion = " & SUB_ACT_NORMATIVA_PROYECTOS & ")" & _
							" ORDER BY Fecha DESC"
		Set RS = myConn.Execute(strSQL)
		
		If Not (RS.BOF And RS.EOF) Then
			Titulo = RS("Titulo")
			Ident = RS("IDContenido")
		Else
			Titulo="Hoy no hay artículos"
		End If

		RS.Close
	End Function

' ------------------------------------------------------------------------------

	Function ObtenerUltimaSuspension(myConn, Titulo, Ident)
		Dim strSQL 

		strSQL = "SELECT Titulo,IDContenido FROM Suspensiones " & _
							"WHERE IDProveedor= " & PART_SUSTANCIAL & _
							" AND IDSeccion = " & SECC_RESPUESTA_RAPIDA & _
							" AND IDSubSeccion = " & SUB_SUSPENSIONES & _
							" AND Titulo IS Not NULL AND Texto IS Not NULL ORDER BY Fecha DESC"
		
		Set RS = myConn.Execute(strSQL)
		
		If Not (RS.BOF And RS.EOF) Then
			Titulo = RS("Titulo")
			Ident = RS("IDContenido")
		Else
			Titulo="Hoy no hay suspensiones"
		End If

		RS.Close
	End Function

' ------------------------------------------------------------------------------

	' En la tabla resoluciones, sólo hay, como su nombre indica, resoluciones, 
	' por lo que no hay que hacer un filtro por sección y subsección
	Function ObtenerUltimaResolucion(myConn, Titulo, Referencia, Ident)
		Dim strSQL 

		strSQL = "SELECT Titulo,IDContenido, Referencia FROM Resoluciones " & _
							"WHERE IDProveedor= " & PART_LEXNOVA & _
							" ORDER BY Fecha DESC"
		
		Set RS = myConn.Execute(strSQL)
		
		If Not (RS.BOF And RS.EOF) Then
			Ident = RS("IDContenido")
			Titulo = RS("Titulo")			
			Referencia = RS("Referencia")
			strLink = "resoluci.asp"
		Else
			Titulo="Hoy no hay Resoluciones"
			strLink = "#"
		End If

		RS.Close
	End Function

' ------------------------------------------------------------------------------

	Function ObtenerUltimoBoletin(myConn, Numero, Ident)
		Dim strSQL
		
		strSQL = "SELECT Top 1 IDContenido,Numero FROM Boletines ORDER BY FechaPublicacion DESC"
		Set RS = myConn.Execute(strSQL)
		
		If Not (RS.BOF And RS.EOF) Then
			Numero = RS("Numero")
			Ident = RS("IDContenido")
		Else
			Numero = "No se han publicado boletines."
		End If
		
		RS.Close
		
	End Function

	' =====================================================================================
	' =====================================================================================
	' =====================================================================================

	
	Dim myConn, RS
	Dim Registrado, IDUser
	Dim Titulo, Ident
	Dim Referencia, Origen
	Dim strLink, strLink2
	
	'Registrado = Session("Registrado")
	Registrado = 1
	IDUser = Session("IDUser")
		
	Set myConn = Server.CreateObject("ADODB.Connection")
	Set RS = Server.CreateObject("ADODB.RecordSet")		
	
	myConn.Open CONNECTION_STRING

%-->

<!--#include file="../../includes/const.asp" -->

<html>
<head>
<title>Textos Legales</title>
<link rel="stylesheet" href="../../styles.css">
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
// -->
</script>
<body bgcolor="#ffffff" text="#000000" link="#000000" vlink="#000000" alink="#000000">

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td colspan="6"><img src="../../images/textos_legales/titulo_textos_legales.gif" width="300" height="72"></td>
          <td rowspan="10" width="207">&nbsp;</td>
        </tr>
        <tr> 
          <td align="left" valign="middle" colspan="6" height="25">&nbsp;</td>
        </tr>
        <tr> 
          <td align="left" valign="top" colspan="2"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" height="16">
              <tr> 
                <td rowspan="2" width="1%" align="left" valign="top"> <a href="condiciones_generales.htm"><img src='../../images/textos_legales/condiciones_generales.gif' width='170' height='27' border='0'></a></td>
              </tr>
              <tr> 
                <td height="13"></td>
              </tr>
            </table>
            
          </td>
          <td width="14" rowspan="8">&nbsp;</td>
          <td align="left" valign="top" colspan="2"> 
            <table border="0" cellspacing="0" cellpadding="0" height="8">
              <tr> 
                <td rowspan="2" width="1%" align="left" valign="top"> <a href="Proteccion_datos.htm"><img src="../../images/textos_legales/proteccion_datos.gif" width="219" height="27" border="0"></a></td>
                <td> 	
                </td>
              </tr>
              <tr> 
                <td height="22"><img src="../../images/respuest/fletxa.gif" width="24" height="24"></td>
              </tr>
            </table>
          </td>
          <td width="19" rowspan="8">&nbsp;</td>
        </tr>
        <tr> 
          <td align="left" valign="top" class="introelement" width="6">&nbsp;</td>
          <td align="left" valign="top" height="14" width="258"><a href="condiciones_generales.htm"><span class="introelement">&quot;Lea 
            las Condiciones Generales de Confesores.com respecto a el uso de la 
            p&aacute;gina web, condiciones de venta, duraci&oacute;n, claves de 
            acceso, cookies, Propiedad Industrial e Intelectual, Responsabilidad 
            y Ley apicable y jurisdicci&oacute;n competente.&quot;</span></a><span class='introelement'><a href="condiciones_generales.htm"><img src='../../images/comun/triangulo.gif' border=0 width='9' height='10' ></a></span></td>
          <td align="left" valign="top" class="introelement" height="14" width="6">&nbsp; 
          </td>
          <td align="left" valign="top" class="introelement" height="14" width="238"><a href="Proteccion_datos.htm"><span class="introelement">&quot;Sage Logic 
            Control, S. A., con domicilio social en Sabadell (08208), Ctra. de 
            Prats 122, que ofrece los servicios inform&aacute;ticos para la Pyme 
            y el Despacho Profesional, informa a los usuarios del portal de su 
            propiedad Confesores.com, acerca de su Pol&iacute;tica de Protecci&oacute;n 
            de Datos de Car&aacute;cter Personal.&quot;<img src='../../images/comun/triangulo.gif' border=0 width='9' height='10' ></span></a> 
          </td>
        </tr>
        <tr> 
          <td align="left" valign="top" height="20" colspan="2"></td>
          <td valign="top" align="left" colspan="2"> 
            <div align="center"> </div>
          </td>
        </tr>
        <tr> 
          <td align="left" valign="top" colspan="2" height="27"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td rowspan="2" width="1%" align="left" valign="top"> <a href="servicio_consulta.htm"><img src="../../images/textos_legales/servicio_consultas.gif" width="161" height="27" border="0"></a></td>
                <td> 	
                </td>
              </tr>
              <tr> 
                <td height="19"><img src="../../images/respuest/fletxa.gif" width="24" height="24"></td>
              </tr>
            </table>
          </td>
          <td valign="top" align="left" colspan="2" height="27"> 
            <table border="0" cellspacing="0" cellpadding="0" height="19" width="398">
              <tr> 
                  
                <td rowspan="2" width="1%" align="left" valign="top"> <img src="../../images/textos_legales/titulo_info_legal.gif" width="183" height="25"></td>
                  <td>	
                  </td>
                </tr>
                <tr> 
                  
                <td height="23">&nbsp;</td>
                </tr>
              </table>
           
            
          </td>
        </tr>
        <tr> 
          <td align="left" valign="top" class="introelement" width="6">&nbsp;</td>
          <td align="left" valign="top" width="258"><a href="servicio_consulta.htm"><span class="introelement"> 
            &quot;Lea las condiciones del servicio de consultas que hacen referencia 
            a su Objeto, Funionamiento, Contestaci&oacute;n a la Consulta, Servicio 
            de atenci&oacute;n al Cliente, Duraci&oacute;n y Pago.&quot;<img src='../../images/comun/triangulo.gif' border=0 width='9' height='10' ></span></a></td>
          <td valign="top" align="left" class="introelement" width="6">&nbsp;</td>
          <td valign="top" align="left" class="introelement" width="328"><span class='introelement'><a href="informacion_legal.htm"><span class="introelement"> 
            Ver informaci&oacute;n legal</span></a><a href="Venta_obras_informes.htm"><img src='../../images/comun/triangulo.gif' border=0 width='9' height='10' ></a></span></td>
        
        </tr>
        <tr> 
          <td align="left" valign="top" colspan="2">&nbsp;</td>
          <td valign="top" align="left" colspan="2">&nbsp;</td>
        </tr>
     </table>
    </td>
  </tr>
</table>

</body>
</html>