<% if Trim(request("yr")) <> "" then yr = Cint(request("yr")) else yr = year(now) end if if Trim(request("mes")) <> "" then mes = Cint(request("mes")) else mes = month(now) end if %>

Año

<% for i = 2003 to year(now) + 1 %> <% if i = yr then response.write(" selected")%>><%=i%> <% next %>

Mes

<% for i = 1 to 12 %> <% if i = mes then response.write(" selected")%>><%=i%> <% next %>

<% Dim SQl1, oRS1, actividad_id, actividad, pdf, fecha_in temp = mes & "/1/" & yr 'response.Write( temp & "
") SQl1 = "SELECT * FROM Actividad" SQl1 = SQl1 & " Where fechaIn >= #" & cdate(temp) & "#" SQl1 = SQl1 & " ORDER BY FechaIn DESC" SET oRS1 = oCONv2.Execute(SQL1) IF NOT oRS1.EOF THEN %> <% DO WHILE NOT oRS1.EOF actividad_id = oRS1("ActividadID") actividad = Trim(oRS1("Actividad")) fecha_in = oRS1("FechaIn") pdf = Trim(oRS1("pdf")) filename = Trim(oRS1("File")) documento = "" IF pdf <> "" or filename <> "" THEN if filename = "" then filename = pdf end if if pdf = "" then pdf = filename end if if Instr(filename, ".gif") or Instr(filename, ".jpg") or Instr(filename, ".jpeg") or Instr(filename, ".jpe") or Instr(filename, ".bmp") or Instr(filename, ".png") then documento = "" else documento = "" & filename & "" end if ELSE documento = "No Disponible" END IF %> <% oRS1.MoveNext Loop %>

Fecha	Actividad	Documento
<%=fecha_in%>	<%=actividad%>	<%=documento%>

^Arriba

<% ELSE %>

Lo Sentimos, no hay actividades disponibles

<% END IF IF message <> "" THEN %>

<%=eMessage%>

<% END IF %>