<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim ContentKey ContentKey = "{059A9C71-B016-4E59-A9EB-F17F999CFB2F}" Dim oTK, oDB, oContentList Set oDB = Server.CreateObject("BASE10.B10Database") oDB.Connection = Application("Public_DB_Conn") oDB.SiteKey = Application("Public_SiteKey") Set oTK = Server.CreateObject("BASE10.B10DeveloperToolkit") Set oTK.DataSource = oDB Set oContentItem = oTK.GetContentItem(ContentKey) dim areasTopic, areasNews areasTopic = oContentItem("articleTopic") & "e" areasNews = oContentItem("articleNews") & "e" %> Kohrman Jackson & Krantz :: Employment Discrimination After September 11th
 

Employment Discrimination After September 11th

In the aftermath of September 11th, there have been many reports of alleged discrimination against employees because of their religion, ethnicity or national origin. Title VII of the Civil Rights Act, of course, prohibits workplace discrimination based on these and other factors. The Equal Employment Opportunity Commission has issued a new information sheet on this subject. It is available at www.eeoc.gov. The EEOC states that "anger at those responsible for the tragic events of September 11 should not be misdirected against innocent individuals...Employers and labor unions have a special role in guarding against unlawful workplace discrimination." The EEOC goes on to say that "employers and unions should be particularly sensitive to potential discrimination or harassment against individuals who are - or are perceived to be - Muslim, Arab, Afghani, Middle Eastern, or South Asian (Pakastani, Indian, etc.)." For more information on this topic, contttact Rob Gilmore at rsg@kjk.com or at 216-736-7240. <%if oContentItem.RelatedItems.Count > 0 then%> <% dim ListCount, DisplayLim, CurrLim ListCount = oContentItem.RelatedItems.Count if ListCount > 4 then '2 COLUMNS DisplayLim = round((ListCount/2) + 0.49, 0) + 1 else DisplayLim = 5 end if CurrLim = 1 %>
<%for each oItem in oContentItem.RelatedItems%> <%if CurrLim = DisplayLim then%><%end if%> <%=oItem("ContentName")%>
<%CurrLim = CurrLim + 1%> <%next%>
<%end if%>

 
<% set oContentItem = nothing set oTK = nothing set oDB = nothing %>