Comunidad Virtual Familia Alzheimer · Información General

<% dim strSUSCRITO dim strMailSuscripto dim strAccionSuscribir strAccionSuscribir = "" & Request("txtAltaBaja") strSUSCRITO = "" & Request("SUSCRITO") strMailSuscripto = "" & Request("txtMailSuscripcion") If strSUSCRITO="1" then if strAccionSuscribir = "ALTA" then bPosibilidadSubscripcion=0 UpdateRecordset("insert into tbl_suscriptores (email,activo) values('" & strMailSuscripto & "',1)") elseif strAccionSuscribir = "BAJA" then bPosibilidadSubscripcion=0 UpdateRecordset("update tbl_suscriptores set activo=0 where Email='" & strMailSuscripto & "'") end if elseif strSUSCRITO="" then bPosibilidadSubscripcion=1 end if dim rs_Cuaderno set rs_Cuaderno = GetRecordset("select top 1 * from tbl_taller_memoria where activo = 1 and home=1 and fecha_publicacion <= getdate()") %> Comunidad Virtual Familia Alzheimer · Información General

Haga clic aquÃ para iniciar La Cochrane Library Plus en Espaï¿½ol - la informaciï¿½n mï¿½s fiable y completa sobre los efectos de la atenciï¿½n sanitaria

Área de Prensa

<%dim rsConsulta set rsConsulta = GetRecordset("SELECT * FROM (select id_Entrevista as id, titulo, introduccion,imagen,entrevistado,fecha_entrevista as fecha,orden, autor,fuente , tipo as tipo from tbl_area_prensa_entrevistas where home=1 and activada=1 UNION ALL select id_area_prensa_elemento as id,Titulo,Introduccion,Imagen_Noticia_1 as imagen,'' as entrevistado,fecha,orden,autor,fuente , id_Tipo_area_prensa as tipo from Tbl_Area_Prensa_Elementos where home=1 and fecha <= getDate() and activada = 1)as tabla_temporal ORDER BY Orden") 'response.write "SELECT * FROM (select id_Entrevista as id, titulo, introduccion,imagen,entrevistado,fecha_entrevista as fecha,orden, autor,fuente , 1 as tipo from tbl_area_prensa_entrevistas where home=1 and (tipo=1 ) and activada=1 UNION ALL select id_area_prensa_elemento as id,Titulo,Introduccion,Imagen_Noticia_1 as imagen,'' as entrevistado,fecha,orden,autor,fuente , 2 as tipo from Tbl_Area_Prensa_Elementos where home=1 and fecha <= getDate() and activada = 1 and ((id_Tipo_area_prensa=4 ) and (id_Tipo_area_prensa=2 )) UNION ALL select id_area_prensa_elemento as id,Titulo,Introduccion,Imagen_Noticia_1 as imagen,'' as entrevistado,fecha, orden, autor,fuente, 3 as tipo from Tbl_Area_Prensa_Elementos where home=1 and fecha <= getDate() and activada = 1) as tabla_temporal ORDER BY Orden" do while not rsConsulta.eof select case rsConsulta("tipo") case "4" %> <% case "3" %> <% case "2" colspanNoticias= 0 %> <% case "1" colspanNoticias= 0 %> <% end select rsConsulta.movenext loop %>

Reportaje

<% colspanNoticias= 0 %>

<%=rsConsulta("Titulo")%>

align="justify" valign="top" class="comentarios"><% if (not isNull(rsConsulta("imagen")) or (rsConsulta("imagen")<> ""))then %>

" >

<%end if%>

<%=rsConsulta("Introduccion")%>

<%=rsConsulta("fecha")%>, <%=rsConsulta("Autor")%>
<%=rsConsulta("fuente")%>

align="justify"> " class="navegacion">leer reportaje...

Noticia Destacada

<% colspanNoticias= 0 %>

<%=rsConsulta("Titulo")%>

align="justify" valign="top" class="comentarios"><% if (not isNull(rsConsulta("imagen")) or (rsConsulta("imagen")<> ""))then %>

" >

<%end if%>

<%=rsConsulta("Introduccion")%>

<%=rsConsulta("fecha")%>, <%=rsConsulta("Autor")%>
<%=rsConsulta("fuente")%>

align="justify"> " class="navegacion">leer la noticia...

Artículo de Opinión

<% if (not isNull(rsConsulta("imagen")) and (rsConsulta("imagen")<>""))then %> <%else colspanNoticias = 2 end if %>

<%=rsConsulta("Titulo")%>
" height="96" width="128">	align="justify" valign="top" class="comentarios"> <%=rsConsulta("Introduccion")%> <%=rsConsulta("Introduccion")%> <%=rsConsulta("fecha")%>, <%=rsConsulta("Autor")%> <%=rsConsulta("fuente")%>
	align="justify"> " class="navegacion">leer el articulo ...

Entrevista

<%=rsConsulta("Titulo")%>

align="justify" valign="top" class="comentarios"> <% if (not isNull(rsConsulta("Imagen")) or (rsConsulta("Imagen")<> ""))then %>

" width=125>

<%end if%>

<%=rsConsulta("Introduccion")%>

<%=rsConsulta("fecha")%>, <%=rsConsulta("Autor")%>
<%=rsConsulta("fuente")%>

align="justify"> " class="navegacion">leer la entrevista ...

Taller de memoria

Ejercicio del mes

<%=strMesActual%>

<%if not rs_Cuaderno.eof and not rs_Cuaderno.bof then while not rs_Cuaderno.eof strIdTallerMemoria = rs_Cuaderno("id_taller_memoria").value %> <% rs_Cuaderno.movenext wend end if%>

<%=rs_Cuaderno("Titulo").value%>

<%=rs_Cuaderno("Introduccion").value%>

Objetivos: <%=rs_Cuaderno("Objetivos").value%>

Consignas: <%=rs_Cuaderno("Consignas").value%>

<%if not isnull(rs_Cuaderno("Documento").value) then%>

" class="linkazul"> Descarga del documento

<%end if%>

<% rs_Cuaderno.close set rs_Cuaderno= Nothing %>