Illinois Emergency Management Agency  
IEMA logo

Pat Quinn, Governor
" strSideMenu = strSideMenu & "" Next strSideMenu = strSideMenu & "" End If %>

IEMA Links

Director Monken
Disaster Preparedness, Response & Recovery
Mitigation
Training & Exercises
Annual Reports & Publications
Laws & Regulations
News
Freedom of Information
Interoperable Communications
Quick Nav:  

   Training  


2003 PDS Recipients

PDS Course
2014 PDS Recipients
2013 PDS Recipients
2012 PDS Recipients
2011 PDS Recipients
2010 PDS Recipients
2009 PDS Recipients
2008 PDS Recipients
2007 PDS Recipients
2006 PDS Recipients
2005 PDS Recipients
2004 PDS Recipients
2003 PDS Recipients
2002 PDS Recipients
Terry Abma City of Darien ESDA (retired)
Kathy Angelakos City of Seneca ESDA
Tom Ballard City of Lemont EMA
Don Banks Wabash County EMA
Tom Callard City of Rolling Meadows ESDA
Linda Dante Will County OEM
Jack DeHeve IEMA
Patricia Frankovich Argonne National Labatory
Rita George Rush North Shore Hospital
Alan Gower Williamson County EMA
Wendy Hillyer Schuyler County ESDA
Laura Imes City of Senaca ESDA
John Keane Mount Prospect ESDA
David Keim City of Carbondale Fire Dept
David Lincoln Village of Westmont ESDA
Charles "Chuck" Morris Piatt County ESDA
Mary Murphey Evergreen Park Fire Dept
John Neal IEMA
Lee Onley Boone County ESDA
Jared Owen IEMA
Robert Page Bartlett Police Dept
Dianne Ruff Logan County ESDA
Craig Shaw City of Fairview Police Dept
Justin Short IEMA
John Simon Adams County ESDA
Dave Sterofsky Rock Island Fire Dept
Trent Thompson Illinois National Guard Military Support
Tim Vaclav Burr Ridge Police Dept
Dennis Walk Effingham County ESDA
Robert "Bucky" Washam, Jr. City of Lincoln Fire Dept.
James Watts IEMA
Robert Zamor City of Libertyville EMA

 

<% Function GetActiveCourses() Dim arrSessions, xmlhttp, dom, url, node, i, j '*************************************************************************** 'set up call to the web service for Last Updated date '*************************************************************************** 'Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") Set xmlhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0") Set dom = Server.CreateObject("Microsoft.XMLDOM") url = "http://tier2.iema.state.il.us/Training/Training.asmx/GetWebMenu" 'set option to ignore SSL errors const SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = 13056 Call xmlhttp.setOption(2, SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS) 'call web service Call xmlhttp.Open("GET", url, False) Call xmlhttp.send 'Parse xml result dom.Load(xmlhttp.responseBody) Set node = dom.SelectSingleNode("//string") 'did we get a response back from the server? If not node is nothing then 'yes - convert the xml to an array dom.LoadXML(node.text) 'Did we find any records for the search criteria? If not dom.SelectSingleNode("//NewDataSet/Table") is nothing then Set rows = dom.SelectNodes("//NewDataSet/Table") For i = 0 To rows.length - 1 ReDim Preserve arrItems(2,i) For j = 0 to rows(i).childNodes.length - 1 arrItems(j,i) = rows(i).childNodes(j).text Next Next 'clean up your mess set doc = nothing set xmlhttp = nothing GetActiveCourses = arrItems Else 'clean up your mess set doc = nothing set xmlhttp = nothing End If Else 'clean up your mess set doc = nothing set xmlhttp = nothing End If End Function arrCourses = GetActiveCourses() If IsArray(arrCourses) Then strSideMenu = "
" 'strSideMenu = strSideMenu & "
" strSideMenu = strSideMenu & "" For i = LBound(arrCourses,2) To UBound(arrCourses,2) 'strSideMenu = strSideMenu & "
" & arrCourses(1,i) & "
<%=strSideMenu%>

Training/Exercises

Calendar
Exercise Information
FEMA Independent Study Program
Illinois Professional Emergency Manager Program
Illinois Professional Development Series
2013 IEMA Conference
Out-of-State Training Opportunities
Hazardous Materials Training Webpage
School & Campus Security Training
ICS 300 & 400 Training
FEMA Higher Education Project

Offered Courses

Copyright © IEMA Site Map | Disclaimer | Illinois Privacy Info | Kids Privacy | Web Accessibility | Plug-Ins | Webmaster