<% Dim rsmavmbloem Dim rsmavmbloem_numRows Set rsmavmbloem = Server.CreateObject("ADODB.Recordset") rsmavmbloem.ActiveConnection = MM_Database1_STRING rsmavmbloem.Source = "SELECT PraktijkNaam,Plaats FROM qryhildewebsite WHERE Afkorting='bloemschikke' AND MomentShort='ma (vm)'" rsmavmbloem.CursorType = 0 rsmavmbloem.CursorLocation = 2 rsmavmbloem.LockType = 1 rsmavmbloem.Open() rsmavmbloem_numRows = 0 %> <% Dim rswoavbloem Dim rswoavbloem_numRows Set rswoavbloem = Server.CreateObject("ADODB.Recordset") rswoavbloem.ActiveConnection = MM_Database1_STRING rswoavbloem.Source = "SELECT PraktijkNaam,Plaats FROM qryhildewebsite WHERE Afkorting='bloemschikke' AND MomentShort='wo (av)'" rswoavbloem.CursorType = 0 rswoavbloem.CursorLocation = 2 rswoavbloem.LockType = 1 rswoavbloem.Open() rswoavbloem_numRows = 0 %> <% Dim rsmanmbloem Dim rsmanmbloem_numRows Set rsmanmbloem = Server.CreateObject("ADODB.Recordset") rsmanmbloem.ActiveConnection = MM_Database1_STRING rsmanmbloem.Source = "SELECT PraktijkNaam,Plaats FROM qryhildewebsite WHERE Afkorting='bloemschikke' AND MomentShort='ma (nm)'" rsmanmbloem.CursorType = 0 rsmanmbloem.CursorLocation = 2 rsmanmbloem.LockType = 1 rsmanmbloem.Open() rsmanmbloem_numRows = 0 %> <% Dim rsmaavbloem Dim rsmaavbloem_numRows Set rsmaavbloem = Server.CreateObject("ADODB.Recordset") rsmaavbloem.ActiveConnection = MM_Database1_STRING rsmaavbloem.Source = "SELECT PraktijkNaam,Plaats FROM qryhildewebsite WHERE Afkorting='bloemschikke' AND MomentShort='ma (av)'" rsmaavbloem.CursorType = 0 rsmaavbloem.CursorLocation = 2 rsmaavbloem.LockType = 1 rsmaavbloem.Open() rsmaavbloem_numRows = 0 %> <% Dim rsdivmbloem Dim rsdivmbloem_numRows Set rsdivmbloem = Server.CreateObject("ADODB.Recordset") rsdivmbloem.ActiveConnection = MM_Database1_STRING rsdivmbloem.Source = "SELECT PraktijkNaam,Plaats FROM qryhildewebsite WHERE Afkorting='bloemschikke' AND MomentShort='di (vm)'" rsdivmbloem.CursorType = 0 rsdivmbloem.CursorLocation = 2 rsdivmbloem.LockType = 1 rsdivmbloem.Open() rsdivmbloem_numRows = 0 %> <% Dim rsdinmbloem Dim rsdinmbloem_numRows Set rsdinmbloem = Server.CreateObject("ADODB.Recordset") rsdinmbloem.ActiveConnection = MM_Database1_STRING rsdinmbloem.Source = "SELECT PraktijkNaam,Plaats FROM qryhildewebsite WHERE Afkorting='bloemschikke' AND MomentShort='di (nm)'" rsdinmbloem.CursorType = 0 rsdinmbloem.CursorLocation = 2 rsdinmbloem.LockType = 1 rsdinmbloem.Open() rsdinmbloem_numRows = 0 %> <% Dim srdiavbloem Dim srdiavbloem_numRows Set srdiavbloem = Server.CreateObject("ADODB.Recordset") srdiavbloem.ActiveConnection = MM_Database1_STRING srdiavbloem.Source = "SELECT PraktijkNaam,Plaats FROM qryhildewebsite WHERE Afkorting='bloemschikke' AND MomentShort='di (av)'" srdiavbloem.CursorType = 0 srdiavbloem.CursorLocation = 2 srdiavbloem.LockType = 1 srdiavbloem.Open() srdiavbloem_numRows = 0 %> <% Dim rswovmbloem Dim rswovmbloem_numRows Set rswovmbloem = Server.CreateObject("ADODB.Recordset") rswovmbloem.ActiveConnection = MM_Database1_STRING rswovmbloem.Source = "SELECT PraktijkNaam,Plaats FROM qryhildewebsite WHERE Afkorting='bloemschikke' AND MomentShort='wo (vm)'" rswovmbloem.CursorType = 0 rswovmbloem.CursorLocation = 2 rswovmbloem.LockType = 1 rswovmbloem.Open() rswovmbloem_numRows = 0 %> <% Dim rswonmbloem Dim rswonmbloem_numRows Set rswonmbloem = Server.CreateObject("ADODB.Recordset") rswonmbloem.ActiveConnection = MM_Database1_STRING rswonmbloem.Source = "SELECT PraktijkNaam,Plaats FROM qryhildewebsite WHERE Afkorting='bloemschikke' AND MomentShort='wo(nm)'" rswonmbloem.CursorType = 0 rswonmbloem.CursorLocation = 2 rswonmbloem.LockType = 1 rswonmbloem.Open() rswonmbloem_numRows = 0 %> <% Dim rsdovmbloem Dim rsdovmbloem_numRows Set rsdovmbloem = Server.CreateObject("ADODB.Recordset") rsdovmbloem.ActiveConnection = MM_Database1_STRING rsdovmbloem.Source = "SELECT PraktijkNaam,Plaats FROM qryhildewebsite WHERE Afkorting='bloemschikke' AND MomentShort='do (vm)'" rsdovmbloem.CursorType = 0 rsdovmbloem.CursorLocation = 2 rsdovmbloem.LockType = 1 rsdovmbloem.Open() rsdovmbloem_numRows = 0 %> <% Dim rsdonmbloem Dim rsdonmbloem_numRows Set rsdonmbloem = Server.CreateObject("ADODB.Recordset") rsdonmbloem.ActiveConnection = MM_Database1_STRING rsdonmbloem.Source = "SELECT PraktijkNaam,Plaats FROM qryhildewebsite WHERE Afkorting='bloemschikke' AND MomentShort='do (nm)'" rsdonmbloem.CursorType = 0 rsdonmbloem.CursorLocation = 2 rsdonmbloem.LockType = 1 rsdonmbloem.Open() rsdonmbloem_numRows = 0 %> <% Dim rsdoavbloem Dim rsdoavbloem_numRows Set rsdoavbloem = Server.CreateObject("ADODB.Recordset") rsdoavbloem.ActiveConnection = MM_Database1_STRING rsdoavbloem.Source = "SELECT PraktijkNaam,Plaats FROM qryhildewebsite WHERE Afkorting='bloemschikke' AND MomentShort='do (av)'" rsdoavbloem.CursorType = 0 rsdoavbloem.CursorLocation = 2 rsdoavbloem.LockType = 1 rsdoavbloem.Open() rsdoavbloem_numRows = 0 %> <% Dim rssemester Dim rssemester_numRows Set rssemester = Server.CreateObject("ADODB.Recordset") rssemester.ActiveConnection = MM_Database1_STRING rssemester.Source = "SELECT distinct Schooljaar FROM qryhildewebsite" rssemester.CursorType = 0 rssemester.CursorLocation = 2 rssemester.LockType = 1 rssemester.Open() rssemester_numRows = 0 %> <% Dim rsbloemalles Dim rsbloemalles_numRows Set rsbloemalles = Server.CreateObject("ADODB.Recordset") rsbloemalles.ActiveConnection = MM_Database1_STRING rsbloemalles.Source = "SELECT PraktijkNaam,Plaats FROM qryhildewebsite WHERE Afkorting='bloemschikke' " rsbloemalles.CursorType = 0 rsbloemalles.CursorLocation = 2 rsbloemalles.LockType = 1 rsbloemalles.Open() rsbloemalles_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsmavmbloem_numRows = rsmavmbloem_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsmanmbloem_numRows = rsmanmbloem_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 rsmaavbloem_numRows = rsmaavbloem_numRows + Repeat3__numRows %> <% Dim Repeat6__numRows Dim Repeat6__index Repeat6__numRows = -1 Repeat6__index = 0 srdiavbloem_numRows = srdiavbloem_numRows + Repeat6__numRows %> <% Dim Repeat9__numRows Dim Repeat9__index Repeat9__numRows = -1 Repeat9__index = 0 rswoavbloem_numRows = rswoavbloem_numRows + Repeat9__numRows %> <% Dim Repeat12__numRows Dim Repeat12__index Repeat12__numRows = -1 Repeat12__index = 0 rsdoavbloem_numRows = rsdoavbloem_numRows + Repeat12__numRows %> <% Dim Repeat13__numRows Dim Repeat13__index Repeat13__numRows = -1 Repeat13__index = 0 rssemester_numRows = rssemester_numRows + Repeat13__numRows %> <% Dim Repeat11__numRows Dim Repeat11__index Repeat11__numRows = -1 Repeat11__index = 0 rsdonmbloem_numRows = rsdonmbloem_numRows + Repeat11__numRows %> <% Dim Repeat10__numRows Dim Repeat10__index Repeat10__numRows = -1 Repeat10__index = 0 rsdovmbloem_numRows = rsdovmbloem_numRows + Repeat10__numRows %> <% Dim Repeat8__numRows Dim Repeat8__index Repeat8__numRows = -1 Repeat8__index = 0 rswonmbloem_numRows = rswonmbloem_numRows + Repeat8__numRows %> <% Dim Repeat7__numRows Dim Repeat7__index Repeat7__numRows = -1 Repeat7__index = 0 rswovmbloem_numRows = rswovmbloem_numRows + Repeat7__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = -1 Repeat5__index = 0 rsdinmbloem_numRows = rsdinmbloem_numRows + Repeat5__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 rsdivmbloem_numRows = rsdivmbloem_numRows + Repeat4__numRows %>

