
				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

Joseph H. Bartley	Riverton Area Fire Protection District
John D. Brown	Federal Bureau of Prisons
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
John R. Hedeman	Illinois Army National Guard
Harry (Hap) Hileman	Illinois Army National Guard
Kelly Huddleston	Williamson County Emergency Management Agency
Jason E. Huffman	Menard County Sheriff's Office
William R. James	Kane County LEPC
Dora Koop	Illinois Medical Emergency Response Team
Timothy G. Maroder	Elgin Fire Department
Timothy Jennings McClure	Western Illinois University
Tracy A. Page	Kendall County Emergency Management Agency
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
Shay Simmons	McLean County Health Department
James Wesley Triplett	Naval Station Great Lakes
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%>