<% diaActual = day(now) mesActual = month(now) anyoActual = year(now) fechaActual = date() strFechaActual = year(fechaActual) & "-" & month(fechaActual) & "-" & day(fechaActual) fecha1MesAnterior = DateAdd("m",-1,fechaActual) fecha2MesesAnteriores = DateAdd("m",-2,fechaActual) strPrimerDiaMes = year(fechaActual) & "-" & month(fechaActual) & "-1" strFecha1MesAnterior = year(fecha1MesAnterior) & "-" & month(fecha1MesAnterior) & "-" & day(fecha1MesAnterior) strFecha2MesesAnteriores = year(fecha2MesesAnteriores) & "-" & month(fecha2MesesAnteriores) & "-" & day(fecha2MesesAnteriores) titCalendarioMesAnterior = nombremes(month(fecha1MesAnterior)) & " de " & year(fecha1MesAnterior) titCalendarioMesActual = nombremes(month(fechaActual)) & " de " & year(fechaActual) 'Se realizan las siguientes consultas para poner visible=0 a aquellas esquelas que tengan 30 dias de antiguedad 'y para eliminar de la bbdd las esquelas cuya antiguedad sea mayor de 60 dias. strSQLEsquelasMesAnterior = "SELECT ESQ_IDESQUELA,ESQ_FECHA_FALLEC,ESQ_FOTO " strSQLEsquelasMesAnterior = strSQLEsquelasMesAnterior & "FROM esquelas " strSQLEsquelasMesAnterior = strSQLEsquelasMesAnterior & "WHERE esq_fecha_fallec > #" & strFecha1MesAnterior & "# " strSQLEsquelasMesAnterior = strSQLEsquelasMesAnterior & "AND esq_fecha_fallec < #" & strPrimerDiaMes & "# " strSQLEsquelasMesAnterior = strSQLEsquelasMesAnterior & "AND esq_visible=1 " strSQLEsquelasMesAnterior = strSQLEsquelasMesAnterior & "ORDER BY esq_fecha_fallec DESC" 'response.Write("MesAnterior: " & strSQLEsquelasMesAnterior & "
") strSQLEsquelasNoVisibles = "SELECT ESQ_IDESQUELA,ESQ_FECHA_FALLEC,ESQ_FOTO " strSQLEsquelasNoVisibles = strSQLEsquelasNoVisibles & "FROM esquelas " strSQLEsquelasNoVisibles = strSQLEsquelasNoVisibles & "WHERE esq_fecha_fallec < #" & strFecha1MesAnterior & "# " strSQLEsquelasNoVisibles = strSQLEsquelasNoVisibles & "ORDER BY esq_fecha_fallec DESC" 'response.Write("NoVisible: " & strSQLEsquelasNoVisibles & "
") strSQLEsquelas2MesesAnteriores = "SELECT ESQ_IDESQUELA,ESQ_FECHA_FALLEC,ESQ_FOTO " strSQLEsquelas2MesesAnteriores = strSQLEsquelas2MesesAnteriores & "FROM esquelas " strSQLEsquelas2MesesAnteriores = strSQLEsquelas2MesesAnteriores & "WHERE esq_fecha_fallec < #" & strFecha2MesesAnteriores & "# " strSQLEsquelas2MesesAnteriores = strSQLEsquelas2MesesAnteriores & "ORDER BY esq_fecha_fallec DESC" 'response.Write("2MesesAnteriores: " & strSQLEsquelas2MesesAnteriores & "
") strSQLEsquelasMesActual = "SELECT ESQ_IDESQUELA,ESQ_FECHA_FALLEC,ESQ_FOTO " strSQLEsquelasMesActual = strSQLEsquelasMesActual & "FROM esquelas " strSQLEsquelasMesActual = strSQLEsquelasMesActual & "WHERE esq_fecha_fallec >= #" & strPrimerDiaMes & "# " strSQLEsquelasMesActual = strSQLEsquelasMesActual & "AND esq_fecha_fallec <= #" & strFechaActual & "# " strSQLEsquelasMesActual = strSQLEsquelasMesActual & "AND esq_visible=1 " strSQLEsquelasMesActual = strSQLEsquelasMesActual & "ORDER BY esq_fecha_fallec DESC" 'response.Write("MesActual: " & strSQLEsquelasMesActual & "
") Set rsEsquelasMesNoVisibles = Server.CreateObject("ADODB.recordset") rsEsquelasMesNoVisibles.ActiveConnection = cn rsEsquelasMesNoVisibles.CursorType = 1 rsEsquelasMesNoVisibles.Open strSQLEsquelasNoVisibles, cn If Not rsEsquelasMesNoVisibles.EOF Then strSQLUpdate = "UPDATE esquelas SET ESQ_VISIBLE=0 " strSQLUpdate = strSQLUpdate & "WHERE ESQ_FECHA_FALLEC < #" & strFecha1MesAnterior & "# " strSQLUpdate = strSQLUpdate & "AND esq_visible=1" cn.execute(strSQLUpdate) 'response.Write(strSQLUpdate & "
") Set rsEsquelas2MesesAnteriores = Server.CreateObject("ADODB.recordset") rsEsquelas2MesesAnteriores.ActiveConnection = cn rsEsquelas2MesesAnteriores.CursorType = 1 rsEsquelas2MesesAnteriores.Open strSQLEsquelas2MesesAnteriores, cn If Not rsEsquelas2MesesAnteriores.EOF Then set oFSO = server.createObject ("scripting.FileSystemObject") Do While Not rsEsquelas2MesesAnteriores.EOF 'Se borran los archivos de las fotos de las esquelas. if (rsEsquelas2MesesAnteriores("ESQ_FOTO")<>"") then if oFSO.FileExists(Server.MapPath("datos\esquelas\" & rsEsquelas2MesesAnteriores("ESQ_FOTO")))=true then oFSO.DeleteFile Server.MapPath("datos\esquelas\" & rsEsquelas2MesesAnteriores("ESQ_FOTO")) end if end if rsEsquelas2MesesAnteriores.MoveNext Loop strSQLDelete = "DELETE FROM esquelas " strSQLDelete = strSQLDelete & "WHERE ESQ_FECHA_FALLEC < #" & strFecha2MesesAnteriores & "# " cn.execute(strSQLDelete) 'response.Write(strSQLDelete & "
") end if end if Set rsEsquelasMesAnterior = Server.CreateObject("ADODB.recordset") rsEsquelasMesAnterior.ActiveConnection = cn rsEsquelasMesAnterior.CursorType = 1 rsEsquelasMesAnterior.Open strSQLEsquelasMesAnterior, cn Set rsEsquelasMesActual = Server.CreateObject("ADODB.recordset") rsEsquelasMesActual.ActiveConnection = cn rsEsquelasMesActual.CursorType = 1 rsEsquelasMesActual.Open strSQLEsquelasMesActual, cn 'Se pasan los dos recordset a dos arrays de string. Dim arrayEsquelasMesAnterior(31) For j = 0 To 30 arrayEsquelasMesAnterior(j) = "" Next Dim arrayEsquelasMesActual(31) For j = 0 To 30 arrayEsquelasMesActual(j) = "" Next hayEsquelas = false If Not rsEsquelasMesAnterior.EOF Then Do While Not rsEsquelasMesAnterior.EOF diaFecha = day(rsEsquelasMesAnterior("ESQ_FECHA_FALLEC")) arrayEsquelasMesAnterior(diaFecha) = "Si" rsEsquelasMesAnterior.MoveNext Loop hayEsquelas = true End if If Not rsEsquelasMesActual.EOF Then Do While Not rsEsquelasMesActual.EOF diaFecha = day(rsEsquelasMesActual("ESQ_FECHA_FALLEC")) arrayEsquelasMesActual(diaFecha) = "Si" rsEsquelasMesActual.MoveNext Loop End if 'Para mostrar la lista de esquelas del dia seleccionado. if request("PaginaActual")="" then PaginaActual=1 else PaginaActual=request("PaginaActual") end if if request("paramFecha")="" then paramFecha = strFechaActual else paramFecha = request("paramFecha") end if 'SQL para la lista de esquelas. strSQLEsquelas = "SELECT * FROM esquelas WHERE esq_visible=1 AND esq_fecha_fallec=#" & paramFecha & "# ORDER BY esq_fecha_fallec DESC" Set rsEsquelas = Server.CreateObject("ADODB.recordset") rsEsquelas.ActiveConnection = cn rsEsquelas.CursorType = 1 rsEsquelas.Open strSQLEsquelas, cn 'response.Write(strSQLEsquelas) num_reg = rsEsquelas.recordCount arrayRegistros = paginacionRS(rsEsquelas,"ESQ_NOMBRE",5,10) %>
<%if strFechaActual=paramFecha then%>

