|
|
2010 IPEM Recipients
Gerald "Jess" Angle - Lawrence County EMA
Mark P. Bagby - St. Clair Special Emergency Service Assoc.
Phillip A. Beverly - Chicago State University
Steven James Bobzin - Village of Park Forest EMA
Michael Roger Bonuchi - Plainfield EMA
Linda C. Bradbury - American Red Cross Capital Area Chapter
James E. Burke - Warrenville ESDA
Mona Callis - IEMA
Raymond I. Carrell - City of Chicago Dept. of Aviation
Donald W. Casper, Jr. - Adams County EMA
Alvin R. Childress - City of Chicago OEMC
Dawn M. Cook - Tazewell County EMA
Michelle Cullerton-Conforti - City of Chicago OEMC
Dwain S. Deppodler - City of Peoria OEM
Craig M. Dopp - Palatine EMA
Robert E. Dunne - Northfield Township Road District
Jerry L. Ellis - Clay County/Flora ESDA (Retired)
John J. Feit - Village of Barrington EMA
Larry M. Graf - Menard County EMA
Carolyn Hayes - Peoria County EMA
Susan Hecht - Advocate Christ Med Center
Daniel A. Hite - Hudson Fire/ESDA & Illinois State University
Todd R. Hitt - City of Champaign Fire Dept/EMA
Gretchen M. Jarrett - Illinois Terrorism Task Force
Linda M. Kielas - Palatine EMA
Steven D. Lewis - Flora/Clay County ESDA
Sean Madison - Kane County OEM
Rob McCullers - Illinois National Guard
C. Kent McKenzie - Lake County EMA
William L. Newman Jr. - Arlington Heights Police Department
Mehwish Qasim - Northern Illinois University
Ryan Rockabrand - City of Chicago OEMC
Julie D. Smith - Lawrence County Health Department
Roger D.Smith - Madison County Coroner Office /Noah's Wish Animal Disaster Service
Jason S. Sukut - Menard County EMA
John P. Swinford - Village of Sherman
Andy Thompson - Stephenson County EMA
Jimmy Thompson - IEMA
Vicky L. Turner - Peoria County EMA
The following people have received approval to renew their IPEM Accreditation:
Donald H. Bryant - Kane County OEM
Dan Fulscher - Logan County EMA
Dennis L. Hood - Judson University
Ron Kleinhaus - Evergreen Park Fire
Michael Mavrogeorge - St. Louis, Downtown Airport Fire Dept.
Robert T. Page - Village of Bartlett
James Pitchford - Macoupin County EMA
Ed Urban - Algonquin Police Dept
|
|
|
|
|
<%
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 = " |
