|
|
2011 IPEM Recipients
David Adler - DuPage County Office of Homeland Security and Emergency Management
Mark T. Ballard - Illinois National Guard
Jayne Ballun - Will County EMA
Paul G. Banks - North Shore University Health Systems
Paul Bumba - City of St. Charles
Mark Chmura - Naperville Fire Dept.
Captain Robert Elliott - Illinois State Police
Fernando Flores Jr. - Student
David Gervino - DuPage County Office of Homeland Security and Emergency Management
Joe Gillespie - Kendall County EMA
Haydee Gonzalez - Plainfield EMA
Thomas J. Hardin - Cook County Department of Homeland Security and Emergency Management
Paul Henneman - Chicago Fire Department
Steve James - McHenry County EMA
Dan Kreps - McDonough County EMA
Christopher Krzos - City of Naperville
Christopher Melvin - IDOC
Jeffrey Rodrigues - Cook County Department of Homeland Security and Emergency Management
Leon Roth - Loyola University
Todd Short - University of Illinois Police Department
Hero Tameling - Illinois Department of Human Services
James Wall - Illinois National Guard
The following people have received approval to renew their IPEM Accreditation:
Phillip Anello - IEMA
Gregg Baker- Coles County Health Department
Ryan Buckingham - Franklin County EMA
John Crilly - Lake County Sheriff's Office
Lisa Desai - IEMA
Cristy Donaldson - IEMA
Leon Duncan - IFSI
Joni Estabrook - IEMA
Rita George - NorthShore University HealthSystem-Skokie Hospital
Roger Huner - Adams County EMA
John Konopek - Plainfield EMA
Stanley Krushas - IEMA
Mike Moos - Office of the State Fire Marshal
John Plante - Chicago Transit Authority
Robert Renaud - Metropolitan Water Reclamation Dist. of Great Chicago
Thomas Schroeder - Grundy County EMA
John Simon II - Adams County EMA
Donna Spears - Menard County EMA
Victor Stich - Independent
Terry Storer - Logan County EMA
Russ Thomas - Effingham County EMA
|
|
|
|
|
<%
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 = " |
