|
|
 |
|
Smoking |
It is the policy of the Office of the Chancellor to provide a work
environment free from smoke.
Smoking is prohibited inside the Chancellors' Office Golden Shore building
and immediately outside all entrances.
A designated smoking area is available outside the building 20 feet from the
north entrance (at the top of the disabled access ramp).
The Office of the Chancellor will provide support through the Employee
Assistance Program to those employees who wish to pursue a smoking cessation
program. Interested employees should contact Human Resource Services.
This policy is administered through the Office of the Chancellor by the Senior
Director of Human Resource Services. Questions, comments, suggestions or
complaints should be directed to (562) 951-4070.
|
|
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)
%>
|
