|
|
 |
Drug-Free Workplace |
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:
- EAP
- CSU medical insurance plans
- o Note: Please contact Benefits Officer
Vivian Dea for information about drug
counseling provided through the EAP, and to learn what services are covered for
substance abuse under your individual medical insurance plan.
- A description of the penalties that may be imposed on employees for drug abuse
violations occurring in the workplace: See second paragraph above.
|
|
Last Updated:
<%
'Dim strFileName
'Dim dtmLastModified
'Dim dtmLastModifiedDate
'Dim dtmLastModifiedTime
Dim strFileName, strFileNameCalendar, objFile, objFileSystemObject
Dim dtmLastModified, dtmLastModifiedDate, dtmLastModifiedTime
Dim sLastModifiedMonth
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)
Case 1
sLastModifiedMonth = "January"
Case 2
sLastModifiedMonth = "February"
Case 3
sLastModifiedMonth = "March"
Case 4
sLastModifiedMonth = "April"
Case 5
sLastModifiedMonth = "May"
Case 6
sLastModifiedMonth = "June"
Case 7
sLastModifiedMonth = "July"
Case 8
sLastModifiedMonth = "August"
Case 9
sLastModifiedMonth = "September"
Case 10
sLastModifiedMonth = "October"
Case 11
sLastModifiedMonth = "November"
Case 12
sLastModifiedMonth = "December"
End Select
Response.Write sLastModifiedMonth & " " & Day(dtmLastModified) & ", " & Year(dtmLastModified)
%>
|
