
				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

2012 PDS Recipients

Sabit A. Abbasi	DuPage County Office of Homeland Security and Emergency Management
Lucas Timothy Anderson	Target
Ramona Baldoni-Lake	Harlem Roscoe Fire Protection District
Karen S. Balogh	Quill Corporation
Jeffrey R. Baygood	Long Grove Fire Protection District
Michael A. Borcky	Illinois Emergency Management Agency
Laurie Bradach	LaSalle County Emergency Management Agency
Bethanie Brooks	LaSalle County Emergency Management Agency
John Carlson	Champaign County Emergency Management Agency
Anne Conwill	Illinois Emergency Management Agency
Steven L. Cutaia	City of Park Ridge
Cindy Dawson	Trenton Emergency Management Service
Maurice P. Deenihan	Hanover Township Emergency Management Agency
Matthew C. Doughtie	Chicago Office of Emergency Management and Communications
John M. Dwyer	Champaign County Emergency Management Agency, Illinois ANG
Robert P. Evans	Illinois Emergency Management Agency
Mark Flaherty	Aurora Emergency Management
Linda Gant	Village of Dixmoor
Andrew P. Geil	Riverton Area Fire Protection District
Michael Paul Gohlke	Independent
Daniel J. Graunke	BP America
Ronald Graziano	Hoffman Estates Emergency Management Agency
Theresa M. James	Rockford Health System
Jenifer L. Johnson	Illinois Emergency Management Agency
Domingo Kaller	Will County Emergency Management Agency
Matthew W. Knott	Rockford Fire Department
Stephanie L. Kuschel	Region 1 RHCC/Rockford Memorial Hospital
Jonathan T. Lowman	Highland Park Police Department
Dale Anthony Marzano, OFS	Will County ARES
Herman Mathus	Dixmoor Police Department
Jason D. Morris	Metropolis Fire Department
Thomas J. Murray, Jr.	Will County Emergency Management Agency
Gerald P. Nellessen	Village of Lake Bluff
Donald Novak	City of Elmhurst Emergency Management Agency
Deon K. Pillard	Will County Emergency Management Agency
William G. Radicic	Henry County, Illinos Emergency Management Agency
Tracy Renfro	Rockford Fire Department
Michael Rons	Evanston Fire and Life-Safety Services
Murray J. Snow	Village of Oak Park
Alana Sorrentino	Logan County Emergency Management Agency
Sarah J. Steinbach	Student of Emergency Management
Donna Stotlar	City of Marion Emergency Management Agency
Joseph Terry	Oak Park Fire Department
Kirk Thirtyacre	McLean County Emergency Management Agency
Laris Turkic	McHenry County Emergency Management Agency
Vardman L. Turner	Rockford Fire Department
Kyle Ullmark	NIU Police and Public Safety
Todd A. Walker	Village of Algonquin
Jerry C. Wiltfang	Winnebago County Sheriff's Police

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