|
|
2009 IPEM Recipients
Connie Brooks - LaSalle County Health Department
Paul Burbank - Franklin County EMA
Beverly Carroll - Chicago Police Dept
Arthur Clark - Oak Lawn PD
Lisa Clinton - Bureau County LEPC
Mike Dacey - Chicago Dept of Aviation
Terry Donat - DuPage County Medical
Fernando Flores - Illinois State Police
Jim Goldasich - Putnam County
Greg Hertz - Illinois National Guard
Brett Johnson - Champaign Fire Dept
Kevin Lalley - Lee County EMA
Gary Little - Franklin County EMA
Richard Marks - Peoria County Health Dept
Bryce McCormick - Chapin Crisis and Emergency Management
Curt Mueller - IEMA
Chris Pulley - IEMA
Rick Shryock - IEMA
The following people have received approval to renew their IPEM Accreditation:
Lisa Anderson - IEMA
Chief Richard Carani - Libertyville Fire Dept
Ron Carlson - IEMA(Retired)
John Cheney - DuPage County OHSEM
Raymond Clark - Du Quoin ESDA
Sue Coers - IEMA
Harold Damron - Will County EMA
Brad Entler - Elgin PD
Bob Flemming - IEMA
Joe Gasparich - Illinois Fire Service Institute
Scott Gauvin - IEMA
Chuck Genesio - Du Quoin ESDA
Rita George - North Shore University Health
Alan Gower - Williamson County EMA
Steve Land - Williamson County EMA
Diane Logsdon - Logsdon Consultation Services
Janie Martin - IEMA
Kim McGee - IEMA
Christina Miller - Mid-America Preparedness
Randolph Miota - Lakeland HealthCare, Michigan
Chuck Morris - Piatt County EMA
Mary Murphy-Clohessy - Evergreen Park EMA
Dave Searby - Du Quoin ESDA
Chief Craig Shaw - Fairview PD
Steve Simms - IEMA
Dan Smith - IEMA
Pete Smith - ILEAS
Tom Smith - Palatine EMA
Kathy Spellman - IEMA
Russ Steil - IEMA
Terry Storer - Logan County EMA
Susan Vancil - Lake County Stormwater Mgnt Council
|
|
|
|
|
<%
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 = " |
