<%@LANGUAGE="VBSCRIPT"%> <% 'Buffer Response.Buffer = True %> <% Response.Expires = -10000 %> <% Dim Ffecha, Fanio, Fdia, Fmes Ffecha = Date() Fanio = Year(Ffecha) Fdia = day(Ffecha) Fmes = Month(Ffecha) %> <% set rsactividades = Server.CreateObject("ADODB.Recordset") rsactividades.ActiveConnection = MM_promad_STRING rsactividades.Source = "SELECT * FROM qr_actividadesfuturas" rsactividades.CursorType = 0 rsactividades.CursorLocation = 2 rsactividades.LockType = 3 rsactividades.Open() rsactividades_numRows = 0 %> <% set rsactividadesp = Server.CreateObject("ADODB.Recordset") rsactividadesp.ActiveConnection = MM_promad_STRING rsactividadesp.Source = "SELECT * FROM qr_actividadespendientes" rsactividadesp.CursorType = 0 rsactividadesp.CursorLocation = 2 rsactividadesp.LockType = 3 rsactividadesp.Open() rsactividadesp_numRows = 0 %> <% ' This code is inserted above the html. Declare a variable to hold the CategoryID and set the rs pointer to the first record Dim prev_category If not rsactividades.EOF and not rsactividades.BOF then rsactividades.movefirst End IF If not rsactividadesp.EOF and not rsactividadesp.BOF then rsactividadesp.movefirst End If %> Promad
Mis Actividades
<% ' This section of code is inserted where you want the records to print Dim last_category2, showpendientes showpendientes = "0" hcount = "0" %> <% do while not rsactividadesp.eof %> <% ' Checa encargado Dim strencargado2, strUencargado2, iloop2 strencargado2 = CStr(Session("svUserID")) strUencargado2 = CStr(rsactividadesp.Fields.Item("encargado").Value) strUencargado2 = split(strUencargado2, ", ") For iLoop2 = LBound(strUencargado2) to UBound(strUencargado2) If CStr(strUencargado2(iLoop2)) = CStr(strencargado2) then hcount = hcount + 1 %> <% If showpendientes = "0" then %> Mis Actividades Atrasadas
___Actividad
 Encargado(s)
La Agrego
Fecha de Introducción
<% End If showpendientes = "1" %> <% 'Cambia de Fecha if ((rsactividadesp.Fields.Item("lafecha").Value)) <> last_category2 then %>
  <%=((diasem(rsactividadesp.Fields.Item("diasem").Value))&" "&(rsactividadesp.Fields.Item("dia").Value)&" de "&(rsactividadesp.Fields.Item("elmes").Value)&" del "&(rsactividadesp.Fields.Item("anio").Value))%>
<% 'Cambia de Fecha end if %> ">
&last=/mis.asp"> <%If rsactividadesp("terminado")=False then Response.Write(rsactividadesp.Fields.Item("Titulo_Mensaje").Value) else Response.Write ""&(rsactividadesp.Fields.Item("Titulo_Mensaje").Value)&"" %>
<%=Encargados(rsactividadesp("Encargado"))%>
<%=(rsactividadesp.Fields.Item("lometio").Value)%>
<%=(rsactividadesp.Fields.Item("Fechaintroduccion").Value)%>
<% 'Checa Encargado Else Response.Write("") End If Next last_category2=((rsactividadesp.Fields.Item("lafecha").Value)) %> <% rsactividadesp.MoveNext loop %>
<% If Not rsactividades.EOF Or Not rsactividades.BOF Then %>

Mis Actividades
___Actividad
 Encargado(s)
La Agrego
Fecha de Introducción
<% ' This section of code is inserted where you want the records to print Dim last_category %> <% do while not rsactividades.eof %> <% ' Checa encargado Dim strencargado, strUencargado, iloop strencargado = CStr(Session("svUserID")) strUencargado = CStr(rsactividades.Fields.Item("encargado").Value) strUencargado = split(strUencargado, ", ") For iLoop = LBound(strUencargado) to UBound(strUencargado) If CStr(strUencargado(iLoop)) = CStr(strencargado) then hcount = hcount + 1 %> <% 'Cambia de Fecha if ((rsactividades.Fields.Item("lafecha").Value)) <> last_category then %>
  <%=((diasem(rsactividades.Fields.Item("diasem").Value))&" "&(rsactividades.Fields.Item("dia").Value)&" de "&(rsactividades.Fields.Item("elmes").Value)&" del "&(rsactividades.Fields.Item("anio").Value))%>
<% 'Cambia de Fecha end if %> ">
&last=/mis.asp"> <%If rsactividades("terminado")=False then Response.Write(rsactividades.Fields.Item("Titulo_Mensaje").Value) else Response.Write ""&(rsactividades.Fields.Item("Titulo_Mensaje").Value)&"" %>
<%=Encargados(rsactividades("Encargado"))%>
<%=(rsactividades.Fields.Item("lometio").Value)%>
<%=(rsactividades.Fields.Item("Fechaintroduccion").Value)%>
<% 'Checa Encargado Else Response.Write("") End If Next last_category=((rsactividades.Fields.Item("lafecha").Value)) %> <% rsactividades.MoveNext loop %>
<% End If ' end Not rsactividades.EOF Or NOT rsactividades.BOF %> <% If (rsactividadesp.EOF And rsactividadesp.BOF And rsactividades.EOF And rsactividades.BOF) OR (hcount="0") Then %> <% End IF %>

No Hay actividades

 

 

<% rsactividades.Close() %>