|
Consulta interna (Dec. CMC Nº 20/02)
|
Proyecto N°
|
Fecha (dd/mm/aa)
|
Fecha límite (dd/mm/aa)
|
Asunto
|
<% fecha_actual = day(now) & "/" & month(now) & "/" & year(now)
Set fs = CreateObject("Scripting.FileSystemObject")
strFile = Server.MapPath("fuentes/proyectos.txt")
Set fproy = fs.OpenTextFile(strFile)
do while not fproy.AtEndOfStream
singleline=fproy.readline
vec = split(singleline,"-")
num_proy = Trim(vec(0))
'Trabajo con la fecha del proyecto
fecha_proy = Trim(vec(1))
'Trabajo con el vencimiento
vencimiento = Trim(vec(2))
Vvencimiento_aux=split(vencimiento,"/")
Vvencimiento_dia=Trim(Vvencimiento_aux(0))
Vvencimiento_mes=Trim(Vvencimiento_aux(1))
Vvencimiento_anio=Trim(Vvencimiento_aux(2))
Vvencimiento_aux=Vvencimiento_dia & "/" & Vvencimiento_mes &"/" & Vvencimiento_anio
'Descripcion
desc_proyecto = Trim(vec(3))
'Si aun no vencio el proyecto,... lo muestra , sino lo oculta
if CDate(fecha_actual) <= CDate(Vvencimiento_aux) then
strMostrar = "| "& num_proy &" | "& fecha_proy &" | "& vencimiento &" | "& desc_proyecto &" | "
response.write (strMostrar)
end if
loop
fproy.close
Set fproy=nothing
Set fs=nothing
%>
 |
|
