% Dim rsmeerderemomentenperweek Dim rsmeerderemomentenperweek_numRows Set rsmeerderemomentenperweek = Server.CreateObject("ADODB.Recordset") rsmeerderemomentenperweek.ActiveConnection = MM_Database1_STRING rsmeerderemomentenperweek.Source = "SELECT ExtraCurData.ExtraCurNr, CTMomenten.MomentShort, ExtraCurData.CurNr FROM ExtraCurData INNER JOIN CTMomenten ON ExtraCurData.SorteerCode = CTMomenten.SorteerCode WHERE (((ExtraCurData.CurNr)=16104));" rsmeerderemomentenperweek.CursorType = 0 rsmeerderemomentenperweek.CursorLocation = 2 rsmeerderemomentenperweek.LockType = 1 rsmeerderemomentenperweek.Open() rsmeerderemomentenperweek_numRows = 0 %> <% Dim rssemester Dim rssemester_numRows Set rssemester = Server.CreateObject("ADODB.Recordset") rssemester.ActiveConnection = MM_Database1_STRING rssemester.Source = "SELECT distinct Semester FROM qryhildewebsite WHERE Studiegebied='Bouw' " rssemester.CursorType = 0 rssemester.CursorLocation = 2 rssemester.LockType = 1 rssemester.Open() rssemester_numRows = 0 %> <% Dim rebouwalles Dim rebouwalles_numRows Set rebouwalles = Server.CreateObject("ADODB.Recordset") rebouwalles.ActiveConnection = MM_Database1_STRING rebouwalles.Source = "SELECT * FROM qryhildewebsite WHERE Studiegebied='Bouw'" rebouwalles.CursorType = 0 rebouwalles.CursorLocation = 2 rebouwalles.LockType = 1 rebouwalles.Open() rebouwalles_numRows = 0 %> <% Dim rebouwmetselaar Dim rebouwmetselaar_numRows Set rebouwmetselaar = Server.CreateObject("ADODB.Recordset") rebouwmetselaar.ActiveConnection = MM_Database1_STRING rebouwmetselaar.Source = "SELECT * FROM qryhildewebsite WHERE Studiegebied='Bouw' and Afkorting='Metselaar' " rebouwmetselaar.CursorType = 0 rebouwmetselaar.CursorLocation = 2 rebouwmetselaar.LockType = 1 rebouwmetselaar.Open() rebouwmetselaar_numRows = 0 %> <% Dim rebouwtegelzet Dim rebouwtegelzet_numRows Set rebouwtegelzet = Server.CreateObject("ADODB.Recordset") rebouwtegelzet.ActiveConnection = MM_Database1_STRING rebouwtegelzet.Source = "SELECT * FROM qryhildewebsite WHERE Studiegebied='Bouw' and Afkorting='TEGELZET' " rebouwtegelzet.CursorType = 0 rebouwtegelzet.CursorLocation = 2 rebouwtegelzet.LockType = 1 rebouwtegelzet.Open() rebouwtegelzet_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 %> <% Dim Repeat15__numRows Dim Repeat15__index Repeat15__numRows = -1 Repeat15__index = 0 %> <% Dim Repeat99__numRows Dim Repeat99__index Repeat99__numRows = -1 Repeat99__index = 0 %>
Zoeken | RSS | Moodle | Webmail
Sint-Niklaas | Beveren | Sint-Gillis
Centrum voor volwassenenonderwijs regio Waasland
Lesrooster Bouw: <% While ((Repeat1__numRows <> 0) AND (NOT rssemester.EOF)) %> <%=(rssemester.Fields.Item("Semester").Value)%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rssemester.MoveNext() Wend %>
<% If rebouwalles.EOF And rebouwalles.BOF Then %>Het lesrooster voor volgend semester is momenteel nog niet beschikbaar. |
<% End If ' end rebouwalles.EOF And rebouwalles.BOF %> <% If Not rebouwmetselaar.EOF Or Not rebouwmetselaar.BOF Then %>
Alle cursussen hebben plaats in onze vestiging te Sint-Niklaas.