<% 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

U bevindt zich hier: Home > Lesroosters > Lesrooster Auto
 

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 %>

 printAlle cursussen hebben plaats in onze vestiging te Sint-Niklaas.

  • Achter de naam van elk vak staan de avond (en) dat de curus gegeven wordt.
    Als er twee momenten achter de naam van de cursus staan, moet u twee avond per week les volgen.
  • Cursussen die meerdere malen op onderstaande lijst voorkomen, worden op verschillende momenten geven.
    Je kan dan kiezen welke momenten voor u het beste passen.

Vakken van de opleiding Autotechniek

    <% While ((Repeat15__numRows <> 0) AND (NOT reautoautotechlpg.EOF)) %>
  • <%=(reautoautotechlpg.Fields.Item("PraktijkNaam").Value)%>  <% rsmeerderemomentenperweek.Close() rsmeerderemomentenperweek.Source = "SELECT ExtraCurData.ExtraCurNr, CTMomenten.MomentShort, ExtraCurData.CurNr FROM ExtraCurData INNER JOIN CTMomenten ON ExtraCurData.SorteerCode = CTMomenten.SorteerCode WHERE (((ExtraCurData.CurNr)=" & reautoautotechlpg.Fields.Item("CurNr").Value & "))ORDER BY ExtraCurData.SorteerCode; " rsmeerderemomentenperweek.Open() While ((Repeat99__numRows <> 0) AND (NOT rsmeerderemomentenperweek.EOF)) response.write((rsmeerderemomentenperweek.Fields.Item("MomentShort").Value)& " ") Repeat99__index=Repeat99__index+1 Repeat99__numRows=Repeat99__numRows-1 rsmeerderemomentenperweek.MoveNext() Wend %>
  • <% Repeat15__index=Repeat15__index+1 Repeat15__numRows=Repeat15__numRows-1 reautoautotechlpg.MoveNext() Wend %>

Vakken van de opleiding Koetswerkhersteller (carrosserie )

Deze opleiding gaat niet van start in September 2009. Ze zal wel starten in februari 2010.

    <% Repeat99__numRows = -1 Repeat99__index = 0 While ((Repeat15__numRows <> 0) AND (NOT reautoktswrkherst.EOF)) %>
  • <%=(reautoktswrkherst.Fields.Item("PraktijkNaam").Value)%>  <% rsmeerderemomentenperweek.Close() rsmeerderemomentenperweek.Source = "SELECT ExtraCurData.ExtraCurNr, CTMomenten.MomentShort, ExtraCurData.CurNr FROM ExtraCurData INNER JOIN CTMomenten ON ExtraCurData.SorteerCode = CTMomenten.SorteerCode WHERE (((ExtraCurData.CurNr)=" & reautoktswrkherst.Fields.Item("CurNr").Value & "))ORDER BY ExtraCurData.SorteerCode; " rsmeerderemomentenperweek.Open() While ((Repeat99__numRows <> 0) AND (NOT rsmeerderemomentenperweek.EOF)) response.write((rsmeerderemomentenperweek.Fields.Item("MomentShort").Value)& " ") Repeat99__index=Repeat99__index+1 Repeat99__numRows=Repeat99__numRows-1 rsmeerderemomentenperweek.MoveNext() Wend %>
  • <% Repeat15__index=Repeat15__index+1 Repeat15__numRows=Repeat15__numRows-1 reautoktswrkherst.MoveNext() Wend %>
  <% End If ' end Not reautoalles.EOF Or NOT reautoalles.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
 
<% rssemester.Close() Set rssemester = Nothing %> <% reautoalles.Close() Set reautoalles = Nothing %> <% rsmeerderemomentenperweek.Close() Set rsmeerderemomentenperweek = Nothing %>