% 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
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. |
Tenzij anders vermeld gaan alle cursussen door te Sint-Niklaas.
Maandag |
Dinsdag |
Woensdag |
Donderdag |
|||||
Voormiddag |
|
|
|
|
||||
Namiddag |
|
|
|
|
||||
Avond |
|
|
|
|