<% '------------------------------------------------------------ ' This function finds the last date of the given month '------------------------------------------------------------ Function GetLastDay(intMonthNum, intYearNum) Dim dNextStart If CInt(intMonthNum) = 12 Then dNextStart = CDate( "1/1/" & intYearNum) Else dNextStart = CDate(intMonthNum + 1 & "/1/" & intYearNum) End If GetLastDay = Day(dNextStart - 1) End Function '------------------------------------------------------------------------- ' This routine prints the individual table divisions for days of the month '------------------------------------------------------------------------- Sub Write_TD(sValue, sClass) Response.Write " " & sValue & "" & vbCrLf End Sub ' Constants for the days of the week Const cSUN = 1, cMON = 2, cTUE = 3, cWED = 4, cTHU = 5, cFRI = 6, cSAT = 7 ' Get the name of this file sScript = Request.ServerVariables("SCRIPT_NAME") ' Check for valid month input If IsEmpty(Request("MONTH")) OR NOT IsNumeric(Request("MONTH")) Then datToday = Date() intThisMonth = Month(datToday) ElseIf CInt(Request("MONTH")) < 1 OR CInt(Request("MONTH")) > 12 Then datToday = Date() intThisMonth = Month(datToday) Else intThisMonth = CInt(Request("MONTH")) End If ' Check for valid year input If IsEmpty(Request("YEAR")) OR NOT IsNumeric(Request("YEAR")) Then datToday = Date() intThisYear = Year(datToday) Else intThisYear = CInt(Request("YEAR")) End If strMonthName = MonthName(intThisMonth) datFirstDay = DateSerial(intThisYear, intThisMonth, 1) intFirstWeekDay = WeekDay(datFirstDay, vbSunday) intLastDay = GetLastDay(intThisMonth, intThisYear) ' Get the previous month and year intPrevMonth = intThisMonth - 1 If intPrevMonth = 0 Then intPrevMonth = 12 intPrevYear = intThisYear - 1 Else intPrevYear = intThisYear End If ' Get the next month and year intNextMonth = intThisMonth + 1 If intNextMonth > 12 Then intNextMonth = 1 intNextYear = intThisYear + 1 Else intNextYear = intThisYear End If ' Get the last day of previous month. Using this, find the sunday of ' last week of last month LastMonthDate = GetLastDay(intLastMonth, intPrevYear) - intFirstWeekDay + 2 NextMonthDate = 1 ' Initialize the print day to 1 intPrintDay = 1 ' Open a record set of schedules Set Rs = Server.CreateObject("ADODB.RecordSet") ' These dates are used in the SQL dFirstDay = intThisMonth & "/1/" & intThisYear dLastDay = intThisMonth & "/" & intLastDay & "/" & intThisYear sSQL = "SELECT DISTINCT Start_Date, End_Date FROM tEvents WHERE " & _ "(Start_Date >=#" & dFirstDay & "# AND Start_Date <= #" & dLastDay & "#) " & _ "OR " & _ "(End_Date >=#" & dFirstDay & "# AND End_Date <= #" & dLastDay & "#) " & _ "OR " & _ "(Start_Date < #" & dFirstDay & "# AND End_Date > #" & dLastDay & "# )" & _ "ORDER BY Start_Date" 'Response.Write sSQL ' Open the RecordSet with a static cursor. This cursor provides bi-directional navigation Rs.Open sSQL, sDSN, adOpenStatic, adLockReadOnly, adCmdText %> CGTC Computer Information Technology Department - Programs of Study
header
  home programs of study faculty student resources
   
Information Technology Programs

Computer Programming    Degree | Diploma
The Computer Programming program is designed to provide students with an understanding of the concepts, principles, and techniques required in computer information processing. Program graduates are qualified for employment as computer programmers.

Internet Specialist    Degree | Diploma
The Internet Specialist – Web Site Design program is a sequence of courses designed to provide students with an understanding of the concepts, principles, and techniques required in computer information processing. Program graduates are to be competent in computer terminology and concepts, program design and development, and computer networking. Program graduates are qualified for employment as Internet Specialists – Web Site Designers.

Computer Support Specialist   Degree | Diploma
This program prepares students for entry-level positions in areas of microcomputer hardware and software installation, maintenance, and support, and options for expert level knowledge of application software tools. Target areas include CompTIA A+ and Net +, Microsoft Office User Specialist (MOUS) certification, and Help Desk Institute’s Help Desk Analyst (HDA) certification. Each of these areas trains students for superior customer service skills for on-site support.

Networking Specialist    Degree | Diploma
Options for this program are numerous including Microsoft Windows 2000 MCP and MCSE, Cisco CCNA and CCNP, Sun Solaris Administrator, and Novell Netware CNA. Students can select the program options to prepare themselves for a career in design and/or implementation of LANs and WANs. Employees with these skills are highly sought after in the technology field. CGTC is a Microsoft Authorized Academic Training Provider, a Cisco Regional/Local Academy, and a Sun Academic Partner. These relationships provide CGTC faculty with the most up-to-date technology training information and skills.

Technical Certificates of Credit    View all certificates


 

  
  footer