Zoeken | RSS | Moodle | Webmail
Sint-Niklaas | Beveren | Sint-Gillis

  Centrum voor volwassenenonderwijs regio Waasland

U bevindt zich hier: Home > Lesroosters > Lesrooster Bloemschikken en Inrichten van de woning
 

Lesrooster Bloemschikken en Inrichten van de woning:  <% While ((Repeat13__numRows <> 0) AND (NOT rssemester.EOF)) %> <%= left((rssemester.Fields.Item("Schooljaar").Value),9)%> <% Repeat13__index=Repeat13__index+1 Repeat13__numRows=Repeat13__numRows-1 rssemester.MoveNext() Wend %>

<% If rsbloemalles.EOF And rsbloemalles.BOF Then %>

Dit schooljaar worden de cursus bloemschikken en inrichten van de woning niet ingericht.

<% End If ' end rsbloemalles.EOF And rsbloemalles.BOF %> <% If Not rsbloemalles.EOF Or Not rsbloemalles.BOF Then %>

Tenzij anders vermeld gaan alle cursussen door te Sint-Niklaas.

 
Maandag
Dinsdag
Woensdag
Donderdag
Voormiddag
<% While ((Repeat1__numRows <> 0) AND (NOT rsmavmbloem.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsmavmbloem.MoveNext() Wend %>
<%=(rsmavmbloem.Fields.Item("PraktijkNaam").Value)%>
<% While ((Repeat4__numRows <> 0) AND (NOT rsdivmbloem.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 rsdivmbloem.MoveNext() Wend %>
<%=(rsdivmbloem.Fields.Item("PraktijkNaam").Value)%>
<% While ((Repeat7__numRows <> 0) AND (NOT rswovmbloem.EOF)) %> <% Repeat7__index=Repeat7__index+1 Repeat7__numRows=Repeat7__numRows-1 rswovmbloem.MoveNext() Wend %>
<%=(rswovmbloem.Fields.Item("PraktijkNaam").Value)%>
<% While ((Repeat10__numRows <> 0) AND (NOT rsdovmbloem.EOF)) %> <% Repeat10__index=Repeat10__index+1 Repeat10__numRows=Repeat10__numRows-1 rsdovmbloem.MoveNext() Wend %>
<%=(rsdovmbloem.Fields.Item("PraktijkNaam").Value)%>
Namiddag
<% While ((Repeat2__numRows <> 0) AND (NOT rsmanmbloem.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsmanmbloem.MoveNext() Wend %>
<%=(rsmanmbloem.Fields.Item("PraktijkNaam").Value)%>
<% While ((Repeat5__numRows <> 0) AND (NOT rsdinmbloem.EOF)) %> <% Repeat5__index=Repeat5__index+1 Repeat5__numRows=Repeat5__numRows-1 rsdinmbloem.MoveNext() Wend %>
<%=(rsdinmbloem.Fields.Item("PraktijkNaam").Value)%>

 

<% While ((Repeat8__numRows <> 0) AND (NOT rswonmbloem.EOF)) %> <% Repeat8__index=Repeat8__index+1 Repeat8__numRows=Repeat8__numRows-1 rswonmbloem.MoveNext() Wend %>
<%=(rswonmbloem.Fields.Item("PraktijkNaam").Value)%>
<% While ((Repeat11__numRows <> 0) AND (NOT rsdonmbloem.EOF)) %> <% Repeat11__index=Repeat11__index+1 Repeat11__numRows=Repeat11__numRows-1 rsdonmbloem.MoveNext() Wend %>
<%=(rsdonmbloem.Fields.Item("PraktijkNaam").Value)%>

 

Avond
<% While ((Repeat3__numRows <> 0) AND (NOT rsmaavbloem.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rsmaavbloem.MoveNext() Wend %>
<%=(rsmaavbloem.Fields.Item("PraktijkNaam").Value)%>
<% While ((Repeat6__numRows <> 0) AND (NOT srdiavbloem.EOF)) %> <% Repeat6__index=Repeat6__index+1 Repeat6__numRows=Repeat6__numRows-1 srdiavbloem.MoveNext() Wend %>
<%=(srdiavbloem.Fields.Item("PraktijkNaam").Value)%>
<% While ((Repeat9__numRows <> 0) AND (NOT rswoavbloem.EOF)) %> <% Repeat9__index=Repeat9__index+1 Repeat9__numRows=Repeat9__numRows-1 rswoavbloem.MoveNext() Wend %>
<%=(rswoavbloem.Fields.Item("PraktijkNaam").Value)%>

 

<% While ((Repeat12__numRows <> 0) AND (NOT rsdoavbloem.EOF)) %> <% Repeat12__index=Repeat12__index+1 Repeat12__numRows=Repeat12__numRows-1 rsdoavbloem.MoveNext() Wend %>
<%=(rswovmbloem.Fields.Item("PraktijkNaam").Value)%>
<% End If ' end Not rsbloemalles.EOF Or NOT rsbloemalles.BOF %>
 
Janitor, Centrum voor Volwassenenonderwijs van het Gemeenschapsonderwijs, Noordlaan 32, 9100 Sint-Niklaas
Tel: 03/760.96.00 Fax: 03/760.96.02 E-mail: info@janitor.be Website: http://www.janitor.be
 
<% rsmavmbloem.Close() Set rsmavmbloem = Nothing %> <% rswoavbloem.Close() Set rswoavbloem = Nothing %> <% rsmanmbloem.Close() Set rsmanmbloem = Nothing %> <% rsmaavbloem.Close() Set rsmaavbloem = Nothing %> <% rsdivmbloem.Close() Set rsdivmbloem = Nothing %> <% rsdinmbloem.Close() Set rsdinmbloem = Nothing %> <% srdiavbloem.Close() Set srdiavbloem = Nothing %> <% rswovmbloem.Close() Set rswovmbloem = Nothing %> <% rswonmbloem.Close() Set rswonmbloem = Nothing %> <% rsdovmbloem.Close() Set rsdovmbloem = Nothing %> <% rsdonmbloem.Close() Set rsdonmbloem = Nothing %> <% rsdoavbloem.Close() Set rsdoavbloem = Nothing %> <% rssemester.Close() Set rssemester = Nothing %> <% rsbloemalles.Close() Set rsbloemalles = Nothing %>