
				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

Search Illinois [Search Tips]

Training

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

<% 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 = "

" & arrCourses(1,i) & "

<%=strSideMenu%>