% 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='Auto' " rssemester.CursorType = 0 rssemester.CursorLocation = 2 rssemester.LockType = 1 rssemester.Open() rssemester_numRows = 0 %> <% Dim reautoalles Dim reautoalles_numRows Set reautoalles = Server.CreateObject("ADODB.Recordset") reautoalles.ActiveConnection = MM_Database1_STRING reautoalles.Source = "SELECT * FROM qryhildewebsite WHERE Studiegebied='Auto'" reautoalles.CursorType = 0 reautoalles.CursorLocation = 2 reautoalles.LockType = 1 reautoalles.Open() reautoalles_numRows = 0 %> <% Dim reautoautotechlpg Dim reautoautotechlpg_numRows Set reautoautotechlpg = Server.CreateObject("ADODB.Recordset") reautoautotechlpg.ActiveConnection = MM_Database1_STRING reautoautotechlpg.Source = "SELECT * FROM qryhildewebsite WHERE Studiegebied='Auto' and Afkorting='AutoTech' " reautoautotechlpg.CursorType = 0 reautoautotechlpg.CursorLocation = 2 reautoautotechlpg.LockType = 1 reautoautotechlpg.Open() reautoautotechlpg_numRows = 0 %> <% Dim reautoktswrkherst Dim reautoktswrkherst_numRows Set reautoktswrkherst = Server.CreateObject("ADODB.Recordset") reautoktswrkherst.ActiveConnection = MM_Database1_STRING reautoktswrkherst.Source = "SELECT * FROM qryhildewebsite WHERE Studiegebied='Auto' and Afkorting='Ktswrkherst' " reautoktswrkherst.CursorType = 0 reautoktswrkherst.CursorLocation = 2 reautoktswrkherst.LockType = 1 reautoktswrkherst.Open() reautoktswrkherst_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 Auto: <% 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 reautoalles.EOF And reautoalles.BOF Then %>Het lesrooster voor volgend semester is momenteel nog niet beschikbaar. |
<% End If ' end reautoalles.EOF And reautoalles.BOF %> <% If Not reautoautotechlpg.EOF Or Not reautoautotechlpg.BOF Then %>
Alle cursussen hebben plaats in onze vestiging te Sint-Niklaas.
Deze opleiding gaat niet van start in September 2009. Ze zal wel starten in februari 2010.