<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim ContentKey ContentKey = "{577533E9-A510-4AA6-916D-D5383400871A}" 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 :: Military Leaves of Absence and Reemployment
 

Military Leaves of Absence and Reemployment

In the aftermath of the events of September 11th, employers should become familiar with the legal requirements related to military leaves of absence and reemployment. The Uniform Services Employment and Reemployment Rights Act of 1994 (USERRA) provides job protection and reinstatement rights for employees who are absent from a position of employment because of military duty in the "uniformed services." Under USERRA, it is unlawful for an employer to deny employment, reemployment, promotion, or any benefit of employment to persons who are members of the National Guard and Reserve. An employee is entitled to reemployment rights when returning from the military if he: (i) held a job with the employer; (ii) gave advance notice to the employer of military duty; (iii) the period of service is no greater than five years; (iv) the person leaves the military under honorable conditions; and (v) the person reports back to the employer after military service in a timely manner, depending on thee length of the person's military service. USERRA also protects returning employees' benefits, such as medical plans, pensions, and seniority rights. To learn more about this issue, contact 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 %>