Effective January 6, 2005 Executive
Order 930 became CSU policy on maintaining a Drug-Free Workplace, superceding
the Chancellor's Office policy on this subject that was previously in effect.
The CSU is committed to maintaining a workplace free from the unlawful manufacture,
possession, distribution, dispensation or use of any controlled substances.
Employees violating this policy are subject to discipline up to and including
dismissal. In addition to, or in lieu of, discipline, CSU may require employees
violating the policy to participate in a drug use rehabilitation program.
The CO drug-free awareness program includes the following resources:
- Executive Order 930;
- A description of the dangers of drug
abuse in the workplace;
- A description of drug counseling, treatment, or rehabilitation programs
available to employees:
- A description of the penalties that may be imposed on employees for drug abuse
violations occurring in the workplace: See second paragraph above.
Dim strFileName, strFileNameCalendar, objFile, objFileSystemObject
Dim dtmLastModified, dtmLastModifiedDate, dtmLastModifiedTime
strFileName = Request.ServerVariables("SCRIPT_NAME")
strFileName = Replace(strFileName, "/", "\")
strFileName = Server.MapPath(strFileName)
Set objFileSystemObject = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystemObject.GetFile(strFileName)
dtmLastModified = objFile.DateLastModified
Set objFile = Nothing
Set objFileSystemObject = Nothing
dtmLastModifiedDate = FormatDateTime(dtmLastModified, 1)
dtmLastModifiedTime = FormatDateTime(dtmLastModified, 3)
Select Case Month(dtmLastModified)
sLastModifiedMonth = "January"
sLastModifiedMonth = "February"
sLastModifiedMonth = "March"
sLastModifiedMonth = "April"
sLastModifiedMonth = "May"
sLastModifiedMonth = "June"
sLastModifiedMonth = "July"
sLastModifiedMonth = "August"
sLastModifiedMonth = "September"
sLastModifiedMonth = "October"
sLastModifiedMonth = "November"
sLastModifiedMonth = "December"
Response.Write sLastModifiedMonth & " " & Day(dtmLastModified) & ", " & Year(dtmLastModified)