|
|
2005 IPEM Recipients
 |
|
| Raymond Clark | Du Quoin ESDA |
| Charles Genesio | Du Quoin ESDA |
| David Searby | Du Quoin ESDA |
| Lisa Anderson | IEMA |
| Ronald Carlson | IEMA |
| Lisa Desai | IEMA |
| Scott Gauvin | IEMA |
| Jared Owen | IEMA |
| Kim Purcell | IEMA |
| Paul Rasch, Jr | IEMA |
| Steve Simms | IEMA |
| Kathy Spellman | IEMA |
| Russ Steil | IEMA |
| Robert Tschiggfrie | Jo Daviess County LEPC |
| Pete Smith | Naperville EMA |
| Randolph Miota | NSTC Great Lakes Illinois |
| Michael Moos | Office of the State Fire Marshall |
| Richard Carani | Village of Libertyville Fire Department |
| Alan Gower | Williamson County EMA |
| Steve Land | Williamson County EMA |
 |
| The following people have received approval to renew their IPEM Accreditation: |
| Diane Logsdon | American Red Cross of Greater Chicago |
Craig Shaw | Fairview Police Department |
Justin Short | IEMA |
Daniel Smith | IEMA |
| Joseph Gasparich | Illinois Fire Service Institute |
Terry Storer | Logan County EMS |
Jim Pitchford | Macoupin County ESDA |
| Robert Ellsworth, Jr | McHenry County ESDA |
Tom Smith | Palatine EMA |
Charles Morris | Piatt County ESDA |
| Rita George | Rush North Shore Hospital EMS |
Mary Murphey | Village of Evergreen Park |
|
|
|
<%
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 = " |
