<% '------------------------------------------------------------ ' 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 - Faculty
header
  home programs of study faculty student resources
   
Faculty
Jackie Turner - Computer Information Technology Department Head
Degrees: B.B.A., Georgia College & State University and M.A.Ed., University of Sarasota
Certifications: CCNA, CCAI, Network +
Location: Macon Campus
Office #: B122
Phone #: 478-757-3443
Email: jturner@centralgatech.edu
Shannon Beasley
Degrees: M.M.I.S., Georgia College & State University
Certifications: MCSE, CCAI, CCNP, Net +, BSCN, A+, Server+, Linux+
Location: Macon Campus
Office #: B120
Phone #: 478-757-3469
Email: sbeasley@centralgatech.edu
Joni Johnson
Degrees: B.B.A., Georgia State University
Certifications: CCNA, MCSE, MCP, CCNP, CCAI, CIT, BCRAN, BCMSN
Location: Macon Campus
Office #: B107
Phone #: 478-757-2556
Email: jjohnson@centralgatech.edu
Judy Settle
 Certifications: Microsoft Office Specialist and Microsoft Office Authorized Instructor
Location: Macon Campus
Office #: B107
Phone #: 478-757-3688
Email: jsettle@centralgatech.edu
Paula Strozier
Degrees: B.B.A., Texas Wesleyan College and M.S., University of Houston
Certifications: MOUS certification in ACCESS, A+ Certification
Location: Macon Campus
Office #: B107
Phone #: 478-757-3689
Email: strozier@centralgatech.edu
Website:http://acadweb.centralgatech.edu/strozier/
Shane Knighton
Degrees: B.B.A., Georgia College & State University
Certifications: A+, Network+, Server+, CCNA, CCAI
Location: Milledgeville Campus
Office #: A111
Phone #: 478-445-3240
Email: cknighton@centralgatech.edu

 

  
  footer