Esquelas de hoy

<% else strFormatoFecha = split(paramFecha,"-") nuevoFormatoFecha = " " & strFormatoFecha(2) & " de " & nombremes(strFormatoFecha(1)) & "" %>

Esquelas del <%=nuevoFormatoFecha%>

<%end if%> <% If (num_reg > 0) Then for each registro in arrayRegistros 'Importan las mayúsculas y las minúsculas para este 'registro' nombre = registro("ESQ_NOMBRE") fecha_fallec = registro("ESQ_FECHA_FALLEC") funeral = registro("ESQ_FUNERAL") traslado = registro("ESQ_TRASLADO") cementerio = registro("ESQ_CEMENTERIO") sala = registro("ESQ_SALA") foto = registro("ESQ_FOTO") if (foto="") then %>

<%=nombre%>

<%if trim(sala)<>"" then %>
Velatorio:
<%=sala%>
<%end if%> <%if trim(traslado)<>"" then %>
Conducción/Traslado:
<%=traslado%>
<%end if%> <%if trim(cementerio)<>"" then %>
Destino:
<%=cementerio%>
<%end if%> <%if trim(funeral)<>"" then %>
Funeral / Despedida:
<%=funeral%>
<%end if%>
<% else %>
<%=nombre%>

<%=nombre%>

