Diploma Degree Schedule

Daytime Courses (Monday – Friday, 8:00am – 3:15pm)
Program A & B (20 Weeks)   Program C (30 Weeks)
Starting Date Ending Date   Starting Date Ending Date
11/26/07 04/25/08   11/26/07 07/03/08
02/18/08 07/03/08   02/18/08 09/12/08
04/28/08 09/12/08   04/28/08 11/21/08
07/07/08 11/21/08   07/07/08 02/13/09
09/15/08 02/13/09   09/15/08 04/24/09
12/01/08 05/01/09   12/01/08 07/10/09

Evening Courses (Monday, Tuesday and Thursday, 5:00pm – 10:55pm)
Program A & B (40 Weeks)   Program C (60 Weeks)
Starting Date Ending Date   Starting Date Ending Date
11/26/07 09/12/08   11/26/07 02/13/09
02/18/08 11/21/08   02/18/08 05/01/09
04/28/08 02/13/09   04/28/08 07/10/09
07/07/08 04/24/09   07/07/08 09/18/09
09/15/08 06/26/09   09/15/08 12/04/09
12/01/08 09/18/09   12/01/08 02/26/10

Holidays

New Years Eve, New Years Day, MLK Day, Good Friday, Memorial Day, Independence Day, Labor Day, Thanksgiving Break (1 week), Christmas Break (2 weeks)

Click here to watch the CIAML Viedo <% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Ben Shaw 'Code connects to excel spreadsheet to retrive dates for upcoming events '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim adoCon Dim rstCC, rstWD, rstOH, rstCR Const I=1 On Error Resume Next ' Connect to Spreadsheet Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("events.mdb") If Err.Number = 0 Then ' Create Recordsets Set rstCC = Server.CreateObject("ADODB.Recordset") Set rstWD = Server.CreateObject("ADODB.Recordset") Set rstOH = Server.CreateObject("ADODB.Recordset") Set rstCR = Server.CreateObject("ADODB.Recordset") rstCC.LockType = 2 rstWD.LockType = 2 rstOH.LockType = 2 rstCR.LockType = 2 ' Get Recordset rstCC.Open "SELECT ChefClub.* FROM ChefClub;", adoCon rstWD.Open "SELECT WineDinner.* FROM WineDinner;", adoCon rstOH.Open "SELECT OpenHouse.* FROM OpenHouse;", adoCon rstCR.Open "SELECT CollegeRec.* FROM CollegeRec;", adoCon ' Get Next Date from spreadsheet 'While rstCC(1) < Date() 'rstCC.MoveNext 'wend While rstOH(1) < Date() rstOH.MoveNext wend While rstCR(1) < Date() rstCR.MoveNext wend While rstWD(1) < Date() rstWD.MoveNext wend ' Print Results %>

Chef's Club
<% Response.Write Split(FormatDateTime(rstCC("Date"),1), "day, ")(1) %>
 <% Response.Write (rstCC.Fields.Item(I+1).Value ) %>

<% if datediff("d", Date(), cdate(rstCR("Date"))) < 60 then %> College Recruitment Day
<%= Split(FormatDateTime(rstCR("Date"),1), "day, ")(1) %> <% end if %>

Wine Tasting Class
<% Response.Write Split(FormatDateTime(rstWD("Date"),1), "day, ")(1) %>

<% if date() < cdate("08/30/08") then %>

Summer Camp
See Dates

<% end if %> <% if date() < cdate("08/23/08") then %> <% end if %>

10 Year Anniversary Celebration
*By Invitation Only
May 14, 2008



<%End If ' Close Up rstCC.Close Set rstCC = Nothing rstWD.Close Set rstWD = Nothing rstOH.Close Set rstOH = Nothing adoCon.Close Set adoCon = Nothing %>
cooking school, houston cooking school, culinary institute, houston texas culinary institute, french culinary arts, pastry chef school, baking program, chef program, chef school houston texas, cooking education, french cooking school, houston texas cooking school, houston cooking program, cooking school houston, cooking schools in houston texas, houston texas culinary institute, houston culinary program, french cooking school, french pastry school, pastry chef school, houston pastry school, houston texas baking program, houston texas catering program, cooking program, houston texas cooking program, texas cooking school, houston texas cooking school, texas culinary academy, texas culinary arts, houston texas culinary institute, houston texas culinary program, houston texas pastry chef school