
				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

2013 PDS Recipients

John N. Althoff	Effingham City-County Ambulance
Joseph H. Bartley	Riverton Area Fire Protection District
Mona K. Bonick	Scott Air Force Base
Christopher Braun	Scott Air Force Base
John D. Brown	Federal Bureau of Prisons
Patrick A. Burke	Jefferson County Emergency Management Agency
Candee A. Cole	Des Plaines Homeland Security and Emergency Management Agency
Debra S. Collett	Tazewell County Emergency Management Agency
Jim Conn	Palatine Fire Department
Vincent B. Davis	Walgreens Corporation - Emergency Preparedness & Response Division
James E. Donaldson	Piatt County Emergency Management Agency
Gregory R. "Bob" Doty	Illinois Fire Service Institute
Kenneth G. Eitenmiller, Jr.,	Rockford Fire Department
Daniel Ensign	Coles County Emergency Management Agency
David Esterquest	Central DuPage Hospital
Steven M. Ford	Bridgeview Emergency Management Agency
John R. Hedeman	Illinois Army National Guard
Keith Hertenstein	Jefferson County Emergency Management Agency
Harry (Hap) Hileman	Illinois Army National Guard
Richard L. Hollowell	Defense Information Systems Agency
Kelly Huddleston	Williamson County Emergency Management Agency
Jason E. Huffman	Menard County Sheriff's Office
Kenneth G. Jaeger	Belvidere Fire Department
William R. James	Kane County LEPC
Christopher Jansen	IMERT
Lloyd Johnson	Rockford Health System
Dawn Johnson-Bridges	TSA-DHS
Michael V. Kaiser	Applied Research Associates
Michael Patrick Kelley	Oak Lawn Emergency Management
John M. Kolarik	Schaumburg Fire Department
Dora Koop	Illinois Medical Emergency Response Team
Timothy G. Maroder	Elgin Fire Department
Timothy Jennings McClure	Western Illinois University
Timothy McFall	Scott Air Force Base
Charley D. Mills, Jr.	375 AMW/XP (Plans, Programs, & Readiness)
Tracy A. Page	Kendall County Emergency Management Agency
Stephanie Pileggi	Scott Air Force Base
Calvin L. Plumer	Logan-Trivoli Fire Protection District
Tom A. Pratt	SwedishAmerican Health System
Eric Rezba	IL CERFP
Howard D. Richards	Fox Lake Fire Protection District CERT
Mark A. Richardson	Western Illinois University
Shay Simmons	McLean County Health Department
Brad M. Smith	Advocate BroMenn Medical Center
James Wesley Triplett	Naval Station Great Lakes
Ryan R. Weber	Monroe County Emergency Management Agency
Stephen M. Weiler	Forest Park Police Department

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