<%if trim(sala)<>"" then %>
Velatorio:
<%=sala%>
<%end if%> <%if trim(traslado)<>"" then %>
Conducción/Traslado:
<%=traslado%>
<%end if%> <%if trim(cementerio)<>"" then %>
Destino:
<%=cementerio%>
<%end if%> <%if trim(funeral)<>"" then %>
Funeral / Despedida:
<%=funeral%>
<%end if%>
<% end if Next else Response.Write("No existen esquelas para el dia de hoy.") End if %>
<%=escribirNavegacion()%>
<% if hayEsquelas then %> <% end if %>

Esquelas anteriores

<% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" 'Response.Write "" J = 2 DO WHILE J <> WeekDay (CDate (year(fecha1MesAnterior) & "-" & month(fecha1MesAnterior) & "-" & 1)) IF J = 2 THEN Response.Write "" Response.Write "" J = J MOD 7 + 1 LOOP numDia = 1 DO UNTIL numDia > 31 IF NOT IsDate (year(fecha1MesAnterior) & "-" & month(fecha1MesAnterior) & "-" & numDia) THEN Exit Do IF WeekDay (CDate (year(fecha1MesAnterior) & "-" & month(fecha1MesAnterior) & "-" & numDia)) = 2 THEN Response.Write "" if (arrayEsquelasMesAnterior(numDia)<>"") then 'Día de hoy: 'if numDia=Dia_actual AND Mes=Month(Date) AND Anyo=Year(Date) then 'Response.Write "" 'else 'Dia que he pinchado: if numDia=CInt(Session("Dia_elegido")) AND month(fecha1MesAnterior)=CInt(Session("Mes_elegido")) AND year(fecha1MesAnterior)=CInt(Session("Anyo_pinchado")) then Response.Write "" else 'Los domingos: if DatePart("w",CDate (year(fecha1MesAnterior) & "-" & month(fecha1MesAnterior) & "-" & numDia)) = 1 then Response.Write "" else 'Los demás días: Response.Write "" end if end if else Response.Write "" end if 'end if numDia = numDia + 1 LOOP Response.Write "" %>
" & "" & nombremes(month(fecha1MesAnterior)) & "" & " de " & year(fecha1MesAnterior) & "
LMXJVSD
 
" & numDia & "" & numDia & "" & numDia & "
" & numDia & "" & numDia & "
<% Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" 'Response.Write "" J = 2 DO WHILE J <> WeekDay (CDate (year(fechaActual) & "-" & month(fechaActual) & "-" & 1)) IF J = 2 THEN Response.Write "" Response.Write "" J = J MOD 7 + 1 LOOP numDia = 1 DO UNTIL numDia > 31 IF NOT IsDate (year(fechaActual) & "-" & month(fechaActual) & "-" & numDia) THEN Exit Do IF WeekDay (CDate (year(fechaActual) & "-" & month(fechaActual) & "-" & numDia)) = 2 THEN Response.Write "" 'Día de hoy: if Cint(numDia)=Cint(day(now)) AND Cint(month(fechaActual))=Cint(Month(now)) AND Cint(year(fechaActual))=Cint(Year(now)) then if (arrayEsquelasMesActual(numDia)<>"") then Response.Write "" else Response.Write "" end if else if (arrayEsquelasMesActual(numDia)<>"") then 'Dia que he pinchado: if numDia=CInt(Session("Dia_elegido")) AND month(fechaMesActual)=CInt(Session("Mes_elegido")) AND year(fechaActual)=CInt(Session("Anyo_pinchado")) then Response.Write "" else 'Los domingos: if DatePart("w",CDate (year(fechaActual) & "-" & month(fechaActual) & "-" & numDia)) = 1 then Response.Write "" else 'Los demás días: Response.Write "" end if end if else Response.Write "" end if end if 'end if numDia = numDia + 1 LOOP Response.Write "" %>
" & "" & nombremes(month(fechaActual)) & "" & " de " & year(fechaActual) & "
LMXJVSD
 
" & numDia & "" & numDia & "" & numDia & "" & numDia & "
" & numDia & "" & numDia & "