Conflict of Interest Training
June 1, 2004
Dear Chancellor's Office Employee:
Human Resource Services is pleased to announce a comprehensive ethics and
conflict of interest training program, which will provide employees training
on ethics statutes and regulations that govern CSU official conduct. The
training will be provided to all Chancellor's Office employees in designated
positions who are required to file a Form 700 Statement of Economic Interests
in accordance with the CSU Conflict of Interest (COI) Code. As an employee
in a designated position, you are required to complete the training no later
than December 31, 2004, and periodically thereafter.
The training, which takes approximately two hours to complete, will be
delivered electronically via Web browsers. Once you have completed the online
training, the learning management system will record your training completion
and generate a completion verification certificate. You are required to print
and submit the completion certificate to me within five days of completing the
training. You may access the training immediately, at the following website:
Source » Ethics and Conflict of Interest Training
The training can be completed on any computer that meets the requirements.
(If you do not have a computer, please contact Desktop Services at 951-4300
to arrange computer access.) Please review the attached Questions & Answers
sheet for more information. If you have additional questions, please contact
me at 951-4070 or email me.
Conflict of Interest Filing Officer
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)