Illinois Emergency Management Agency  
IEMA logo

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

IEMA Links

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


2009 PDS Recipients

Craig Dopp Palatine EMA
Larry Graf Menard County EMA
Chris Melvin IEMA
James Montanari Naperville Police Department
Linda Bradbury American Red Cross
William L. Newman Jr. Arlington Heights Police Department
James D. Goldasich Putnam County EMA
Steven E. Carlson Rock Island County EMA
Paul Burbank Franklin County EMA
David Cashion Woodford County EMA
Brian Ciszczon Bolingbrook ESDA
Greg Pantke Westmont EMA
Brian Blomgren McLean County EMA
Joe D. Mitchell IL Department of Public Health
Robert E. Langsfeld Hoffman Estates ESDA
Fernando Flores Illinois State Police
Mary Poundstone Grundy County EMA
Steven D. Lewis Flora/Clay Co. ESDA
David H. Kennedy Du Quoin ESDA
Robert J. Kerrn Mechanicsburg Fire Department
Ken Pryor Crawford County EMA
Roger D. Smith Madison County Coroner's Office
Lisa Clinton St. Margaret's Hospital/Bureau County LEPC
Joseph G. Wieser Village of Buffalo Grove
Linda M. Kielas Palatine EMA
John O'Donnell Chicago Fire Department
Diane Hoots Central Management Services
Kevin Sargent City of Mt. Vernon EMA
Ingrid Skidmore Village of Lake Zurich Fire Rescue Dept.
Toni Watkins IEMA
Angela Roberts American Red Cross of Greater Chicago
Doug Downey IEMA
Steve Lueker Jefferson County
Gerald Watson Melrose Park Public Safety
Benton Fitzjerrells Jefferson County
Emma Crandell American Red Cross of Greater Chicago
Katie Darin American Red Cross of Greater Chicago
Mark B. Stevens Jefferson County Health Department
Curt Mueller IEMA
Michael J. Miller Hoffman Estates EMA
Richard Burroughs Red Cross of the Quad Cities Area
Michael "Gabe" Wiemken Williamson County Emergency Management Agency
Beverly S. Carroll City of Chicago Dept of Police
Phillip Beverly Chicago State University
John Skoryi Will County EMA
Bill G. Bennett Franklin County EMA
Michael Dacey OHare International Airport
Bryce McCormick Village of Chapin
Eugene Guerin Crestwood EMA
Arthur Clark Oak Lawn Police Department
Rob McCullers Air National Guard
Gary Little Franklin County Emergency Management Agency
Wayne E. Sampson Jefferson County
Martin L. Dwyer IEMA
Brett M. Johnson Champaign Fire Dept
Terry L. Donat, MD DuPage Medical Group
Andrew J. Kerley Kane County EMA
Terri A. West Effingham EMA
Gary West Sr Effingham EMA
Christopher Weihe Bartlett Fire Protection District
John O'Shea IEMA
Christopher Woodill West Chicago Police Department
Deborah Watts IEMA
Stephen J. Jackson IEMA
Sherry Ramsey IEMA
Jimmy Thompson IEMA
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

<% 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 = "" '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) & "


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