<%dim hoy
dim diadehoy,mesdehoy
diadehoy=datepart("d",date)
select case diadehoy
case 1 diadehoy="01"
case 2 diadehoy="02"
case 3 diadehoy="03"
case 4 diadehoy="04"
case 5 diadehoy="05"
case 6 diadehoy="06"
case 7 diadehoy="07"
case 8 diadehoy="08"
case 9 diadehoy="09"
end select
mesdehoy=datepart("m",date)
select case mesdehoy
case 1 mesdehoy="01"
case 2 mesdehoy="02"
case 3 mesdehoy="03"
case 4 mesdehoy="04"
case 5 mesdehoy="05"
case 6 mesdehoy="06"
case 7 mesdehoy="07"
case 8 mesdehoy="08"
case 9 mesdehoy="09"
end select
hoy=mesdehoy&"/"&diadehoy&"/"&datepart("yyyy",date)
dim hoy2
hoy2=date
if weekday(hoy2)=1 or weekday(hoy2)=7 then%>
Titulares de esta semana (Nro. <%=datepart("ww",hoy)%> del año)
<%dim semana
semana=hoy2-6
semana=datepart("m",semana)&"/"&datepart("d",semana)&"/"&datepart("yyyy",semana)
sql = "select distinct fecha from ciec_titulares where fecha>'"& semana &"' order by fecha desc"
registros.open sql,conexion,1
if not registros.bof and not registros.eof then
do while not registros.eof
%>
<%
dim nombredia
nombredia=datepart("w",registros("fecha"))
select case nombredia
case 1 nombredia="Domingo"
case 2 nombredia="Lunes"
case 3 nombredia="Martes"
case 4 nombredia="Miercoles"
case 5 nombredia="Jueves"
case 6 nombredia="Viernes"
case 7 nombredia="Sábado"
end select
response.write(nombredia+", ")
response.write(datepart("d",registros("fecha")))
dim mes
mes=datepart("m",registros("fecha"))
select case mes
case 1 mes="enero"
case 2 mes="febrero"
case 3 mes="marzo"
case 4 mes="abril"
case 5 mes="mayo"
case 6 mes="junio"
case 7 mes="julio"
case 8 mes="agosto"
case 9 mes="septiembre"
case 10 mes="octubre"
case 11 mes="noviembre"
case 12 mes="diciembre"
end select
response.write(" de "+mes+" de ")
response.write(datepart("yyyy",registros("fecha")))
%>
<%
dia=datepart("m",registros("fecha"))&"/"&datepart("d",registros("fecha"))&"/"&datepart("yyyy",registros("fecha"))
sql = "select * from ciec_titulares where fecha='"& dia &"' and estado=1 order by id desc"
registros2.open sql,conexion,1
if not registros2.bof and not registros2.eof then
do while not registros2.eof%>
,
<%=registros2("fuente")%> <%if registros2("veces")=mayor_var then%>¡Artículo mas votado!<%end if%>
<%registros2.movenext
loop
end if
registros2.close
registros.movenext
loop
end if
registros.close
else
if request("texto_txt")="" then
sql="Select count(id) as total from ciec_titulares where estado=1"
registros.open sql,conexion,1
dim total2_var
total2_var=registros("total")
registros.close
sql="Select count(id) as total from ciec_titulareshistorial where estado=1"
registros.open sql,conexion,1
total2_var=total2_var+registros("total")
registros.close
dim mayor, id_var
sql = "select * from ciec_titulares where fecha='"& hoy &"' and principal='1' and estado='1' order by id desc"
registros.open sql,conexion,1
%>
<%=total2_var%> Artículos publicados <%if not registros.eof and not registros.bof then%>
<%=registros("antetitulo")%>
<%if registros("imagen")<>"" then%>
">
Foto: <%=registros("creditos")%>
<%end if%>
<%end if
dim dia
dia=hoy
registros.close
sql = "select * from ciec_titulares where fecha='"& dia &"' and estado=1"
registros.open sql,conexion,1
if not registros.bof and not registros.eof then%>
Acontecer
Industrial
Política
<%sql = "select * from ciec_titulares where fecha='"& dia &"' and estado=1 and tema='Acontecer Industrial' order by id desc"
registros2.open sql,conexion,1
if not registros2.bof and not registros2.eof then%>
<%do while not registros2.eof%>
(<%=registros2("fuente")%>)<%if registros2("veces")=mayor_var then%> ¡Artículo mas votado!<%end if%>
<%sql = "select * from ciec_titulares where fecha='"& dia &"' and estado=1 and tema='Política' order by id desc"
registros2.open sql,conexion,1
if not registros2.bof and not registros2.eof then%>
<%do while not registros2.eof%>
(<%=registros2("fuente")%>)<%if registros2("veces")=mayor_var then%> ¡Artículo mas votado!<%end if%>
<%sql = "select * from ciec_titulares where fecha='"& dia &"' and estado=1 and tema='Economía Nacional' order by id desc"
registros2.open sql,conexion,1
if not registros2.bof and not registros2.eof then%>
<%do while not registros2.eof%>
(<%=registros2("fuente")%>)<%if registros2("veces")=mayor_var then%> ¡Artículo mas votado!<%end if%>
<%sql = "select * from ciec_titulares where fecha='"& dia &"' and estado=1 and tema='Negocios Internacionales' order by id desc"
registros2.open sql,conexion,1
if not registros2.bof and not registros2.eof then%>
<%do while not registros2.eof%>
(<%=registros2("fuente")%>)<%if registros2("veces")=mayor_var then%> ¡Artículo mas votado!<%end if%>
<%sql = "select * from ciec_titulares where fecha='"& dia &"' and estado=1 and tema='Régimen Cambiario' order by id desc"
registros2.open sql,conexion,1
if not registros2.bof and not registros2.eof then%>
<%do while not registros2.eof%>
(<%=registros2("fuente")%>)<%if registros2("veces")=mayor_var then%> ¡Artículo mas votado!<%end if%>
<%sql = "select * from ciec_titulares where fecha='"& dia &"' and estado=1 and tema='Otros Temas' order by id desc"
registros2.open sql,conexion,1
if not registros2.bof and not registros2.eof then%>
<%sql = "select * from ciec_titulares where fecha='"& dia &"' and estado=1 and tema='Ambiente' order by id desc"
registros2.open sql,conexion,1
if not registros2.bof and not registros2.eof then%>
<%do while not registros2.eof%>
(<%=registros2("fuente")%>)<%if registros2("veces")=mayor_var then%> ¡Artículo mas votado!<%end if%>
<%
sql = "select * from ciec_titulares where fecha='"& dia &"' and estado=1 and tema='Laboral' order by id desc"
registros2.open sql,conexion,1
if not registros2.bof and not registros2.eof then%>
<%do while not registros2.eof%>
(<%=registros2("fuente")%>)<%if registros2("veces")=mayor_var then%> ¡Artículo mas votado!<%end if%>
Los titulares se están actualizando en este momento...
<%end if%>
<%else
dim texto_var, total_var
texto_var=request("texto_txt")
sql = "Select count(*) as total from ciec_titulares where (fecha LIKE '%"&trim(texto_var)&"%' or periodista LIKE '%"&trim(texto_var)&"%' or fuente LIKE '%"&trim(texto_var)&"%' or dirigido LIKE '%"&trim(texto_var)&"%' or titulo LIKE '%"&trim(texto_var)&"%' or contenido LIKE '%"&trim(texto_var)&"%') and estado=1"
registros.open sql,conexion,1
total_var=0
total_var=cint(registros("total"))
registros.close
sql = "Select count(*) as total from ciec_titulareshistorial where (fecha LIKE '%"&trim(texto_var)&"%' or periodista LIKE '%"&trim(texto_var)&"%' or fuente LIKE '%"&trim(texto_var)&"%' or dirigido LIKE '%"&trim(texto_var)&"%' or titulo LIKE '%"&trim(texto_var)&"%' or contenido LIKE '%"&trim(texto_var)&"%') and estado=1"
registros.open sql,conexion,1
total_var=total_var+cint(registros("total"))
registros.close
sql = "select * from ciec_titulares where (fecha LIKE '%"&trim(texto_var)&"%' or periodista LIKE '%"&trim(texto_var)&"%' or fuente LIKE '%"&trim(texto_var)&"%' or dirigido LIKE '%"&trim(texto_var)&"%' or titulo LIKE '%"&trim(texto_var)&"%' or contenido LIKE '%"&trim(texto_var)&"%') and estado=1 order by id desc"
registros.open sql,conexion,1
%>
Se encontraron <%=total_var%> titulares para el texto de
búsqueda: <%=texto_var%>
<%
if not registros.bof and not registros.eof then
do while not registros.eof
%>
,
<%=registros("fuente")%>
<%
registros.movenext
loop
end if
registros.close
sql = "select * from ciec_titulareshistorial where (fecha LIKE '%"&trim(texto_var)&"%' or periodista LIKE '%"&trim(texto_var)&"%' or fuente LIKE '%"&trim(texto_var)&"%' or dirigido LIKE '%"&trim(texto_var)&"%' or titulo LIKE '%"&trim(texto_var)&"%' or contenido LIKE '%"&trim(texto_var)&"%') and estado=1 order by id desc"
registros.open sql,conexion,1
if not registros.bof and not registros.eof then
do while not registros.eof
%>
,
<%=registros("fuente")%>
<%
registros.movenext
loop
end if
registros.close
end if
set registros = Nothing
conexion.close
set conexion = Nothing
%>
<%end if%>
Acontecer
Industrial
