Dossier de prensa. Arzobispado de Valladolid

Dossier de prensa

Este dossier de prensa es un servicio en pruebas de la Delegación de Medios de Comunicación Social del Arzobispado, con la colaboración técnica del Departamento de Informática. Se ofrecen las páginas de la prensa diaria de Valladolid que incluyen informaciones sobre temas del Arzobispado en particular y religiosos en general. Las noticias se seleccionan y actualizan, salvo causas de fuerza mayor, todos los días laborables por la mañana. Disponemos de noticias desde el viernes 13 de octubre de 2006.

Buscador de noticias:

<% If Request.Form("Dia") = "" Or (CInt(Request.Form("Dia")) = Day(Date()) And CInt(Request.Form("Mes")) = Month(Date()) And CInt(Request.Form("Ano")) = Year(Date())) Then DF = Day(Date()) MF = Month(Date()) AF = Year(Date()) DS = WeekdayName(Weekday(Date())) Else DF = Request.Form("Dia") MF = Request.Form("Mes") AF = Request.Form("Ano") DS = WeekdayName(Weekday(DF & "-" & MF & "-" & AF)) End If Carpeta = Right(AF, 2) & MF & DF If DF < 10 Then Carpeta = Right(AF, 2) & MF & "0" & DF If MF < 10 Then Carpeta = Right(AF, 2) & "0" & MF & DF If DF < 10 And MF < 10 Then Carpeta = Right(AF, 2) & "0" & MF & "0" & DF Fecha = DS & " " & DF & "-" & MF & "-" & Right(AF, 2) Response.Write("

Por texto: ") Response.Write("

") Response.Write("

Por fecha: " & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & " ") %>

<% Set fs = Server.CreateObject("Scripting.FileSystemObject") If Request.Form("VerTexto") = "Ver noticias" Then Response.Write("

Noticias encontradas

" & Chr(13) & Chr(10) & "

" & Right(C, 2) & "-" & Mid(C, 3, 2) & "-" & Left(C, 2) & ": " & Left(F.Name, Len(F.Name) - 4) & "" & Chr(13) & Chr(10) & N End If Next Next Response.Write(N & "

") If Not HayNoticias Then Response.Write("

No se han encontrado noticias con el texto “" & Request.Form("Texto") & "”.

") End If If Request.Form("VerTexto") = "" Then Ruta = "d:/web/archivalladolid.org/prensa/" & Carpeta If fs.FolderExists(Ruta) Then Response.Write("

Noticias del " & Fecha & "

" & Chr(13) & Chr(10) & "

" & Left(File.Name, Len(File.Name) - 4) & "") Next Response.Write("

") Else D = DateDiff("d", Date(), DF & "-" & MF & "-" & AF) AvisoPlazos = "Las noticias de cada día suelen estar disponibles a partir de las 11 de la mañana de ese día, excepto los sábados, domingos y festivos, cuyas noticias se publican a lo largo del primer día laborable siguiente." If D < 0 Then Response.Write("

Las noticias del día " & Fecha & " aún no han sido revisadas. " & AvisoPlazos & "

") ElseIf D = 0 Then Response.Write("

Las noticias de hoy " & Fecha & " aún no han sido revisadas. " & AvisoPlazos & "

") Else Response.Write("

El " & Fecha & " es una fecha del futuro, por lo que obviamente todavía no tenemos sus noticias.

") End If End If End If %>