<%@LANGUAGE="VBSCRIPT"%> <% Dim Cicles__MMColParam Cicles__MMColParam = "Tardor/Hivern" if (Request("MM_EmptyValue") <> "") then Cicles__MMColParam = Request("MM_EmptyValue") %> <% set Cicles = Server.CreateObject("ADODB.Recordset") Cicles.ActiveConnection = MM_easem_STRING Cicles.Source = "SELECT * FROM Cursos WHERE Cicle = '" + Replace(Cicles__MMColParam, "'", "''") + "' ORDER BY ID ASC" Cicles.CursorType = 0 Cicles.CursorLocation = 2 Cicles.LockType = 3 Cicles.Open() Cicles_numRows = 0 %> <% Dim Mesos__MMColParam Mesos__MMColParam = "Tardor/Hivern" if (Request("MM_EmptyValue") <> "") then Mesos__MMColParam = Request("MM_EmptyValue") %> <% set Mesos = Server.CreateObject("ADODB.Recordset") Mesos.ActiveConnection = MM_easem_STRING Mesos.Source = "SELECT * FROM Mesos WHERE Cicle = '" + Replace(Mesos__MMColParam, "'", "''") + "'" Mesos.CursorType = 0 Mesos.CursorLocation = 2 Mesos.LockType = 3 Mesos.Open() Mesos_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Cicles_numRows = Cicles_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = 4 Dim Repeat2__index Repeat2__index = 0 Mesos_numRows = Mesos_numRows + Repeat2__numRows %>

easem@andorra.ad   CALENDARI PROGRAMES FORMATIUS <%=UCASE(Cicles.Fields.Item("Cicle").Value)%> 2003 <% While ((Repeat2__numRows <> 0) AND (NOT Mesos.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 Mesos.MoveNext() Wend %> <% While ((Repeat1__numRows <> 0) AND (NOT Cicles.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Cicles.MoveNext() Wend %>  Programes Públics bgcolor="#D1EFD1"<% end if %><% if Repeat2__index = 1 then %>bgcolor="#FFE4CA"<% end if %><% if Repeat2__index = 2 then %>bgcolor="#EAEAAA"<% end if %><% if Repeat2__index = 3 then %>bgcolor="#DAE6FA"<% end if %>>  <%=Left(Mesos.Fields.Item("Mesos").Value,3)%>.    <%=(Cicles.Fields.Item("Curs").Value)%> <% if Cicles.Fields.Item("DiaMes1").Value <> "" then %><% if Cicles.Fields.Item("1xsemana").Value = -1 then %>·<% end if %><% if Cicles.Fields.Item("2xsemana").Value = -1 then %>*<% end if %><% if INSTR(Cicles.Fields.Item("DiaMes1").Value,"-") then %><% if Cicles.Fields.Item("2intesius").Value = -1 then %>x<% end if %><% end if %><%=(Cicles.Fields.Item("DiaMes1").Value)%><% end if %> <% if Cicles.Fields.Item("DiaMes2").Value <> "" then %><% if Cicles.Fields.Item("1xsemana").Value = -1 then %>·<% end if %><% if Cicles.Fields.Item("2xsemana").Value = -1 then %>*<% end if %><% if INSTR(Cicles.Fields.Item("DiaMes2").Value,"-") then %><% if Cicles.Fields.Item("2intesius").Value = -1 then %>x<% end if %><% end if %><%=(Cicles.Fields.Item("DiaMes2").Value)%><% end if %> <% if Cicles.Fields.Item("DiaMes3").Value <> "" then %><% if Cicles.Fields.Item("1xsemana").Value = -1 then %>·<% end if %><% if Cicles.Fields.Item("2xsemana").Value = -1 then %>*<% end if %><% if INSTR(Cicles.Fields.Item("DiaMes2").Value,"-") then %><% if Cicles.Fields.Item("2intesius").Value = -1 then %>x<% end if %><% end if %><%=(Cicles.Fields.Item("DiaMes3").Value)%><% end if %> <% if Cicles.Fields.Item("DiaMes4").Value <> "" then %><% if INSTR(Cicles.Fields.Item("DiaMes2").Value,"-") then %><% if Cicles.Fields.Item("1xsemana").Value = -1 then %>·<% end if %><% end if %><% if Cicles.Fields.Item("2xsemana").Value = -1 then %>*<% end if %><% if NOT INSTR(Cicles.Fields.Item("DiaMes2").Value,"-") then %><% if Cicles.Fields.Item("2intesius").Value = -1 then %>x<% end if %><% end if %><%=(Cicles.Fields.Item("DiaMes4").Value)%><% end if %> *  Dos dies a la setmana ·  Un dia a la setmana x  Dos dies intensius

<% Cicles.Close() %> <% Mesos.Close() %>